_ EY-2278E-MM-0001 


LISTINGS BOOK 


Prepared by Educational Services 
of 
Digital Equipment Corporation 


First Edition, October 1984 


Copyright © 1984 by Digital Equipment Corporation 
All Rights Reserved 


The reproduction of this material, in part or whole, is strictly prohibited. 
For copy information, contact the Educational Services Department, 
Digital Equipment Corporation, Bedford, Massachusetts 01730. 


Printed in U.S.A. 


The information in this document is subject to change without notice 
and should not be construed as a commitment by Digital Equipment 
Corporation. Digital Equipment Corporation assumes no responsibility 
for any errors that may appear in this document. 


The software described in this document is furnished under a license 
and may not be used or copied except in accordance with the terms of 
such license. 


Digital Equipment Corporation assumes no responsibility for the use 


or reliability of its software on equipment that is not supplied by Digital. 


The manuscript for this book was created using DIGITAL Standard 
Runoff. Book production was done by Educational Services 
Development and Publishing in Nashua, NH. 


The following are trademarks of Digital Equipment Corporation: 


d{ijgli|tlalt ™ DECtape Rainbow 


DATATRIEVE DECUS RSTS 
DEC DECwriter RSX 
DECmate DIBOL UNIBUS 
DECnet MASSBUS VAX 
DECset PDP VMS 
DECsystem-10 P/OS VT 


DECSYSTEM-20 _ Professional Work Processor 


APPENDIX 
Supplemental Listings 


The following listings are provided for your reference. Some 
are executive Source modules. Others are solutions to Module Test 


problems. 


Executive Source Modules 


CRDRIVER 

SYSQIOREQ 
SYSQIOFDT 
IOSUBNPAG 
FORKCNTRL 


INITADP 


LIOSUB78@ 
LOADMREG 
IOCI OPOST 


COMDRVSUB 


Card Reader Driver 

S$QIO éyseen Service Procedure 
System S$QIO FDT Routines 
Nonpaged I/O Subroutines 

Fork Process Dispatcher 


UNIBUS Adapter Initialization Routines only 
(entry INISUBADP) 


Purge Data Path Routine 
Load Mapping Registers Routines 
I/O Post-Processing Routines 


Communication Routines 


Solutions to Module Test Problems 


l. 


PCDRIVER.LIS 
PCDRIVER.COM 
PCDRIVER.OPT 
LOADER.COM 
READV.FOR 
RANDWV. FOR 
MODE.FOR 


ACPMNT.LIS 
ACPMNT .COM 
PCACP.LIS 
PCACP.COM 
PCDMT.LIS 
PCDMT .COM 
TESTPROG.FOR 


PCDRIVER.LIS 
PCDRIVER.COM 
PCDRIVER.OPT 
PCLOAD.COM 
ATTN.FOR 


PRINTER.LIS 
PRINTER.COM 
CINLOAD. COM 


PCll Reader/Punch Driver 


Assembles and Links Driver 


Used for Linking Driver 

Loads Driver and Connects Units 
Test Program 

Test Progran 

Test Program 


Mount Image for ACP 

Assembles and Links Mount Image 
PCl1 ACP 

Assembles and Links ACP 

Dismount Image for ACP 

Assembles and Links Dismount Image 
Test Program 


Set Attention PCll Driver 
Assembles and Links Driver 

Used for Linking Driver 

Loads Driver and.-Connects Units 
Test Program -- Controls PCll 


Connect to Interrupt Example 
Assembles and Links Program 
Connects Printer with Connect to 
Interrupt Driver 


CRDRIVER 
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V03-002 10-MAR-1982 20:31:59 DISK$VMSMASTER: [DRIVER.SRC]CRDRIVE(1) 
0000 1 .TITLE CRDRIVER - CR11 CARD READER DRIVER 

; EMD0087 0000 | -IDENT ‘V03-002' 

-1 0000 3 
0000 4; 
oo00 Bg RRR RRR AR ACR AOR RFR FOR AOR ORR AOR AOE EE EE EE EE 
0000 6 ;* * 
0000 7 ;* COPYRIGHT (c) 1978, 1980, 1982 BY * 
0000 8 ;* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
0000 . 9 ;* ALL RIGHTS RESERVED. * 
0000 10 ;* * 
0000 113;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0000 12 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0000 13 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS’7~ HEREBY * 
0000 16 ;* TRANSFERRED. * 
0000 17 3% * 
0000 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
0000 20 ;* CORPORATION. * 
0000 21 ;* * 
0000 22 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 23 ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 24 ;* * 
0000 25 ;* - * 
0000 QZ 5 ORR RGR ARR ORR AOR BK 
0000 27 ; 
0000 28 ; D. N. CUTLER 1-SEP-77 
0000 29 ; 

; EMDO0087 0000 -1 > 3; MODIFICATION HISTORY: 

; EMD0087 0000 .2 3 

; EMDO0087 0000 33 VO03-002 EMDO087 Dusseault 30-Apr-1984 

; EMDO0087 0000 4; Add DEV$M_NNM characteristic to DEVCHAR2 so that these 

; EMDO087 0000 25 5 devices will have the "node$" prefix. 

; EMD0087 0000 .6 ;3 : 

; EMD0Q87 0000 sl Ms V03-001 KDMO002 Kathleen D. Morse 28-Jun-1982 

; EMD0087 0000 .8 ; Added $DYNDEF, $SSDEF, $DCDEF, and $PRDEF. 

; EMD0087 0000 9 ;3 

-6 0000 36 ; : 
0000 37 ; MACRO LIBRARY CALLS 
0000 38 ; 
0000 39 
0000 40 $CRBDEF ;DEFINE CRB OFFSETS 
0000 41 $CRDEF ;DEFINE CARD READER STATUS BITS 

; KDMO002 0o000 .1 $DCDEF ;DEFINE ADAPTER TYPES 

; EMDO087 0000 .2 $DOBDEF ;DEFINE DDB OFFSETS 

; EMD0087 0000 3 $DPTDEF ;DEFINE PPT OFFSETS 

3; KOMOQ002 0000 .4 $DYNDEF ;DEFINE DYNAMIC DATA STRUCTURE TYPES 

-2 0000 44 $I DBDEF ;DEFINE IDB OFFSETS 
0000 45 $IODEF ;DEFINE I/O FUNCTION CODES 
0000 46 $IRPDEF ;DEFINE IRP OFFSETS 
0000 47 $JIBDEF ;DEFINE JIB OFFSETS 
0000 48 SMSGDEF ;DEFINE SYSTEM MESSAGE TYPES 
0000 49 $PCBDEF ;DEFINE PCB OFFSETS 

; KDMO002 0000 1 $PRDEF ;DEFINE PROCESSOR REGISTERS 

; KDMO002 0000 eZ S$UCBDEF ;DEFINE UCB OFFSETS 

; KDM0002 0000 3 $SSDEF ;DEFINE STATUS CODES 
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V03-002 10-MAR-1982 20:31:59 DISK$VMSMASTER: [DRIVER.SRC]CRDRIVE(1) 
-1 0000 51 $VECDEF ;DEFINE VEC OFFSETS 
0000 52 
0000 53 ; 
0000 54 ; LOCAL SYMBOLS 
0000 55 ; 
0000 56 ; ARGUMENT LIST OFFSET DEFINITIONS 
0000 57 ; 
- 0000 58 
00000000 0000 59 P1=0 sFIRST FUNCTION DEPENDENT PARAMETER 
00000004 0000 60 P2=4 ;SECOND FUNCTION DEPENDENT PARAMETER 
00000008 0000 61 P3=8 ; THIRD FUNCTION DEPENDENT PARAMETER 
oo00000c 0000 62 P4=12 ;FOURTH FUNCTION DEPENDENT PARAMETER 
00000010 0000 63 P5=16 ;FIFTH FUNCTION DEPENDENT PARAMETER 
00000014 0000 64 P6=20 ;SIZTH FUNCTION DEPENDENT PARAMETER 
0000 65 
0000 66 ; 
0000 67 ; SPECIAL CARD COLUMN PATTERNS 
0000 68 ; 
0000 69 
OOOOOFOF 0000 70 CR_EOF=4B111100001111 ;END OF FILE (12-11-0-1-6-7-8-9) 
000008A2 0000 71 CR_026=AB100010100010 ; TRANSLATE 026 CARD CODE (12-2-4-8) 
OOO00AAA 0000 72 CR_029=AB101010101010 ; TRANSLATE 029 CARD CODE (12-0-2-4-6-8) 
0000 73 
0000 74 ; 
0000 75 ; CR11 CONTROLLER REGISTER OFFSET DEFINITIONS 
0000 76 ; 
0000 77 
0000 78 $DEFINI CR 
0000 79 
0000 80 $DEF CR_CSR .BLKW oo] ';CONTROL STATUS REGISTER 
0002 81 _VIELD CR_CSR,0,<- ; CONTROL STATUS REGISTER FIELD DEFINITIONS 
0002 B2 <READ, ,M>,- ; READ CARD 
0002 83 <EJECT, ,M>,- ; EJECT CARD 
0002 B4 <,4>,- ; RESERVED BITS 
0002 85 <IE,,M>,- ; INTERRUPT ENABLE 
0002 86 <CLDONE, ,M>,- ; COLUMN DONE 
0002 87 <OFFLIN, ,M>,- ; READER OFFLINE 
0002 88 <BUSY, ,M>,- ; CARD BEING READ 
0002 89 <ONLINE, ,M>,- ; READER ONLINE 
0002 90 <TIMERR, ,M>, - ; TIMING ERROR 
0002 91 <MCHECK, ,M>, ~ ; MOTION CHECK 
0002 92 <HCHECK, ,M>, - ; HOPPER CHECK 
0002 93 <CRDONE, ,M>,- ; CARD DONE 
0002 94 <ERROR, ,M>,- ; ERROR CONDITION 
0002 95 > : 
0002 96 $DEF CR_CRB1 .BLKW 1 ;CARD READ DATA BUFFER 1 (BINARY) 
0004 97 $DEF CR_CRB2 .BLKW ;CARD READ DATA BUFFER 2 (PACKED) 
0006 98 
0006 99 $DEFEND CR 
0000 100 
0000 101 ; 
0000 102 ; DEFINE DEVICE DEPENDENT UNIT CONTROL BLOCK OFFSETS 
0000 8=6103 ; 
0000 =104 
0000 = =105 $DEFINI UCB 
0000 8106 


oo000009g0 0000 107 .=UCB$K_LENGTH ; 
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V03-002 1O0-MAR-1982 20:31:59 DISKSVMSMASTER: [DRIVER.SRC]CRDRIVE(1) 
0090 108 
0090 109 $DEF UCB$B_CR_ COLCNT .BLKB 1 ;CURRENT COLUMN COUNT 
0091 110 $DEF UCB$B_ CRE EOFCNT .BLKB 1 ;END OF FILE PUNCH COUNT 
0092 111 $OEF UCB$B__ CR_ EOFCOL .BLKB 1 ;NUMBER OF END OF FILE PUNCHES REQUIRED 
0093 112 $DEF UCB$B_CR_OFLCNT .BLKB 1 ;OFFLINE TIME COUNTER 
0094 113 $DEF UCB$W_CR_FSTCOL .BLKW 1 ;FIRST COLUMN BINARY DATA 
0096 114 $DEF UCB$W_CR_CSR . BLKW 1 ;SAVED FINAL CONTROL STATUS REGISTER 
0098 115 
00000098 0098 116 UCB$K_CR_LENGTH=. 
0098 117 
0098 118 $DEFEND UCB 
0000 119 
0000 120 ; 
0000 121 ; LOCAL DATA 
0000 122 ; 
0000 123 ; DRIVER PROLOGUE TABLE 
0000 124 ; 
0000 125 
0000 126 DPTAB - ;DEFINE DRIVER PROLOGUE TABLE 
0000 127 END=CR_END,~— ;END OF DRIVER 
0000 128 ADAPTER=UBA, - ;ADAPTER TYPE 
0000 129 UCBSIZE=UCB$K_CR_LENGTH, - ;UCB SIZE 
0000 130 NAME=CRDRIVER ;DRIVER NAME 
0038 131 DPT_STORE INIT |. ;CONTROL BLOCK INIT. VALUES 
0038 132 _ DPT_STORE UCB,UCB$B_FIPL,B,8 ;FORK IPL 
003C 133 DPT_STORE UCB,UCBS$L_DEVCHAR,L,- ;DEVICE CHARACTERISTICS 6 
003C 134 <DEV$M_REC- ; RECORD ORIENTED 
003C 135 !DEV$M_ AVL- ; AVAILABLE 
. 003C 136 !DEV$M_IDV> ; INPUT DEVICE 
; EMDO087 0043 1 DPT_STORE UCB,UCB$L_DEVCHAR2,L,- ; DEVICE CHARACTERISTIC 
; EMD0087 0043 eZ <DEV$M_NNM> ; PREFIX WITH "NODE$" 
004A 137 DPT_STORE UCB,UCB$B DEVCLASS,B, DCS. CARD ;DEVICE CLASS 
OO4E 138 DPT_STORE UCB, UCB$B_ DEVTYPE,B _DT$ Gr11 ;DEVICE TYPE 
0052 139 DPT_STORE UCB, UCBSW_ DEVBUFSIZ. W,80 :DEFAULT BUFFER SIZE 
0057 140 DPT_STORE UCB,UCB$L_DEVDEPEND,L, CROK_ TO29 ;DEFAULT TRANSLATION MODE 
OOS5E 141 DPT STORE UCB, UCB$B_DIPL, B,22 ;DEVICE IPL 
0062 142 DPT_STORE REINIT : CONTROL BLOCK RE-INIT VALUES 
0062 143 DPT_STORE CRB,CRB$L_INTD+4,D,CR$SINT ; INTERRUPT SERVICE ROUTINE ADDRESS 
0067 144 DPT_STORE CRB, CRBSL_ INTD+VEC$L_ INITIAL, D,CR INITIAL ;CONTROLLER INIT 
OO06C 145 DPT_STORE CRB, CRB$L_ INTD+VEC$L_ UNITINIT,D, CR CR11 _INIT ;UNIT INIT 
0071 146 DPT_STORE DDB ,DDBS$L_ DDT ,D, CR$DDT ;DDT ADDRESS 
0076 147 DPT STORE END ; 
0000 148 
0d000 149 ; 
0000 150 ; DRIVER DISPATCH TABLE 
0000 151 ; 
0000 152 
0000 153 DDTAB CR,- ;DRIVER DISPATCH TABLE 
0000 154 CR_STARTIO,~ ;START 1/0 OPERATION 
0000 155 0,- ;UNSOLICITED INTERRUPT 
0000 156 CR_FUNCTABLE,- ;FUNCTION DECISION TABLE 
0000 157 CR_CANCELIO,~- ;CANCEL I/O OPERATION 
0000 158 0,- ;REGISTER DUMP ROUTINE 
0000 159 0, ;SIZE OF DIAGNOSTIC BUFFER 
0000 160 0 ;SIZE OF ERROR LOG BUFFER 
0038 161 


0038 162 ; 
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V03-002 10-MAR-1982 20:31:59 DISK$VMSMASTER: [DRIVER.SRCJCRDRIVE(1) 

0038 163 ; 029 CONVERSION TABLE 

0038 164 ; 

0038 165 

0038 166 CR_CVTO29:;: 3029 TRANSLATE TABLE 
20 0038 167 -BYTE AA/ / ; 0 AX00 A0000 
31 0039 168 -BYTE AA/1/ : 1 AX01 A0001 
32 003A 169 -BYTE AA/2/ : 2 AXO02 AQOO02 
33 003B 170 -BYTE AA/3/ 4 3 AX03 A0003 
34 003C 171 .BYTE AAS4A/ ; 4 AX04 A0004 
35 003D 172 -BYTE AA/5/ ; 5 AX05 A0005 
36 OO3E 173 .BYTE AA/6/ : 6 AX06 A0006 
37 O03F 174 -BYTE AA/T/ 3 7 AX07 A0007 
38 0040 175 .BYTE AA/B/ ; 8 AX08 A0010 
60 0041 176 -BYTE AA/*/ : 9 AX09 A0011 
3A 0042 177 -BYTE AA/:/ ; 10 AXKOA A0012 
23 0043 178 .BYTE AA/#/ : 11 AXOB A0013 
40 0044 179 ~BYTE AA/@/ ; 12 AXOC A0014 
27 0045 180 .BYTE AA/‘/ ; 13 AXO0D A0015 
3D 0046 181 .BYTE AA/=/ : 14. AXOE A0016 
22 0047 182 .BYTE AA/"/ ; 15 AXOF A0017 
39 0048 183 -BYTE AK/9/ ; 16 AX10 AO0020 
5C 0049 184 .BYTE AA/\/ ; 17 AX11 A0021 
16 OO4A 185 .BYTE AX16 3 18 AX12 A0022 
SC 004B 186 -BYTE AA/\N/ : 19 AK13 A0023 
5C O04C 187 .BYTE AA/\/ ; 20 AK14 A0024 
5C 004D 188 .BYTE AA/N/ ; 21 AX15 A0025 
5C OO4E 189 ~BYTE AA/\/ 3; 22 AX16 A0026 
04 OO4F 190 -BYTE AX04 ; 23 AXK17 A0027 
5C 0050 191 .BYTE AA/\/ ; 24 AX18 AQ030 
5C 0051 192 -BYTE AA/\/ ; 25 AX19 A0031 
5C 0052 193 .BYTE AA/S\/ ; 26 AX1A AQ032 
SC 0053 194 .BYTE AA/\/ ; 27 AX1B A0033 
14 0054 195 -BYTE AX14 ; 28 AK1C A0034 
15 0055 196 -BYTE AK15 ; 29 AX1D A0035 
5C 0056 197 ~-BYTE AR/N/ ; 30 AXTE A0036 
1A 0057 198 .BYTE AX1A ; 31 AX1F A0037 
30 0058 199 .BYTE AA/O/ ; 32 AX20 AQ0040 
2F QO059 200 .BYTE AA\/\ ; 33 AX21 A0041 
53 OO5A 201 -BYTE AA/S/ ; 34 AX22 A0042 
54 0058 202 -BYTE AA/T/ ; 35 AK23 A0043 
55 O0O5C 203 .BYTE AA/U/ ; 36 AK24 A0044 
56 0050 204 -BYTE AA/V/ ; 37 AX25 A0045 
57 OOSE 205 .BYTE AA/W/ ; 38 AX26 A0046 
58 OOSF 206 -BYTE AA/X/ ; 39 AXK27 A0047 
59 0060 207 .BYTE AA/SY/ ; 40 AX28 A0050 
5C 0061 208 -BYTE AA/\/ GA AX29 A005 1 
5C 0062 209 -BYTE AA/\/ ; 42 AK2A A0052 
2C 0063 210 -BYTE AA/,/ ; 43 AX2B A0053 
25 0064 211 .BYTE AA/S%/ ; 44 AX2C AO054 
5F 0065 212 »-BYTE AA/_/ 3 45 AX2D A0055 
3E QO066 213 .BYTE AA/>/ ; 46 AK2ZE A0056 
3F O067 214 -BYTE ARS7/ ; 47 AK2F AQ057 
5A 0068 215 -BYTE AA/Z/ ; 48 AX30 AQQ6N 
5C 0069 216 -BYTE AA/\/ ; 49 AX3 1 A0061 
5C QQ6A 217 ~-BYTE = AA/S\/ ; 50 AX32 A0062 
5C O0O6B 218 .BYTE AA/\/ se. Al AX33 A0063 
5C OO6C 219 -BYTE AA/\/ ; 82 AK34 A0064 
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V03-002 10-MAR-1982 20:31:59 DISK$SVMSMASTER: [DRIVER.SRC]CRDRIVE(1) 
OA OO06D 220 .BYTE AXOA ; 53 AXK35 A0065 
17 OOGE 221 -BYTE AX17 ; 4 AXK36 A0066 
1B OO6F 222 .BYTE AX1B ¢ 55 AX37 AO067 
5C 0070 223 -BYTE AA/\/ ; 56 AX38 A0070 
5C 0071 224 -BYTE AA/N/ ; 57 AK39 AQO71 
5C 0072 225 .BYTE AA/N\/ ; 58 AX3A A0072 
5C 0073 226 -BYTE AA/\/ ; 59 AK3B A0073 
5C 0074 227 -BYTE AA/\/ ; 60 AK3C A0074 
05 0075 228 .BYTE AXO05S ; 61 AX3D A0075 
06 0076 229 .BYTE AX06 ; 62 AX3E AQ076 
07 0077 230 .BYTE AX07 ; 63 AX3F A0077 
2D 0078 231 -BYTE AA/-/ ; 64 AX40 AQ100 
4A 0079 232 -BYTE AA/S/ ; 65 AX41 A0101 
4B 007A 233 -BYTE AA/SK/ ; 66 AK42 A0102 
4C 007B 234 .BYTE AA/L/ ; 67 AK43 A0103 
4D OO7C 235 -BYTE AA/M/ ; 68 AK44 A0104 
4E 0070 236 .BYTE AA/N/ ; 69 AX45 A0105 
4F O0O7E 237 -BYTE AA/O/ ; 70 AX46 A0106 
50 Q0O7F 238 BYTE AA/P/ ; 71 AXK47 AQO107 
51 0080 239 .BYTE AA/Q/ se AZ AX48 A0110 
5C 0081 240 ~BYTE AA/\/ ; 73 AX49 AQ111 
5D 0082 241 -BYTE AA/\/ ; 74 AX4A AQ0112 
24 0083 242 -BYTE AA/$/ ; 75 AX4B AQO113 
2A 0084 243 -BYTE AA/*/ ; 76 AK4C A0114 
29 0085 244 .BYTE AA/)/ ; 77 AK4D AQO115 
3B 0086 245 -BYTE AAS 3 / ; 78 AK4E A0116 
SE 0087 246 . BYTE AA/A/ ; 79 AX4F AQ117 
52 0088 247 -BYTE AA/R/ > 80 AX50 AQ120 
11 0089 248 -BYTE AX11 ; 81 AX5 1 A0121 
12 OO8A 249 .BYTE AX12 ; 82 AX52 AN122 
13 0O08B 250 .BYTE AK13 ; 83 AX53 A0123 
5C O08C 251 .BYTE AA/\/ ; 84 AX54 A0124 
5C 008D 252 -BYTE AA/N/ ; 85 AX55 A0125 
08 OO8E 253 »-BYTE AX08 ; 86 AKX56 A0126 
5C OO8F 254 .BYTE AA/\/ ; 87 AXS7 AQ127 
18 0090 255 ~BYTE AK18 ; 88 AX58 40130 
19 0091 256 -BYTE AXK19 ; 89 AX59 A0131 
5C 0092 257 .BYTE AA/\N/ ; 90 AXDA A0N132 
5C 0093 258 -BYTE AA/\/ ; 91 AX5B A0133 
1C 0094 259 .BYTE AKX1C ; 92 AX5C A0134 
10 0095 260 -BYTE AX1D ; 93 AXSD A0135 
1E 0096 261 -BYTE AX1E ; 94 AXSE A0136 
1F 0097 262 .BYTE AX1F ; 95 AXSF A0137 
7D 0098 263 ~-BYTE AASY/ ; 96 AX60 AQ140 
7E 0099 264 .BYTE AAL~/ ; 97 AXKG61 AQO141 
73 QO9A 265 .BYTE AA/s/ ; 98 AKX62 AQ142 
74 OO9B 266 ~BYTE AA/St/ ; 99 AXK63 A0143 
75 OO9C 267 .BYTE AA/u/ ; 100 AX64 AQO144 
76 OO9D 268 .BYTE AA/v/ ; 101 AX65 A0145 
77 =QO9E 269 -BYTE AA/w/ ; 102 AX66 A0146 
78 OO9F 270 .BYTE AA/x/ ; 103 AX67 A0147 
79 OOAO 271 .BYTE AARsy/ ; 104 AX68 A0150 
SC OOA1 272 -BYTE AR/N\/ ; 105 AX69 AQ151 
SC O0A2 273 ~BYTE AA/\/ ; 106 AX6A AQO152 
5C O0A3 274 -BYTE AA/N\S ; 107 AX6B AQ1S3 
SC OO0A4 275 .BYTE AA/\/ ; 108 AX6C A0154 
5C OQOOA5 276 -BYTE  AA/\/ ; 109 AX6D A0155 
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VO03-002 10-MAR-1982 20:31:59 DISK$VMSMASTER: [DRIVER.SRC]CRDRIVE(1) 
5C OOA6 277 .BYTE AA/\/ ; 110 AX6E AQ156 
5C OOA7 278 .BYTE AA/\/ ; 111 AX6F AO157 
7A OOA8 279 .BYTE AA/z/ 5 112 AX70 A0160 
5C OOAQ 280 .BYTE AA/\/ ; 113 AX71 AO161 
5C OOAA 281 .BYTE AA/\/ ; 114 AX72 A0162 
5C OOAB 282 .BYTE AA/\/ > 115 AX73 A0163 
5C OOAC 283 .BYTE AA/\/ ; 116 AX74 A0164 
5C OOAD 284 .BYTE AA/\/ ; 117 AX75 AQ165 
5C OOAE 285 .BYTE AA/\/ ; 118 AX76 A0166 
5C OOAF 286 .BYTE AA/\/ ; 119 AX77 AO167 
5C o00BO 287 .BYTE AA/\/ : 120 AX78 A0170 
5C 00B1 288 .BYTE AA/\/ ; 121 AX79 AQ171 
5C 00B2 289 .BYTE AA/\/ 3 122 AXTA AQ172 
5C 0083 290 .BYTE AA/\/ ; 123 AX7B A0173 
5C O00B4 291 .BYTE AA/\/ ; 124 AX7C A0174 
5C OOB5 292 .BYTE AA/\/ ; 125 AX7D AQ175 
5C OOB6 293 .BYTE AAB/\/ ; 126 AX7TE AO176 
5C 00B7 294 .BYTE AA/\/ ; 127 AX7TF AQ177 
26 OOB8 295 .BYTE AA/&/ ; 128 AX80 A0200 
41 OOB9 296 .BYTE AA/A/ ; 129 AX81 AQ201 
42 OOBA 297 .BYTE AA/B/ ; 130 AX82 AQ202 
43 OOBB 298 .BYTE AA/C/ : 131 AX83 A0203 
44 ooBc 299 .BYTE AA/D/ 3; 132 AX84 A0204 
45 OOBD 300 .BYTE AA/E/ ; 133 AX85 AQ205 
46 OOBE 301 .BYTE AA/F/ ; 134 AX86 A0206 
47 OOBF 302 .BYTE AA/G/ ; 135 AXB7 AQ207 
48 0Ooco 303 .BYTE AA/H/ ; 136 AX88 A0210 
5C 00Cc1 304 .BYTE AA/\/ ; 137 AX89 A0211 
5B O00C2 305 .BYTE AA/[/ ; 138 AX8A AO212 
2E 00C3 306 .BYTE AA/./ ; 139 AX8B AQ213 
3C o0c4 307 .BYTE AA/</ ; 140 AX8C AQ214 
28 oocs 308 .BYTE AA/(/ ; 141 AX8D A0215 
2B OOC6 309 .BYTE AA/+/ ; 142 AXBE AQ216 
21 OOC7 310 .BYTE AA/1/ ; 143 AX8F AQ217 
49 0OOC8 311 .BYTE AA/I/ ; 144 AX90 AO220 
01 ooc9g 312 .BYTE AX01 ; 145 AX91 A0221 
02 OOCA 313 .BYTE AXO2 ; 146 AX92 AQ222 
03 oocsB 314 .BYTE AX03 > 147 AX93 A0223 
5C oocc 315 .BYTE AA/\/ ; 148 AX94 AQ224 
09 oocD 316 .BYTE AX09 ; 149 AXQ95 AQO225 
5C OOCE 317 .BYTE AA/\/ - 150 AX96 AQ226 
FF OOCF 318 .BYTE AXFF ; 151 AX97 AQ227 
5C o0O0DO 319 .BYTE AA/\/ ; 152 AX9B A0230 
5C OOD1 320 .BYTE AA/\/ ; 153 AX99 A023 1 
5C o00D2 321 -BYTE AA/\/ ; 154 AXQA A0232 
OB 00D3 322 .BYTE AXOB ; 155 AX9B AQ233 
oc o0D4 323 .BYTE AXOC ; 156 AX9C A0234 
OD oOODS5 324 .BYTE AXOD ; 157 AX9D A0235 
OE O0D6 325 .BYTE AXOE ; 158 AX9E A0236 
OF OOD7 326 .BYTE AXOF ; 159 AXQF AQ237 
7B oOObD8 327 <BYTE AA/{/ ; 160 AXAQ A0240 
61 oOoD9 328 .BYTE AA/a/ ; 161 AXA1 AQ241 
62 OODA 329 ..BYTE AA/b/ ; 162 AXA2 A0242 
63 0O0DB 330 .BYTE AA/c/ ; 163 AXA3 A0243 
64 oOODCc 331 .BYTE AA/A/ ; 164 AXA4 A0244 
65 oopDD 332 .BYTE AA/e/ ; 165 AXAS AQ245 
66 OODE 333 .BYTE AA/F/ ; 166 AXA6 A0246 
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V03-002 10-MAR-1982 20:31:59 DISK$VMSMASTER: [DRIVER.SRC]CRDRIVE(1) 
67 OODF 334 .BYTE  AA/g/ ; 167  AXA7T  AO0247 
68 OOEO 335 .<BYTE = AA/H/ ; 168  AXAB AO250 
5C OOE1 336 -BYTE = AA/\/ ; 169 AXAQ <AO251 
5C OOE2 337 .<BYTE = AA/\/ ; 170 AXAA  AQ252 
5C OOE3 338 .BYTE = AA/\/ ; 171 AXAB AQ253 
5C O0E4 339 .BYTE = AA/\/ ; 172  AXAC  AO254 
5C OOES 340 .BYTE = AA/\/ ; 173  AXAD  <A0255 
5C OOE6 341 .BYTE = AA/\/ ; 174 AXAE <AO256 
5C OOE7 342 .BYTE = AA/\/ ; 175  AXAF AOQ257 
69 OOE8 343 .BYTE = AA/4/ ; 176 AXBO  <A0260 
5C OOEQ 344 .BYTE = AA/\/ ; 177 AXBI A0261 
5C OOEA 345 -<BYTE = AA/\/ ; 178 <AXB2 <A0262 
5C OOEB 346 -<BYTE = AA/\/ ; 179 <AXB3 <A0263 
5C OQOOEC 347 -BYTE AA/\/ ; 180 AXB4 A0264 
5C  QOOED 348 BYTE AA/\/ ; 181 AXB5 AQ0265 
5C OOEE 349 .<BYTE = AA/\/ ; 182 AXB6  A0266 
5C OOEF 350 .BYTE = AA/\/ ; 183 <AXB7 A0267 
5C OOFO 351 .BYTE = AA/\/ ; 184 <AXBB  <AO270 
5C OOF1 352 .<BYTE = AA/\/ ; 185 <AXBQ9  <AO271 
5C OOF2 353 .BYTE = AA/\/ ; 186 AXBA  <A0272 
5C OOF3 354 -<BYTE = AA/\/ ; 187 AXBB  A0273 
5C OOF4 355 .BYTE = AA/\/ ; 188 <AXBC <A0274 
5C OOFS 356 .<BYTE = AA/\/ ; 189 AXBD  A0O275 
5C OOF6 357 -<BYTE = AA/\/ ; 190 AXBE A0O276 
5C OOF7 358 .BYTE = AA/\/ ; 191 AXBF  AQ277 
7C OOF8 359 .BYTE = AA/|-/ ; 192 AXCO Aod300 
6A OOFS9 360 .<BYTE = AA/3/ ; 193  AXC1 AQ301 
6B OOFA 361 -BYTE = AA/K/ ; 194  AXC2 A0302 
6C OOFB 362 -<BYTE = AA/1/ ; 195 AXC3 A0303 
6D OOFC 363 .BYTE = AA/m/ ; 196 AXC4 A0304 
6—E OOFD 364 .BYTE = AA/n/ ; 197 AXC5  AO305 
6F OOFE 365 .<BYTE = AA/o/ ; 198  AXC6  <AO0306 
70 OOFF 366 .BYTE = AA/p/ ; 199  AXC7  AO307 
71 0100 £367 .BYTE = AA/q/ ; 200 AXCB8 <A0310 
5C 0101 368 .BYTE = AA/\/ ; 201 AXCQ9 = ADB 11 
5C 0102 369 .BYTE = AA/\/ ; 202 AXCA A0312 
5C 0103 £370 -BYTE = AA/\/ ; 203 AXCB  A0313 
5C 0104 #371 .BYTE = AA/\/ ; 204 <AxCC A0314 
5C 0105 372 .BYTE = AA/\/ ; 205 AXCD A0315 
5C 0106 373 .BYTE = AA/\/ ; 206 AXCE <A0316 
5C 0107 374 .BYTE = AA/\/ ; 207 AXCF  A0O317 
72 O108 375 -BYTE AA/r/ ; 208 AXDO AQ320 
5c 0109 376 BYTE AA/\/ ; 209 AXD1 A0321 
5C 010A 377 .BYTE = AA/\/ ; 210 AXD2 A0322 
5C 010B 378 .BYTE = AA/\/ ; 211 AXD3  A0323 
5C 010C 379 -<BYTE = AA/\/ ; 212 AXD4 <Aa0324 
5C 010D 380 .BYTE = AA/\/ ; 213 AXD5 A0325 
5C O10E 381 -<BYTE = AA/\/ ; 214 AXD6 A0326 
5C O10F 382 .<BYTE = AA/\/ ; 215 AXD7 A0327 
5C 0110 383 -<BYTE = AA/\/ ; 216 AXD8 <A0330 
10 0111 384 .BYTE  AX10 ; 217 AXDQ9 A0331 
5C 0112 385 .BYTE = AA/\/ ; 218 <AXDA <A0332 
5C 0113 386 .BYTE = AA/\/ ; 219 AXDB A0333 
5C 0114 387 .BYTE = AA/\/ ; 220 AXDC A0334 
5C 0115 388 .BYTE = AA/\/ ; 221 AXDD A0335 
5C 0116 389 .BYTE = AA/\/ ; 222 AXDE A0336 

; 223 AXDF <A0337 


5C 0117 390 -BYTE AR/N/ 
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V03-002 10-MAR-1982 20:31:59 DISK$VMSMASTER: [DRIVER.SRC]CRDRIVE(1) 
5C 0118 391 .BYTE AA/\/ ; 224 AXEO A0340 
5C 0119 392 .BYTE AA/\/ ; 225 AXE 1 A0341 
5C O11A 393 .BYTE AA/\/ 3; 226 AXE2 A038 42 
5C 0118 394 .BYTE AA/\/ 3 227 AXE3 A0343 
5C 011C 395 BYTE AA/\/ ; 228 AXE4 A0344 
5c 011D 396 .BYTE AA/\/ ; 229 AXES AQ345 
5C O11E 397 BYTE AA/\/ ; 230 AXE6 A003 46 
5C O11F 398 .BYTE AA/\/ 3 231 AXE7 AQ0347 
5C 0120 399 .BYTE AA/\/ 3 232 AXE8B AO0350 
5C 0121 400 .BYTE AA/\/ ; 233 AXEQ AQO351 
5C 0122 401 -BYTE AA/\/ ; 234 AXEA A0352 
5C 0123 402 .BYTE AA/\/ ; 235 AXEB A0353 
5C 0124 403 .BYTE AA/\/ ; 236 AXEC AQ354 
5C 0125 404 -BYTE AA/\/ 3 237 AXED AQ355 
5C 0126 405 .BYTE AA/\/ ; 238 AXEE A0356 
5C 0127 406 .BYTE AA/\/ ; 239 AXEF AQ357 
5C 0128 407 -BYTE AA/\/ ; 240 AXFO AO360 
5C 0129 408 .BYTE AA/\/ ; 241 AXF 1 A0361 
5C 012A 409 BYTE AA/\/ 3; 242 AXF2 A0362 
5C 012B 410 .BYTE AA/\/ ; 243 AXF3 A0363 
5C 012C 411 -BYTE AA/\/ 3; 244 AXF4 A0364 
5C 012D 412 BYTE AA/\/ ; 245 AXF5 AQ365 
5C 0O12E 413 -BYTE AA/\/ ; 246 AXF6 AQ366 
5C 012F 414 .BYTE AA/N\/ ; 247 AXF7 AQ367 
5C 0130 415 -BYTE AA/\/ ; 248 AXFB A0370 
5C 0131 416 .BYTE AA/\/ ; 249 AXFQ A037 1 
5C 0132 417 .BYTE AA/\/ ; 250 AXFA A0372 
5C 0133 418 .BYTE AA/\/ ; 251 AXFB A0373 
5C 0134 419 BYTE AA/\/ ; 252 AXFC A0374 
5C 0135 420 -BYTE AA/\/ 3 253 AXFD AQ375 ° 
5C 0136 421 -BYTE AA/\/ ; 254 AXFE A0376 
5C 0137 422 -BYTE AA/\/ ; 255 AXFF AQ377 

0138 423 

0138 424 ; 

0138 425 ; 026 CONVERSION TABLE 

0138 426 ; 

0138 427 

0138 428 CR_CVTO26: 3026 TRANSLATE TABLE 
20 0138 429 -BYTE AAs / 3 8) AX00 AOO000 
31 0139 430 .BYTE AA/1/ ; 1 AX01 A0001 
32 013A 431 BYTE AA/2/ ; 2 AX02 AQO002 
33 013B 432 -BYTE AA/3/ 3 3 AX03 AQ003 
34 013C 433 .BYTE AA/4/ $ 4 AX04 A0004 
35 013D 434 .BYTE AA/5/ 3 5 AX05 A0005 
36 O13E 435 .BYTE AA/6/ 3 6 AX06 AQ006 
37 O13F 436 .BYTE AA/T/ ; 7 AX07 A0007 
38 0140 437 -BYTE AA/B/ : 8 AX08 A0010 
60 0141 438 .BYTE AA/*/ 3 9 AX09 AQ0O11 
5SF 0142 439 »-BYTE AA/_/ ; 10 AXOA A0012 
3D 60143 440 -BYTE AA/=/ 7 11 AX0B A0013 
40 0144 441 -BYTE AA/@/ ; 12 AXOC A0N014 
5E 0145 442 .BYTE AA/A/ ; 13 AXO0D A0015 
27 0146 443 .BYTE AAs‘ / ; 14 AXOE A0016 
5C 0147 444 .BYTE AA/\/ 3 15 AXOF AQ017 
39 0148 445 -BYTE AA/9/ 3 16 AX10 A0020 
5C 0149 446 -BYTE AA/\/ 3 17 AX11 AOO021 
16 O14A 447 ~-BYTE AX16 : 18 AX12 A0022 
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V03-002 10-MAR-1982 20:31:59 DISK$VMSMASTER: [DRIVER.SRC]CRDRIVE(1) 
5C 0146 448 .BYTE AA/N/ ; 19 AK13 A0023 
5C 014C 449 -BYTE AA/N/ ; 20 AX14 A0024 
SC 0140 450 -BYTE AA/\/ 3. 024 AX15 A0025 
5C 0O14E 451 -.BYTE AA/\/ she 22 AX16 A0026 
04 O14F 452 -BYTE AX04 ; 23 AX17 A0027 
5C 0150 453 .BYTE AA/\/ ; 24 AX18 A0030 © 
5C 0151 454 ~BYTE AA/\/ $. £29 AX19 A0031 
5C 0152 455 ~BYTE AA/\/ ; 26 AX1A A0032 
5C 0153 456 .BYTE AA/\/ ; 27 AX1B A0033 
14 0154 457 .BYTE AX14 ; 28 AK1C A0034 
15 0155 458 .BYTE AX15 ; 29 AX1D A0035 
5C 0156 459 -BYTE AA/\/ ; 30 AXKI1E A0036 
1A 0157 460 .BYTE AXA ; 31 AX1F A0037 
30 0158 461 -BYTE AA/O/ eo. £32 AX20 A0040 
2F 0159 462 .BYTE AA\/\ ; 33 AK21 A0041 
53 O15A 463 ~-BYTE AR/S/ ; 34 AK22 A0042 
54 0158 464 .BYTE AA/T/ ; 35 AK23 A0043 
55 0O15C 465 .BYTE AA/U/ ; 36 AX24 A0044 
56 015D 466 .BYTE AAIN/ y 32 AX25 A0045 
57 0O15E 467 .BYTE AA/W/ ; 38 AXKX26 AO0046 
58 O15F 468 .BYTE AA/X/ ; 39 AX27 A0047 
59 0160 469 -BYTE AASY/ ; 40 AX28 A0.050 
5C 0161 470 -BYTE AA/\/ >; 41 AK29 A005 1 
3B 0162 471 -BYTE AAS ;/ 3; 42 AK2A A0052 
2C 0163 472 -BYTE AA/ ,/ ; 43 AX2B A0053 
28 0164 473 .BYTE AA/(/ ; 44 AX2C A0054 
22 0165 474 -BYTE AAS" / ; 45 AX2D AO055 
23 0166 475 -BYTE AAS#/ ; 46 AX2E A0056 
25 0167 476 .BYTE AAS%/ ; 47 AK2F AQO057 
SA 0168 477 -BYTE AAIZ/ ; 48 AX30 AO060. 
5C 0169 478 ~BYTE AA/\/ ; 49 AX3 1 AO061 
5C O16A 479 »-BYTE AA/\/ ; 50 AX32 AO0062 
5C 0O16B 480 »-BYTE AA/\/ ; 81 AX33 A0063 
sC O016C 481 ~BYTE AA/N/ 3; o2 AX34 A0064 
OA 0O16D 482 -BYTE AXOA ; 533 AXK35 AQ065 
17 O16E 483 .BYTE AK17 ; $4 AX36 AO066 
1B O16F 484 -BYTE AX1B ; 55 AX37 A0067 
5C 0170 485 -BYTE AA/N/ ; 56 AX38 A0070 
5C 0171 486 -BYTE AA/\/ ; OF AX39 40071 
5C 0172 487 -BYTE AA/\/ ; 58 AX3A AQO072 
5C 0173 488 -BYTE AA/\/ ; 59 AX3B A0073 
5C 0174 489 .BYTE AA/\/ ; 60 AX3C. A0074 
05 0175 490 ~BYTE AX05 ; 61 AX3D AQ075 
06 0176 491 »BYTE AX06 3; 62 AX3E A0076 
O07 0177 492 -BYTE AXO7 ; 63 AX3F A0077 
2D 0178 493 -BYTE AA/-/ ; 64 AX40 A0100 
4A 0179 494 ~-BYTE AAS S/ ; 65 AX41 A0101 
4B O17A 495 -BYTE AA/SK/ ; 66 AK42 A0102 
4C 017B 496 .BYTE AA/L/ ; 67 AX43 A0N103 
4D O017C 497 -BYTE AA/M/ ; 68 AX44 A0104 
4E—E 017D 498 ~BYTE AA/N/ ; 69 AK45 A0105 
4F OI7E 499 .BYTE AA/O/ ; 70 AX46 A0106 
50 O17F 500 .-BYTE AA/P/ ; 71 AK47 A0107 
51 0180 501 .BYTE AA/Q/ 3; 72 AX48 A0110 
5C 0181 502 - BYTE AA/\/ ; 73 AX49 AO0111 
3A 0182 503 -BYTE AA/:/ ; 74 AX4A AQ112 
24 0183 504 -BYTE AASG/ ; 75 AX4B A0113 


CRDRIVER - CR11 CARD READER DRIVER 3-JUN-1984 11:02:03 VAX-11 Macro V03-01 Page 10 


V03-002 10-MAR-1982 20:31:59 DISKS$VMSMASTER: [DRIVER.SRC]CRORIVE(1) 
2A 0184 505 -BYTE AA/*/ ; 76 AX4C AQ114 
5B 0185 506 -BYTE AA/{/ 77 AX4D AQ115 


3E 0186 507 -BYTE AA/>/ 78 AX4E A0116 
26 0187 508 -BYTE AA/&/ 79 AX4F AQ117 
52 0188 509 -BYTE AA/R/ 80 AX50 A0120 
11 0189 510 ~-BYTE AX11 81 AX5 1 AQ0121 
12 O18A 511 -BYTE AX12 82 AX52 A0122 
13 018B 512 .BYTE AK13 83 AXS3 A0123 
5C 018C 913 -BYTE AA/\/ 84 AX54 AQ124 
5C 018D 514 -BYTE AA/\/ 85 AX55 A0125 
08 O18E 515 -BYTE AX08 86 AX56 AQ126 
5C O18F 516 -BYTE AA/\/ 87 AX57 AO127 
18 0190 517 -BYTE AX18 88 AX58 A0130 
19 0191 518 -BYTE AK19 89 AX59 A0131 
5C 0192 519 .BYTE AA/\/ 90 AXSA A0132 
5C 0193 520 -BYTE AA/N\/ 91 AX5B A0133 
ic 60194 521 -BYTE AX1C 92 AXSC A0134 
1D 0195 522 -BYTE AX1D 93 AX5D A0135 
1E 0196 523 -BYTE AX1E 94 AXSE A0136 
1F 0197 524 -BYTE AK1F 95 AXSF A0137 
7D 0198 525 .BYTE AA/}/ 96 AX60 A0140 
7E 0199 526 -BYTE AA/~/ 97 AX61 A0O141 
73 O19A 527 -BYTE AA/S/ 98 AX62 A0142 
74 0198 528 -BYTE AASt/ 99 AX63 A0143 
75 019C 529 -BYTE AA/u/ 100 AX64 A0144 
76 O19D 530 -BYTE AA/v/ 101 AX65 A0145 


we we we Oe we ee we we we we we we we we Ot Oe ee we we ee Oe we wt we He OH Oe wt OO we we we we we we we we we Ot Oe we we we ee we ee ee we we we we we we ee we we ww 
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77 «=QO19E 531 -BYTE AA/w/ 102 AX66 A0146 
78 O19F 532 ~BYTE AAS x/ 103 AX67 A0147 
79 QO1A0 533 -BYTE AAsy/ AX68 A0150 
5C O1A1 534 -BYTE AASN/ 105 AK69 AQ151 
5C O1A2 535 -BYTE AA/N\/ 106 AX6A A0N152 
5C O1A3 536 - BYTE AA/N/ 107 AX6B A0153 
5C O1A4 537 - BYTE AA/\/ 108 AX6C A0154 
5C O1A5 538 -BYTE AA/N/ 109 AX6D AO155 
5C O1A6 539 -BYTE AA/\S 110 AX6E A0156 
5C O1A7 540 -BYTE AA/N/ 114 AX6F AQ157 
7A O1A8 541 .BYTE AAS2/ 112 AX70 A0160 
5C O1A9 542 -BYTE AA/N/ 113 AX71 A0161 
5C O1AA 543 -BYTE AA/\/ 114 AX72 A0162 
5C O1AB 544 -BYTE = AA/S\/ 115 AX73 A0163 
5C O1AC 545 .BYTE AA/\/ 116 AX74 A0164 
5C O1AD 546 -BYTE AA/\/ 117 AX75 A0165 
5C O1AE 547 .BYTE AA/S\/ 118 AX76 A0166 
5C O1AF 548 -BYTE AAS\/ 119 AX7T7 A0167 
5C 0180 549 -BYTE AA/\/ 120 AX78 A0170 
5C O1B1 550 -BYTE AA/\/ 121 AXK79 A0171 
5C O1B2 551 -BYTE AAR/\/ 122 AXTA A0172 
5C 0183 552 -BYTE AA/\/ 123 AX7B A0173 
5C 0184 553 -BYTE AA/\/ 124 AX7C A0174 
5C 01B5 554 -BYTE AA/\/ 125 AX7D A0175 
5C 0O1B6 555 .BYTE AA/\/ 126 AXTE A0176 
5C 0187 556 -BYTE AA/\/ 127 AX7TF AOQ177 
2B 0188 557 ~BYTE AA/+/ 128 AXBO AQO200 
41 O1B9 558 -BYTE AA/SA/ 129 AX8 1 A0201 
42 O1BA 559 -BYTE AA/B/ 130 AXB2 A0202 
43 0O1BB 560 -BYTE AA/C/ 131 AX83 AQ203 
44 O1BC 561 -BYTE AA/D/ 132 AX84 A0204 
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V03-002 10-MAR-1982 20:31:59 DISK$VMSMASTER: [DRIVER.SRC]CRDRIVE(1) 
45 01BD 562 .BYTE AA/E/ ; 133 AX85 AQ205 
46 O1BE 563 .BYTE AA/F/ ; 134 AX86 A0206 
47 0O1BF 564 .BYTE AA/G/ ; 135 AXB7 AOQ207 
48 01CO 565 .BYTE AA/H/ ; 136 AX8B A0210 
5C O1C1 566 .BYTE AA/\/ ; 137 AX89 A0211 
3F 01C2 567 .BYTE AA/?/ ; 138 AXBA A0212 
2E 01C3 568 .BYTE AA/ ./ ; 139 AX8BB A0213 
29 01C4 569 .BYTE AA/)/ ; 140 AX8C AQ214 
5D 01C5 570 .BYTE AA/}/ ; 141 AX8D AQ0215 
3C 01C6 571 .BYTE AA/</ ; 142 AXBE AQ216 
21 01C7 572 .BYTE AA/!/ ; 143 AXBF AQO217 
49 01CB 573 .BYTE AA/T/ ; 144 AX90 AQ220 
01 01C9 574 .BYTE AX01 > 145 AX9 1 A0221 
02 O1CA 575 .BYTE AXO02 ; 146 AX92 AQ222 
03 O1CB 576 .BYTE AX03 ; 147 AX93 A0223 
5C oO1cc 577 -, BYTE AA/\/ ; 148 AX94 AQ224 
09 O1CD 578 .BYTE AX09 ; 149 AX95 AQ225 
5C O1CE 579 .BYTE AA/\/ ; 150 AX96 AQ0226 
FF O1CF 580 .BYTE AXFF ; 151 AXQ7 AQ227 
5C 01D0 581 .BYTE AA/\/ ; 152 AX98B A0230 
5C 01D1 582 .BYTE AA/\/ ; 153 AX99 A0231 
5C 01D2 583 .BYTE AA/\/ ; 154 AX9OA AQ232 
OB 01D3 584 .BYTE AXOB 5 155 AX9B A0233 
oC 01D4 585 .BYTE AXOC > 156 AXQ9C A0234 
0D 01D5 586 .BYTE  AxXOD ; 157 AX9D A0235 
OE 01D6 587 .BYTE AXOE ; 158 AXQE A0236 
OF 0107 588 .BYTE AXOF ; 159 AXQOF AQ237 
7B 01D8 589 .BYTE AB/{/ ; 160 AXAO AQ240 
61 01D9 590 .BYTE AR/a/ ; 161 AXA] A0241 
62 O1DA 591 .BYTE AA/b/ > 162 AXA2 A0242 
63 01DB 592 .BYTE AA/c/ ; 163 AXA3 A0243 
64 0O1DC 593 .BYTE AA/d/ > 164 AXA4G A0244 
65 01DD 594 -BYTE AA/e/ ; 165 AXA5S 40245 
66 0O1DE 595 .BYTE AA/F/ ; 166 AXA6 AQ246 
67 O1DF 596 .BYTE AA/g/ ; 167 AXAT AQ247 
68 O1E0 597 .BYTE AA/H/ ; 168 AXAB AQ250 
5C O1£1 598 .BYTE AA/\/ ; 169 AXAQ AQ251 
5C O1E2 599 .BYTE AA/\/ ; 170 AXAA  ‘AQ252 
5C 0O1E3 °&#£4600 .BYTE AR/\/ ; 171 AXAB AQ253 
5C O1E4 601 .BYTE AA/\/ (APD AXAC AQ0254 
5C O1E5 602 .BYTE AAR/\/ » 173 AXAD AQ255 
5C O1E6 603 .BYTE AA/\/ » 174 AXAE . AQ256 
5C O1E£7 604 .BYTE AA/\/ ; 175 AXAF AQ257 
69 0O1E8 605 .BYTE AA/i/ ; 176 AXBO A0260 
5C O1E9 606 .BYTE AAR/\/ ; 177 AXB1 AQ261 
5C O1EA 607 .BYTE AA/\/ ; 178 AXB2 AO262 
5C O1EB 608 .BYTE AAR/\/ ; 179 AXB3 A0263 
5C O1EC 609 .BYTE AR/\/ ; 180 AXB4 A0264 
5C O1ED 610 .BYTE AA/\/ ; 181 AXB5 A0265 
5C O1EE 611 .BYTE AR/\/ ; 182 AXB6 AO266 
5C O1EF 612 .BYTE AA/\/ ; 183 AXB7 AQ267 
5C O1FO 613 .BYTE AA/\/ ; 184 AXBB AQO270 
5C O1F1 614 .BYTE AA/\/ ; 185 AXBQ AQ271 
5C O1F2 615 .BYTE AA/\/ ; 186 AXBA AQ272 
5C O1F3 616 .BYTE AA/\/ ; 187 AXBB AQ273 
5C O1F4 617 .BYTE AA/\/ ; 188 AXBC AO274 
5C OFS 618 .BYTE AA/\/ ; 189 AXBD AQ275 
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- CR11 
5C O1F6 
5C O1F7 
7C O1F8 
6A O1F9 
6B OI1FA 
6C O1FB 
6D O1FC 
6E O1FD 
6F O1FE 
70 O1FF- 
71 0200 
5C 0201 
5C 0202 
5C 0203 
5C 0204 
5C 0205 
5C 0206 
5C 0207 
72 0208 
5C 0209 
5C O20A 
—5C O20B 
5C 020C 
5C 020D 
5C O20E 
5C O020F 
5C 0210 
10 0211 
5C 0212 
5C 0213 
sC 0214 
SC 0215 
5C 0216 
5C 0217 
5C 0218 
5C 0219 
SC O21A 
5C 021B 
5C O21C 
5C 0210 
SC O21E 
5C O21F 
5C 0220 
5C 0221 
5C 0222 
5C 0223 
SC 0224 
SC 0225 
5C 0226 
5C 0227 
5€ 0228 
5C 0229 
5C 022A 
5C 0228 
5C O022C 
5C O022D 
5C O22E 


619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 


675 


CARD READER DRIVER 


-BYTE 
~-BYTE 
-BYTE 
.BYTE 
.BYTE 
.BYTE 
-BYTE 
.BYTE 
.BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
.BYTE 
-BYTE 
-BYTE 
. BYTE 
»-BYTE 
-BYTE 
-BYTE 
.BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
BYTE 
-BYTE 
.BYTE 
-BYTE 
.BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
-BYTE 
-BYTE 
.BYTE 
-BYTE 
-BYTE 
.BYTE 
-BYTE 
-BYTE 
-BYTE 


AA/\/ 
AA/\/ 
AA/|/ 
AA/ j/ 
AA/K/ 
AA/\/ 
AA/m/ 
AA/n/ 
AA/o/ 
AA/p/ 
AA/Q/ 
AA/\/ 
AA/\/ 
AA/\/ 
AA/\/ 
AA/\1/ 
AA/\/ 
AA/S\/ 
AA/c/ 
AA/\/ 
AA/\/ 
AA/\/ 
AA/\/ 
AA/\/ 
AA/\/ 
AA/\/ 
AA/\/ 
AX10 
AA/\/ 
AA/\/ 
AA/\/ 
AA/\/ 
AA/\/ 
AA/\/ 
AA/\/ 
AA/\/ 
AA/\/ 
AA/\/ 
AR/\/ 
AA/\/ 
AA/\/ 
AA/\/ 
AA/\/ 
AA/\/ 
AA/\/ 
AA/\/ 
AA/\/ 
AA/\/ 
AA/\/ 
AA/\/ 
AA/\/ 
AA/\/ 
AA/\/ 
AA/\/ 
AA/\/ 
AA/\/ 
AA/\/ 
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190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
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DISK$VMSMASTER: [DRIVER. SRC] CRDRIVE(1) 


AXBE 
AXBF 
AXCO 
AXC1 
AXC2 
AXC3 
AXC4 
AXC5 
AXC6 
AXC7 
AXCB 
AXCQ 
AXCA 
AXCB 
AXCC 
AXCD 
AXCE 
AXCF 
AXDO 
AXD1 
AXD2 
AXD3 
AXD4 
AXD5 
AXD6 
AXD7 
AXD8 
AXDQ 
AXDA 
AXDB 
AXDC 
AXDD 
AXDE 
AXDF 
AXEO 
AXE 1 
AXE2 
AXES 
AXE4 
AXES 
AXE6 
AXE7 
AXEB 
AXEQ 
AXEA 
AXEB 
AXEC 
AXED 
AXEE 
AXEF 
AXFO 
AXF 1 
AXF2 
AXF3 
AXF4 
AXF5 
AXF6 


AO276 
AQ277 
AQ300 
A0301 
AO302 
AQ0303 
A0304 
AO305 
A0306 
AQ307 
A03 10 
AQ3 11 
A0312 
A0313 
A003 14 
AQ315 
AO316 
AQ317 
A0320 
A0321 
A0322 
A0323 
A0324 
A0325 
AO326 
AO327 
A0330 
A033 1 
A0332 
A0333 
A0334 
AQ335 
A0336 
A0337 
A0340 - 
A0341 
A0342 
A0343 
A0344 
A0345 
A0346 
AQ3847 
A0350 
A0351 
A0352 
A0353 
A0354 
A0355 
A0356 
AQ357 
AO360 
A036} 
A0362 
A0363 
40364 
AQ365 
A0366 
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V03-002 1O-MAR-1982 20:31:59 DISK$VMSMASTER: [DRIVER.SRC]CRDRIVE(1) 
5C 022F 676 .BYTE AA/\/ ; 247 AXKF7 AQ0367 
5C 0230 677 BYTE AA/\/ ; 248 AXF8 A0370 
SC 0231 678 -BYTE AA/\/ ; 249 AXKFQ A037 1 
5C 0232 679 -BYTE AA/\/ ; 250 AXFA AN372 
5C 0233 680 -BYTE AA/\N/ ; 251 AXFB A0373 
SC 0234 68 1 -BYTE AA/\/ ; 252 AXFC A0374 
5C 0235 682 -BYTE AA/\/ ; 253 AXFD A0375 
5C 0236 683 -BYTE AA/\/ ; 254 AXFE AO0376 
5C 0237 684 -BYTE AA/\/ ; 255 AXFF A0377 


CRDRIVER 
V03-002 


~ CR11 


CR11 


CARD READER DRIVER 


FUNCTION DECISION TABLE 


0238 
0238 
0238 
0238 
0238 
0238 
0238 
0238 
0238 
0238 
0238 
0238 
0238 
0238 
0238 
0240 
0240 
0240 
0240 
0240 
0240 
0240 
0240 
0240 
0248 
0248 
0248 
0248 
0248 
0254 
0254 
0254 
0254 
0260 
0260 
0260 
0260 


686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 


.SBTTL 


; CR11 FUNCTION 


CR_FUNCTABLE: 
FUNCTAB 


FUNCTAB 


FUNCTAB 


FUNCTAB 


FUNCTAB 
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CR11 FUNCTION DECISION TABLE 


DECISION TABLE 


;FUNCTION DECISION TABLE 


,7 ; LEGAL FUNCTION 
<READLBLK,-— ;READ LOGICAL BLOCK 
READPBLK, — ;READ PHYSICAL BLOCK 
READVBLK,- sREAD VIRTUAL BLOCK 
SENSEMODE, - ; SENSE READ MODE 
SENSECHAR,-— ; SENSE READER CHARACTERISTICS 
SETMODE, - ;SET READER MODE 
SETCHAR,~— ;SET READER CHARACTERISTICS 
> 3 
+7 ;BUFFERED I/O FUNCTIONS 
<READLBLK,— ;READ LOGICAL BLOCK 
READPBLK, — ;READ PHYSICAL BLOCK 
READVBLK, — ;READ VIRTUAL BLOCK 
SENSEMODE, - ;SENSE READ MODE 
SENSECHAR ,- ;SENSE READER CHARACTERISTICS 
SETMODE, —- ;SET READER MODE 
SETCHAR, - ;SET READER CHARACTERISTICS 
2 ; 
CR_READ,~- ;READ FUNCTIONS 
<READLBLK, - sREAD LOGICAL BLOCK 
READPBLK,-— ;READ PHYSICAL BLOCK 
READVBLK,-— ;READ VIRTUAL BLOCK 
> : 
+EXESSETMODE, - ;SET MODE/CHARACTERISTICS FUNCTIONS 
<SETCHAR,- : ;SET READER CHARACTERISTICS 
SETMODE ,- ;SET READER MODE 
> a ; 
+EXE$SENSEMODE, — ; SENSE MODE/CHARACTERISTICS FUNCTIONS 
<SENSECHAR, — 3; SENSE READER CHARACTERISTICS 
SENSEMODE, - :; SENSE READER MODE 


> 


CRDRIVER 
V03-002 


SC AS 

04 

68 AS 01 
00000000’ GF 
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CARD READER DRIVER 


CANCEL I/0 ON CHANNEL 


BS 
12 


17 


026C 
026C 
026C 
O26C 
026C 
026C 
026C 
026C 
026C 
Q26C 
026C 
026C 
026C 
Q26C 
026C 
026C 
026C 
026C 
026C 
026C 
026C 
026C 
026C 
026C 
O26F 
0271 
0275 


724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
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.SBTTL CANCEL 1/0 ON CHANNEL 


;+ 


’ 
3 
5 
° 
’ 
. 
? 
° 
’ 
° 
’ 
. 
’ 
. 
’ 
. 
’ 
. 
’ 
. 
’ 
5 
. 
3 
. 
? 
° 
’ 
’ 
. 
’ 
» 
’ 
* 
’ 


CR_CANCELIO - CANCEL I/O ON CHANNEL 


THIS ROUTINE IS CALLED WHEN THE LAST CHANNEL ASSIGNED TO A DEVICE IS DEASSIGNED, 


THE DEVICE 
EXECUTED. 


INPUTS: 


wa 
Ww 
iow oi Wl 


OUTPUTS: 


IS DEALLOCATED, AND WHEN THE CANCEL I/O ON CHANNEL SYSTEM SERVICE IS 


NEGATIVE CHANNEL NUMBER. 

ADDRESS OF CURRENT I/O REQUEST PACKET. 
CURRENT PROCESS PCB ADDRESS. 

DEVICE UCB ADDRESS. 


THE DEVICE INDEPENDENT CANCEL 1/0 ROUTINE IS CALLED AND A CHECK IS MADE 
TO SEE IF THE UCB REFERENCE COUNT IS ZERO. IF THE REFERENCE COUNT IS ZERO, 


THEN 


CR_CANCELIO: 


1 


TSTW 
BNEQ 
BICW 
O$: JMP 


THE MESSAGE SENT TO JOB CONTROLLER BIT IS CLEARED. 


;CANCEL I/O ON CHANNEL 


UCB$wW_REFC(R5) ;REFERENCE COUNT ZERO? 

10$ ; IF NEQ NO 
#UCB$M_JOB,UCB$W_DEVSTS(R5) ;CLEAR MESSAGE SENT BIT 
GAIOC$CANCELIO ;CANCEL I/O ON CHANNEL 


CRDRIVER 
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50 6C 

51 04 AC 
5C 
00000000’ GF 
32 A3 51 
09 

51 50 8F 
03 20 A3 06 
51 02 

32 A383 51 
04 

32 A3 51 
51 oc 
00000000 ‘GF 
37 50 
00000000 ‘GF 
2E 50 

09 

2C A3 52 
30 A3 51 
50 

50 0080 C4 
20 AO 51 
50 

82 OC A2 
62 50 


00000000 ’ GF 
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0278 
027B 
0278 
027B 
027B 
027B 
027B 
0278 
027B 
027B, 
027B 
027B 
027B 
027B 
027B 
0278 
0278 
027B 
027B 
0278 
027B 
0278 
027B 
027B 
027B 
0278 
027B 
027B 
0278 
0278 
027B 
O27E 
0282 
0284 
028A 
O28E 
0290 
0294 
0299 
029C 
02A0 
02A2 
O2A6 
02A9 
O2AF 
02B2 
0288 
02BB 
02BD 
02¢c1 

02C5 


752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 


785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 


797 
798 
799 


801 
802 
803 
804 
805 
806 
807 
808 
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.SBTTL READ FUNCTION PROCESSING 
2+ 
; CR_READ - READ FUNCTION PROCESSING 
; THIS ROUTINE IS CALLED FROM THE FUNCTION DECISION TABLE DISPATCHER TO PROCESS 
; A READ LOGICAL, READ PHYSICAL, OR READ VIRTUAL FUNCTION TO A CARD READER. 
; INPUTS: 
: RO = SCRATCH. 
: Ri = SCRATCH. 
: R2 = SCRATCH. 
: R3 = ADDRESS OF I/0 REQUEST PACKET. 
; R4 = CURRENT PROCESS PCB ADDRESS. 
: R5 = ASSIGNED DEVICE UCB ADDRESS. 
: R6 = ADDRESS OF CCB. 
. R7 = I/O FUNCTION CODE. 
: R& = FUNCTION DECISION TABLE DISPATCH ADDRESS. 
: RQ = SCRATCH. 
; R10 = SCRATCH. 
; R11 = SCRATCH. 
: AP = ADDRESS OF FIRST FUNCTION DEPENDENT PARAMETER. 
; OUTPUTS: 
; THE FUNCTION PARAMETERS ARE CHECKED AND A BUFFER IS ALLOCATED FOR THE 
; CARD READER DRIVER TO READ A CARD IMAGE INTO. 
CR_READ ;READ FUNCTION PROCESSING 
MOVL P1(AP),RO ;GET ADDRESS OF USER BUFFER 
MOVZWL P2(AP),R1 ;GET LENGTH OF USER BUFFER 
BEQL 30$ ;IF EQL ZERO LENGTH TRANSFER 
JSB GAEXE$READCHK ;CHECK ACCESSIBILITY OF USER BUFFER 
MOVW R1,IRP$W_BCNT(R3) ; INSERT LENGTH OF USER BUFFER 
PUSHR = #AM<RO,R3> ;SAVE BUFFER AND I/O PACKET ADDRESSES 
MOVZBL #80,R1 ;SET LENGTH REQUIRED FOR ASCII READ 
BBC #10$V_BINARY,IRP$W_FUNC(R3),10$ ;IF CLR, ASCII READ 
. MULL #2,R1 ;SET LENGTH REQUIRED FOR BINARY READ 
10$: CMPW R1,IRP$W_BCNT(R3) ;LENGTH OF READ LARGER THAN USER BUFFER? 
BGEQU 20$ ;IF GEQU YES 
MOVW R1,IRP$W_BCNT(R3) ;SET LENGTH OF USER BUFFER TO SIZE OF READ 
20$: ADDL #12,R1 ;ACCOUNT FOR BUFFER OVERHEAD 
JSB GAEXE$BUFFRQUOTA ;CHECK IF PROCESS HAS SUFFICIENT QUOTA 
BLBC RO,40$ ;IF LBC QUOTA CHECK FAILURE 
JSB GAEXE$ALLOCBUF ;ALLOCATE BUFFER FOR CARD READ 
BLBC RO,40$ ;IF LBC ALLOCATION FAILURE 
POPR #AM<RO,R3> ;RETRIEVE BUFFER AND I/O PACKET ADDRESSES 
MOVL R2,IRP$L_SVAPTE(R3) ; INSERT ADDRESS OF READ BUFFER 
MOVW R1,IRP$W_BOFF(R3) ; INSERT NUMBER OF QUOTA BYTES CHARGED 
PUSHL ~— RO ;SAVE BUFFER ADDRESS 
MOVL PCB$L_JIB(R4),RO ;GET JIB ADDRESS 
SUBL R1,JIB$L_BYTCNT(RO) ;CHARGE PROCESS FOR BUFFER 
POPL RO ;RESTORE BUFFER ADDRESS 
MOVAB =: 12(R2), (R2)+ ; INSERT ADDRESS OF DATA AREA 
MOVL RO, (R2) ;SAVE ADDRESS OF USER BUFFER 
JMP GAEXE$QIODRVPKT ;QUEUE DRIVER PACKET 


CRDORIVER 
VO03-002 


50 01 
00000000’GF 
oc 


00000000 ’ GF 


- CRI1 


3c 
17 


BA 
17 


O2E0 
O2E0 
02E0 
O02E0 
O02E0 
O2E0 
02E3 
O2E9 
O2E9 
O2E9 
O2E9 
O2E9 
O2E9 
O02EB 
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809 
810 ; 
B11 
812 ; 
813 
814 30$: 
815 
816 
817 ; 
818 ; 
819 ; 
820 
821 
822 


ZERO LENGTH TRANSFER 


MOVZWL 
JMP 


#SS$_NORMAL,RO 
GAEXE$FINISHIOC 


;SET NORMAL COMPLETION STATUS 
;FINISH 1/0 


QUOTA OR BUFFER ALLOCATION FAILURE 


40$: POPR 


JMP 


#AMKR2 ,R3> 
GAEXESABORTIO 


;RETRIEVE I/0 PACKET ADDRESS 
;ABORT I/0 OPERATION 


CRDRIVER 
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23 


40 A5 


42 A5 
44 A5 


78 AS 
0091 
05 20 
0091 


0090 


54 


06 
20 


06 
20 


38 


3A 
3C 


00 
A3 
OD 
00 
A3 
12 


A3 


A3 
A3 


O16A 


2c 
c5 


cS 
0091 
0092 
C5 
0093 
24 


B3 


06 
08 
C5 
C5 
01 


A5 
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ED 


13 
ED 


BO 


BO 


31 


DO 


E1 
90 
90 


BE 
94 
DO 


O2F1 
O2F1 
O2F1 
O2F1 
O2F1 
O2F1 
O2F1 
O2F1 
O2F1 
O2F1 
02F1 
O2F1 
O2F1 
O2F1 
O2F1 
02F1 
O2F1 
02F1 
O2F 1 
O2F1 
O2F1 
O2F1 
O2F1 
O2F1 
02F4 
O2F7 
02F9 
O2FC 
O2FF 
0301 
0301 
0301 
0301 
0301 
0301 
0306 
0306 
0306 
0306 
0306 
0306 
030B 
0310 
0313 
0313 
0313 
0313 
0313 
0313 
0318 
031D 
0322 
0327 
032B 
032E 
0333 
0337 


824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 


877 
878 
879 


_SBTTL START I/O OPERATION ON CR11 CARD READER 
3+ 
> CR_STARTIO - START I/O OPERATION ON CR11 CARD READER 
! THIS ROUTINE IS ENTERED WHEN THE ASSOCIATED UNIT IS IDLE AND A PACKET IS 
» AVAILABLE FOR PROCESSING. 
INPUTS: 
: R3 = ADDRESS OF I/O REQUEST PACKET. 
; R5 = ADDRESS OF DEVICE UNIT UCB. 
» OUTPUTS: 
: CARD MOTION IS STARTED BY SETTING THE APPROPRIATE FUNCTION BITS IN THE 
CONTROL STATUS REGISTER. AS EACH COLUMN INTERRUPT OCCURS, THE DATA FROM 
THE DATA BUFFER REGISTER(S) IS STORED IN THE BUFFER ALLOCATED BY THE 
: FDT ROUTINE. WHEN ALL 80 COLUMNS HAVE BEEN READ, A FORK PROCESS IS CREAT- 
ED, THE COLUMN DATA IS CONVERTED ACCORDING TO THE I/O FUNCTION CODE, AND 
: REQUEST COMPLETE IS CALLED FOR POST PROCESSING. 
CR_STARTIO: ;START 1/0 OPERATION 
CMPZV - #IRP$V_FCODE,#IRP$S_FCODE,- ;SET MODE FUNCTION? 
IRP$W_FUNC(R3) ,#I0$_SETMODE ; 
BEQL 10$ ;IF EQL YES 
CMPZV - #IRP$V_FCODE,#IRP$S_FCODE,- ;SET CHARACTERISTICS FUNCTION? 
IRP$W_FUNC(R3),#IO0$_SETCHAR ; 
BNEQ 20$ , IF NEQ NO 
; SET READER CHARACTERISTICS 
MOVW IRP$L_MEDIA(R3) ,UCB$B_DEVCLASS(RS5) ;SET DEVICE CLASS AND TYPE 
: SET READER MODE 
10$: MOVW IRP$L_MEDIA+2(R3),UCB$W_DEVBUFSIZ(RS) ;SET DEFAULT BUFFER SIZE 
MOVL IRP$L_MEDIA+4(R3) ,UCB$L_DEVDEPEND(R5) ;SET DEVICE DEPENDENT FLAGS 
BRW 140$ ; 
: SET UP PARAMETERS AND READ CARD 
20$: MOVL @IRP$L_SVAPTE(R3) ,UCB$L_SVAPTE(R5) ;SET ADDRESS OF BUFFER 
MOVB #1,UCB$B_CR_EOFCNT(R5) ~;SET END OF FILE COUNT FOR ASCII 
BBC #10$V_BINARYV, IRP$W_FUNC(R3),30$ ;IF CLR, ASCII READ 
MOVB #8,UCB$B_CR_EOFCNT(RS) ;SET END OF FILE COUNT FOR BINARY 
30$: MOVB UCB$B_CR_EOFCNT(RS) ,UCB$B_CR_EOFCOL(R5) ;SET REQUIRED NUMBER 
MNEGB #1,UCB$B_CR_COLCNT(R5) ;SET INITIAL COLUMN COUNT 
CLRB UCB$B_CR_OFLCNT(R5) 2SET INITIAL OFFLINE COUNT 
MOVL UCB$L_CRB(R5S) ,R4 ;GET ADDRESS OF CRB 


CRDORIVER 
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54 2c 


64 0100 


64 40 

22 64 AS 
01 

FFCC 0093 
0093 


54 


00000000’ 


00000000’ 


50 


B4 


8F 
5D 


El 


8F 


03 
OF 
C5 
cs 
18 
05 
GF 
53 
GF 
18 
B2 


2c 


OOF3 


64 40 


0082 
50 


8F 


cs 


0054 8F 


OODD 


02 
41 


64 co0o 


51 02 
52 04 
0090 


0094 C5 


- CR11 
DO 0338 
033F 
B3 0345 
13 O34A 
034C 
0356 
11 O35C 
O35E 
Q35E 
O35E 
O35E 
O35E 
9B O35E 
0362 
EO 0366 
9D O036B 
O36E 
94 0373 
BB 0377 
9A 0379 
9E O37C 
0382 
16 0383 
BA 0389 
11 O38B 
038D 
038D 
038D 
038D 
038D 
3C 038D 
31 0390 
0393 
0393 
0393 
0393 
9B 0393 
0397 
B6 O039D 
3C O3A1 
31 O3A6 
O3A9 
O3A9 
03A9 
O3A9 
O3A9 
BS O3A9 
9B O3AC 
O3AF 
03B0 
B3 OQO3BA 
12. O3BF 
BO 03C1 
BO 0O3C5 
96 03C9 
12 O3CO 
‘BO O3CF 


880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 


896 
897 
898 
899 


900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
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MOVL | 
DSBINT 
BITW 
BEQL 
WFIKPCH 
IOFORK 
BRB 


40$: 


ples at 
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@CRB$L_INTD+VEC$L_IDB(R4),R4 ;GET DEVICE CSR ADDRESS 
;DISABLE INTERRUPTS 


#CR_CSR_M_OFFLIN,CR_CSR(R4) ;READER OFFLINE? 


70$ ;IF EQL NO 

50$,#2 ;WAIT FOR TIMEOUT 
;CREATE FORK PROCESS 

40$ ; 


; READER TIME OUT OR DEVICE ERROR 


50$: MOVZBW 
SETIPL 
BBS 
ACBB 


CLRB 
PUSHR 
MOVZBL 
MOVAB 


JSB 
POPR 
BRB 


#CR_CSR_M_IE,CR_CSR(R4) ;CLEAR READER ERRORS 

UCB$B_FIPL(RS) ;LOWER TO DEVICE FORK LEVEL 
#UCB$V_CANCEL,UCB$W_STS(R5),60$ ;IF SET, CANCEL 1/0 REQUESTED 
#15,#1,UCB$B_CR_OFLCNT(R5),40$ ;IF SET, NOT TIME FOR MESSAGE 


UCB$B_CR_OFLCNT(RS5) 
#AM<R3,R4> 
#MSG$_DEVOFFLIN,R4 
GASYS$GL_OPRMBX,R3 


;CLEAR OFFLINE COUNT 

; SAVE REGISTERS 

;SET DEVICE MESSAGE NUMBER 

;GET ADDRESS OF OPERATOR MAILBOX 


GAEXE$SNDEVMSG ;SEND MESSAGE TO OPERATOR 
#AM<KR3 ,R4> sRESTORE REGISTERS 
40$ ; 


; CANCEL CURRENT READ REQUEST 


60$: MOVZWL 
BRW 


; DATA OVERFLOW 
65$: MOVZBW 
IOFORK 
INCW 
MOVZWL 
BRW 


3; INITIATE READ 
70$: TSTW 
MOVZBW 
80$: WFIKPCH 
BITW 
BNEQ 
MOVW 
MOVW 
INCB 
BNEQ 
MOVW 


#SS$-ABORT,RO ;SET ABORT STATUS 
150% ; 


(MORE THAN 80 COL) DETECTED 


#CR_CSR_M_IE,CR_CSR(R4) ;INHIBIT READS 


UCB$W_ERRCNT(RS5) » INCREMENT HARDWARE ERROR COUNT 
#SS$_CTRLERR,RO ;RETURN HARDWARE ERROR STATUS 
150$ 3 


CR_CRB1(R4) ;CLEAR COLUMN BUFFER 
#CR_CSR_M_IE!CR_CSR_M_READ,- ;ENABLE INTERRUPTS AND START READ 
CR_CSR(R4) 
50$,#3 ;WAITFOR INTERRUPT OR TIMEOUT 
#CR_CSR_M_CRDONE!CR_CSR_M_ERROR,CR_CSR(R4) ;CARD DONE OR ERROR? 
120$ ;IF NEQ YES 

CR_CRB1(R4),R1 ;READ BINARY COLUMN 

CR_CRB2(R4),R2 ;READ PACKED COLUMN 

UCB$B_CR_COLCNT(R5) INCREMENT COLUMN COUNT 

90$ ;IF NEQ NOT FIRST COLUMN 
R1,UCB$W_CR_FSTCOL(R5) ;SAVE FIRST COLUMN BINARY DATA . 


CRDRIVER 
VO03-002 


51 


78 
07 20 
78 


0096 
64 


50 


50 


53 
65 


04 
5D 


50 
01 
50 


51 
61 


61 


0092 
0090 


OFOF 


0091 


0090 


C5 
40 


0870 
0091 


0838 
0096 
51 
51 


51 
51 


00CO 
20 


OAAA 
0094 


O8A2 
0094 


FBDB 

04 
44 

FCCE 
2C 


60 
32 


64 
8F 


BF 
C5 


8F 
C5 
0B 
oc 


- CR11 
91 0304 
03D8 
15 O3DB 
B1 O3DD 
12 O3E2 
97 0O3E4 
91 O3E8 
O3EB 
1B O3EE 
90 O3FO 
E1 O3F4 
BO O3F9 
D6 O3FD 
D6 0400 
0403 
11 0409 
040B 
0408 
0408 
040B 
0408 
BO 040B 
9B 0410 
0414 
3C O41A 
95 O41F 
13. 0423 
3C 0425 
3C 042A 
EO O42F 
EO 0433 
0437 
0437 
0437 
0437 
EO 0437 
EO 0438 
043F 
B3 O43F 
0443 
12 0445 
B1 0447 
044B 
13. O044E 
B1 0450 
0454 
13 0457 
9E 0459 
ED O45E 
0461 
13 0464 
SE 0466 
DD 046B 
DO O046D 
2E 0471 
0475 
0477 


935 


936 
937 
938 
939 
940 


941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 


972 
973 


974 
975 
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90$: CMPB 
BLEQ 100$ 
CMPW #CR_EOF,R1 
BNEQ 100$ 
DECB UCB$B_ CR_EOFCNT(RS) 
100$:  CMPB  #80,UCB$B_CR_COLCNT(RS) 
BLEQU 65$ 
MOVB R2,@UCB$L SVAPTE(RS) 
BBC 
MOVW R1,@UCB$L_SVAPTE(R5) 
INCL UCB$L_SVAPTE(RS) 
110$: INCL UCB$L_SVAPTE(RS5) 
DSBINT 
BRB 805 
; SPECIAL CONDITION 
120$: MOVW  CR_CSR(R4),UCB$W_CR_CSR(RS5) 
MOVZBW #CR_CSR_M_IE,CR_CSR(R4) 
ILOFORK 
MOVZWL #SS$ ENDOFFILE,RO 
TSTB _- UCB$B_CR_EOFCNT(RS5) 
BEQL 150$ 
MOVZWL #SS$ DATAOVERUN,RO 
MOVZWL UCB$W CR CSR(R5),R1 
BBS 
BBS 
;*** NOTE: SINCE HOPPER CHECK SETS ERROR, 
BBS #CR_CSR_V_HCHECK,R1,125$ 
BBS #CR_CSR_V_ERROR,R1, 180$ 
125$: 
BITW 
BNEQ 140$ 
CMPW #CR_029,UCB$w_CR_FSTCOL(R5) 
BEQL 160$ 
CMPW #CR_026,UCB$W_CR_FSTCOL(R5) 
BEQL 170$ 
MOVAB CR CVTO29,RO 
CMPZV . 3 
UCB$L_DEVDEPEND(R5) ,#CR$K_TO29 
BEQL 130$ 
MOVAB CR_CVTO26,RO 
130$: PUSHL R5 
MOVL @IRP$L_SVAPTE(R3),R1 
MOVTC 


3-JUN-1984 


11:02:03 
10-MAR-1982 20:31:59 
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DISK$VMSMASTER: [DRIVER.SRC]CRDRIVE(1) 


UCB$B_CR_EOFCOL(R5) ,UCB$B_CR_COLCNT(R5) ;PAST END OF FILE DATA? 


;1F LEQ YES 

;END OF FILE PUNCH? 

;I1F NEQ NO ; 
;DECREMENT END OF FILE COUNT 

;DATA OVERFLOW (MORE THAN 80 COL) ? 


;1F LEQU, YES 
;STORE PACKED COLUMN 


#10$V BINARY, IRP$W_FUNC(R3) ,110$ ;IF CLR, ASCII READ 


; STORE BINARY COLUMN 
; UPDATE BUFFER ADDRESS 
; UPDATE BUFFER ADDRESS 
;DISABLE INTERRUPTS 


; SAVE READER STATUS 

;CLEAR READER ERRORS 

;CREATE FORK PROCESS 

;ASSUME END OF FILE ENCOUNTERED 
;END OF FILE? 

;IF EQL YES 

TIMING ERROR 

;GET READER STATUS 


; ASSUME 


#CR_CSR_V_TIMERR,R1,150$ ;IF SET, TIMING ERROR - EXIT 
#CR_CSR_V_MCHECK,R1,180$ ;IF SET, MOTION CHECK - RETRY 


A READ CHECK IS NOT DETECTABLE | 


;*** TF HOPPER CHECK IS ALSO SET, IE. NO READ CHECK RETRIES ON LAST CARD 


;IF SET, HOPPER CHECK -~ OK 
;I1F SET, READ CHECK - RETRY 


#IO$M_BINARY!IO$M_PACKED, IRP$W_FUNC(R3) ;BINARY OR PACKED READ? 


;IF NEQ YES 


;CHANGE MODE TO 029 TRANSLATION? 
;IF EQL YES 
;CHANGE MODE TO 026 TRANSLATION? 


;IF EQL YES 
;GET ADDRESS OF 029 TRANSLATION: TABLE 


#CR$V_TMODE,#CR$S_TMODE,- ;029 TRANSLATION MODE? 


IRP$W_BCNT(R3),(R1),#0, (RO), IRP$W_BCNT(R3),(R1) 


;IF EQL YES | 

;GET ADDRESS OF 026 TRANSLATION TABLE 
;SAVE ADDRESS OF UCB 

;GET ADDRESS OF I/O BUFFER 

; TRANSLATE 
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VO3-002 . START I/O OPERATION ON CR11 CARD. READER 10-MAR-1982 20:31:59 DISK$VMSMASTER: [DRIVER.SRC]CRDRIVE(1) 
55 BEDO 047A 985 POPL R5 ;RETRIEVE ADDRESS OF UCB 
50 01 3C 047D 986 140%: MOVZWL #SS$_NORMAL,RO ;SET NORMAL COMPLETION 
10 7E AS FO 0480 987 INSV UCB$W_BCNT(R5),#16,#16,RO ; INSERT TRANSFER BYTE COUNT 
50 10 - 0484 
51 D4 0486 988 150$: CLRL R1 ;CLEAR SECOND 1/0 LONGWORD 
0488 989 REQCOM ; COMPLETE REQUEST 
048E 990 
048E 991 ; 
O48E 992 ; SET 029 TRANSLATION MODE 
048E 993 ; 
048E 994 
00 O01 FO O48E 995 160$:  INSV #CR$K_TO29,#CR$V_TMODE,- ;SET 029 TRANSLATION MODE 
44 45 04 0491 996 #CR$S_TMODE,UCB$L_DEVDEPEND(RS5) ; 
06 11 0494 997 BRB 180$ 
0496 998 
0496 999 ; 
0496 1000 ; SET 026 TRANSLATION MODE 
0496 1001 ; 
0496 1002 ; 
00 00 FO 0496 1003 170$:  INSV #CR$K_TO26,#CR$V_TMODE,- ;SET 026 TRANSLATION MODE 
44 AS 04 0499 1004 #CR$S_TMODE,UCB$L_DEVDEPEND(RS5) ; 


FE74 31 O049C 1005 180$: BRW 205 : 


’ 


CRDRIVER 
V03-002 


11 64 AS 
53 10 


50 
64 40 
50 0400 


5C 
02 68 A5 
50 


52 
54 


00000000’ 


54 


00000000’ 


00000000’ 


04 
68 AS 


9E 
63 
01 
AS 
BS 
BE 
BE 
8E 


GF 
02 
GF 
53 
GF 
50 
01 


~ CR11 
CR11 


CARD READER DRIVER 


CARD READER INTDERRUPTS 


O49F 
049F 
O49F 
O49F 
O49F 
049F 
O49F 
O49F 
O49F 
O49F 
O49F 
O49F 
049F 
O049F 
O49F 
O49F 
O49F 
O49F 
O49F 
O49F 
O049F 
O49F 
O49F 
04A2 
04A5 
O4AA 
O4AE 
04B1 
04B4 
04B7 
O4BA 
04BB 
O4BB 
O4BB 
04BB 
04BB 
04BB 
O4BE 


04C2 


04C7 
04cg 
O4CC 
O4CE 
04D3 
04D5 
04D8 
04DB 
O4DE 
O4DF 
04E5 
04E8 
O4EE 
O4EF 
O4F5 
04F8 


O4FC 


1007 
1008 
1009 
1010 
1011 

1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 

1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 


1058 
1059 
1060 
1061 


-SBTTL 
+ 


CR$SINT - CRi1 
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10-MAR-1982 20:31:59 DISKSVMSMASTER: [DRIVER.SRC]CRDRIVE(1) 


CR11 CARD READER INTDERRUPTS 


CARD READER INTERRUPTS 


THIS ROUTINE IS ENTERED VIA A JSB INSTRUCTION WHEN AN INTERRUPT OCCURS ON A 
CR11 CARD READER CONTROLLER. THE STATE OF THE STACK ON ENTRY IS: 


0O(SP) 
04(SP) 
28(SP) 


ADDRESS OF IDB ADDRESS. 
24(SP) = SAVED RO - RS. 
INTERRUPT PC. 

INTERRUPT PSL. 


INTERRUPT DISPATCHING OCCURS AS FOLLOWS: 


IF THE INTERRUPT IS EXPECTED, THE DRIVER IS CALLED AT ITS 
INTERRUPT RETURN ADDRESS (UCB$L_FPC). IF THE INTERRUPT IS 
NOT EXPECTED AND THE DEVICE IS NOT ALLOCATED, A MESSAGE IS 
SENT TO THE JOB CONTROLLER TO INFORM IT. THAT AN INPUT 
SYMBIONT PROCESS SHOULD BE CREATED TO READ THE CARDS. 


; 32(SP) 

CRS$INT:: 
MOVL 
MOVQ 
BBCC 
MOVL 
JSB 
MOVQ 
MOVQ 
MOVQ 
REI 


;CARD READER INTERRUPT 
@(SP)+,R3 ;GET ADDRESS OF IDB 
IDB$L_CSR(R3) ,R4 ;GET CONTROLLER CSR AND OWNER UCB ADDRESS 
#UCBSV_INT,UCBS$W_STS(R5),10$ ;1F CLR, INTERRUPT NOT EXPECTED 
UCB$L_FR3(R5) ,RB ;RESTORE REMAINING DRIVER CONTEXT 


@UCB$L_FPC(R5) ;CALL DRIVER 
(SP)+,RO ;RESTORE REGISTERS 
(SP)+,R2 $ 

(SP)+,R4 ; 


° 
‘J 


; UNSOLICITED INTERRUPT 


. 
’ 


10$;: MOVZWL 
MOVZBW 
BITW 
BEQL 
TSTW 
BNEQ 
BBSS 
BSBB 

20$: MOVQ 
MOVQ 
MOVQ 
REI 

30$: JSB 
MOVZBL 
MOVAB 


JSB 

BLBS 

BICW 
40$: RSB 


CR_CSR(R4) ,RO ;GET READER STATUS 
#CR_CSR_M_IE,CR_CSR(R4) ;CLEAR STATUS, ENABLE INTERRUPTS 
#CR_CSR_M_ONLINE,RO ;READER TRANSITION TO ONLINE? 

20$ ;IF EQL NO 

UCB$W_REFC(R5) ;DEVICE ASSIGNED OR ALLOCATED? 

20$ ;I1F NEQ YES 
#UCB$V_JOB,UCB$W_DEVSTS(R5),20$ ;IF SET, MESSAGE ALREADY SENT 
30$ ;SEND MESSAGE TO JOB CONTROLLER > 
(SP)+,RO ;RESTORE REGISTERS 

(SP)+,R2 ; 

(SP)+,R4 ; 

GAEXES$FORK ;CREATE FORK PROCESS 
#MSG$_CRUNSOLIC,R4 ;SET MESSAGE TYPE 
GASYS$GL_JOBCTLMB,R3 ;SET ADDRESS OF JOB CONTROLLER MAILBOX 
GAEXES$SNDEVMSG ;SENT MESSAGE TO JOB CONTROLLER 
RO,40$ ;IF LBS SUCCESSFUL NOTIFICATION 


#UCBSM_JOB,UCB$W_DEVSTS(R5) ;CLEAR MESSAGE SENT BIT 


+ 


CRDRIVER 
V03-002 


64 


40 8F 
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CARD READER INITIALIZATION 10-MAR-1982 20:31:59 DISK$VMSMASTER: [DRIVER.SRC]CRDORIVE(1) 
O4FD 1063 .SBTTL CARD READER INITIALIZATION 
O4FD 1064 ;+ 
O4FD 1065 ; CR_INITIAL - CR11 CARD READER INITIALIZATION 
O4FD 1066 ; 
O4FD 1067 ; THIS ROUTINE IS CALLED AT SYSTEM STARTUP AND AFTER A POWER FAILURE. THE CSR 
O4FD 1068 ; ADDRESS OF THE RESPECTIVE CR11 CONTROLLER IS READ TO INSURE ITS PRESENCE ON 
O4FD 1069 ; THE UBA AND THEN CARD READER INTERRUPTS ARE ENABLED. 
O4FD 1070 ; : 
O4FD 1071 ; INPUTS: 
O4FD 1072 ; 
O4FD 1073 ; R4 = CR11 CONTROLLER CSR ADDRESS. 
O4FD 1074 ; R5 = IDB ADDRESS OF DEVICE UNIT. 
O4FD 1075 ; 
O4FD 1076 ; OUTPUTS: 
O4FD 1077 ; 
O4FD 1078 ; ALL REGISTERS ARE PRESERVED. 
O4FD 1079 ;- 
O4FD 1080 
O4FD 1081 CR_INITIAL: ;CR11 INITIALIZATION 
9B O4FD- 1082 MOVZBW #CR_CSR_M_IE,CR_CSR(R4) ;ENABLE CR11 INTERRUPTS. 
oS 0QO501 1083 RSB ; 
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64 
50 
50 
04 


AS 


24 
2C 


AQ: 


10 
AS 
AO 
55 
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0502 
0502 
0502 
0502 
0502 
0502 
0502 
0502 
0502 
0502 
0502 
0502 
0502 
0502 
0502 
0502 
0502 
0502 
0502 
0506 
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OSOE 
0512 
0513 
0513 
0513 


1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 


CARD READER DRIVER 
CARD READER UNIT INITIALIZATION 
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-SBTTL CARD READER UNIT INITIALIZATION 


+> 


ONLINE BIT 
INPUTS: 
RS = 


OUTPUTS: 


> 
’ 
’ 
’ 
’ 
. 
’ 
’ 
’ 
. 
9 
. 
, 
. 
’ 
. 
’ 
’ 
’ 
’ 


CR_CR11_INIT: 


BISW 
MOVL 
MOVL 
MOVL 
RSB 
CR_END: 


. END 


CR_CR11_INIT — CARD READER UNIT INITIALIZATION 


THIS ROUTINE IS CALLED AT SYSTEM STARTUP AND AFTER A POWER FAILURE. THE 


IS SET IN THE DEVICE UCB. 


ADDRESS OF DEVICE UCB. 


THE ONLINE BIT IS SET IN THE DEVICE UCB AND THE ADDRESS OF THE UCB 
IS FILLED INTO THE OWNER FIELD OF THE IDB. 


;CARD READER UNIT INITIALIZATION 
#UCB$M_ONLINE,UCB$W_STS(RS) ;SET UNIT ONLINE 
UCB$L_CRB(R5),RO ;GET ADDRESS OF CRB 
CRB$L_INTD+VEC$L_IDB(RO),RO ;GET ADDRESS OF IDB 
R5,I10B$L_OWNER(RO) ;SET ADDRESS OF DEVICE UCB 


: ADDRESS OF LAST LOCATION IN DRIVER 


CRDRIVER 
Symbol] table 


$$$ 

$$0P 

ATS$_UBA 

CR$DDT 

CRSINT 
CR$K_TO26 
CR$K_T029 
CR$S_TMODE 
CRS$V_TMODE 
CRB$L_INTD 
CR_026 

CR_029 
CR_CANCELIO 
CR_CR11_INIT 
CR_CRB1 

CR_CRB2 

CR_CSR 
CR_CSR_M_CRDONE 
CR_CSR_M_ERROR 
CR_CSR_M_IE 
CR_CSR_M_OFFLIN 
CR_CSR_M_ONLINE 
CR_CSR_M_READ 
CR_CSR_V_ERROR 
CR_CSR_V_HCHECK 
CR_CSR_V_MCHECK 
CR_CSR_V_TIMERR 
CR_CVT026 
CR_CVTO29° 
CR_END 

CR:_EOF 
CR_FUNCTABLE 
CR_INITIAL 
CR_READ 
CR_STARTIO 
DC$_CARD 
DDB$L_DDT 
DEV$M_AVL 
DEV$M_IDV 
DEV$M_NNM 
DEV$M_REC 
DPT$C_LENGTH 
DPT$C_VERSION 
DPTSINITAB 
DPT$REINITAB 
DPT$TAB 
DT$_CR11 
DYN$C_CRB 
DYN$C_DDB 
DYN$C_DPT 
DYN$C_UCB 
EXES$ABORTIO 
EXE$ALLOCBUF 

- EXESBUFFRQUOTA 
EXES$FINISHIOC 
EXESFORK 
EXE$IOFORK 


foul tt wou bu wt tt wou Ww no 


houd wou 
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00000020 
00000002 
00000001 
a0000000 
0000049F 
00000000 
00000001 
00000004 
00000000 
00000024 
000008A2 
OOOOO0AAA 
0000026C 
00000502 
00000002 
00000004 
00000000 
00004000 
00008000 
00000040 
00000100 
00000400 
00000001 
OOOOO000F 
o000000D 
oo000000C 
00000008 
00000138 
00000038 
00000513 
OOOOOFOF 
00000238 
OOO004FD 
0000027B 
O000002F 1 
00000041 


0000000C 
#E KEK KKK 


KRKKKE EK 
aR KKK 
KKK KKK 


00000038 
00000004 
00000038 
00000062 
00000000 
00000001 
00000005 
00000006 
OOOOOOIE 
00000010 
OK RR KKK 
ARK EK KK 
OK RRO ROKK 
*K RE KEK 
KKK AEX 
OK RK KKK 


RG 
RG 


DDD 


DADA 


DDD 


xx x & 


x «x «KKK 


02 


03 
03 


03 
03 


03 
03 
03 


03 
03 
03 
03 


03 
03 
03 
03 
03 
03 


3-JUN-1984 11:02: 
1O-MAR-1982 20:31: 


EXE$QIODRVPKT 
EXESREADCHK 
EXES$SENSEMODE 
EXESSETMODE 
EXE$SNDEVMSG 
FUNCTAB_LEN 
IDB$L_CSR 
IDB$L_OWNER 
IO0$M_BINARY 
IO$M_PACKED 
1O0$V_BINARY 
10$ _READLBLK 
TO$ READPBLK 
I10$_ READVBLK 
I0$_SENSECHAR 
10$_ SENSEMODE 
I0$_SETCHAR 
10$_SETMODE 
IO0$_ VIRTUAL 
IOCE$CANCELIO 
IOCEMNTVER 
IOC$REQCOM 
IOC$RETURN 
IOC$WFIKPCH 
IRP$L_MEDIA 
IRP$L_SVAPTE 
IRP$S_FCODE 
IRP$V_FCODE 
IRP$W_BCNT 
IRP$W_BOFF 
IRP$W_FUNC 
JIB$L_BYTCNT 
MASKH 

MASKL 
MSG$_CRUNSOLIC 
MSG$_DEVOFFLIN 


P6 

PCB$L_JIB 
PR$_IPL 

STZ 059 
SS$_ABORT 
SS$_CTRLERR 
SS$_DATAOVERUN 
SS$_ENDOFFILE 
SS$_NORMAL 
SVYS$GL_JOBCTLMB 
SYS$GL_OPRMBX 
UCB$B_CR_COLCNT 
UCB$B_CR_EOFCNT 
UCB$B_CR_EOFCOL 
UCB$B_CR_OFLCNT 
UCB$B_DEVCLASS 


HU TE aa at 


03 VAX-11 


FoR ROK OR OK 
2 3 OK ok ok OK Ok 
ARR RK REE 
RRR KR 
RR ROR OK RK 


00000034 
00000000 
00000004 
00000040 
00000080 
00000006 
00000021 
o0000000C 
00000031 
0000001B 
00000027 
OOOO00I1A 
00000023 


0000003F 
RR RK Ke 


KKKKKKKE 
OK KOR RK RK 
OK KKK KKK 
4K KK KK KK 


00000038 
0000002C 
00000006 
00000000 
00000032 
00000030 
00000020 
00000020 
00000080 
08000000 
00000002 
00000005 
00000000 
00000004 
00000008 
Ooo00000C 
00000010 
00000014 
00000080 
00000012 
00000001 
0000002C 
00000054 
00000838 
00000870 
00000001 
ere eS ee 
RK KOK RK 


00000090 
00000091 
00000092 
00000093 
00000040 
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Symbol table 10-MAR-1982 20:31:59 DISK$VMSMASTER: [DRIVER.SRC]CRDRIVE(1) 
UCB$B_DEVTYPE = 00000041 
UCB$B_DIPL = 0000005E 
UCB$B_FIPL = 900000008 
UCB$K_CR_LENGTH = 00000098 
UCB$K_LENGTH = 00000090 
UCB$L_CRB = 00000024 
UCB$L_DEVCHAR = 00000038 
UCB$L_DEVCHAR2 = 0000003C 
UCB$L_DEVDEPEND = 00000044 
UCB$L_FPC = 0000000C 
UCB$L_FR3 = 00000010 
UCB$L_SVAPTE = 00000078 
UCB$M_JOB = 00000001 
UCB$M_ONLINE = 00000010 
UCB$V_CANCEL = 00000003 
UCB$V_INT = 00000001 
UCB$V_ JOB = 00000000 
UCB$W_BCNT = 0000007E 
UCB$W_CR_CSR 00000096 
UCB$W_CR_FSTCOL 00000094 
UCB$W_DEVBUFSIZ = 00000042 
UCB$W_DEVSTS = 00000068 
UCB$W_ERRCNT = 00000082 
UCB$W_REFC = 0000005C 
UCB$W_STS = 00000064 
VEC$L_IDB = 00000008 
VEC$L_INITIAL = 9000000C 
VEC$L_UNITINIT = 00000018 


PSECT name Allocation PSECT No Attributes 
i ABS 00000000 ( 0.) oo ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
$ABS$ : 00000098 ( 152.) 01 ¢ 1) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$105_ PROLOGUE 00000077 ( 119.) O2 ( 2.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$115 DRIVER 00000513 ( 1299.) 03 ¢ 3.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
+------------ - + + + + 
! Performance indicators ! 
+ -- e -  e - + 
Phase Page faults CPU Time Elapsed Time 
Initialization 35 00:00:00.08 00:00:02.17 
Command processing 97 00:00:00.51 00:00:06.20 
Pass 1 524 00:00:23.55 00:01:16.65 
Symbol table. sort 0 00:00:03.25 00:00:10.16 
Pass 2 : 199 00:00:04.98 00:00:17.35 
Symbol table output 16 00:00:00.14 00:00:00.71 
Psect synopsis output 3 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00;00.00 
Assembler run totals 877 00:00:32.54 00:01:53.26 


The working set limit was 1800 pages. 
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VAX-11 Macro Run Statistics 10-MAR-1982 20:31:59 DISK$SVMSMASTER: [DRIVER.SRC]CRDRIVE(1) 


123849 bytes (242 pages) of virtual memory were used to buffer the intermediate code. 

There were 110 pages of symbol table space allocated to hold 2103 non-local and 29 16cal symbols. 
1119 source lines were read in Pass 1, producing 18 object records in Pass 2. 

36 pages of virtual memory were used to define 33 macros. 


toe re ee ee ee ee + 
! Macro library statistics ! 
Hee rrr rrr + 

Macro library name Macros defined 

_$255$DUA28: [SYS.OBJ]LIB.MLB; 1 20 

_$255$DUA28: [SYSLIB] STARLET .MLB; 2 11 

TOTALS (al! libraries) 31 


2350 GETS were required to define 31 macros. 
There were no errors, warnings or information messages. 


MACRO/LIS=LIS$: CRORIVER/OBJ=OBJ$:CRDRIVER MSRC$:CRDRIVER/UPDATE=(ENH$: CRDRIVER) +EXECML$/LIB 


SYSQIOREQ 


SYSQIOREQ - QUEUE 1/0 REQUEST SYSTEM SERVICE 3-JUN-1984 15:39:30 VAX-11 Macro VO03-01 Page 0 
Table of contents 


(1) 76 DECLARATIONS 
(1) 131.32 QIO ERROR AND EXCEPTION HANDLING ROUTINES 
(1) 165 QUEUE I/0 REQUEST 
(1) 583 BUILD I/O PACKET: FOR PAGE READ/WRITE 
(1) 701 COMPLETE I/O OPERATION 
(1) 752 QUEUE I/O PACKET TO DRIVER 
(1) 775 EXESALTQUEPKT - Call driver ALTSTART entry point 
(1) 810 QUEUE I/O PACKET TO ACP 
(1) 845.10 EXESQXQPPKT - QUEUE 1/0 PACKET TO XQP 
(1) 847 INSERT I/O PACKET IN UNIT QUEUE 
(1) 


870 INSERT I/O PACKET IN QUEUE BY PRIORITY 


SYSQIOREQ -— QUEUE 1/0 REQUEST SYSTEM SERVICE 3-JUN-1984 15:39:30 VAX-11 Macro V03-01 Page 1 


V03-012 12-MAR-1982 17:19:50 DISK$VMSMASTER: {[SYS.SRC]SYSQIOREQ. (1) 
Q000 1 -TITLE SYSQIOREQ - QUEUE I/O REQUEST SYSTEM SERVICE 

;LMP0221 0000 ot -IDENT ‘’V03-012’ 

-1 0000 3 
0000 4; 
0000 5 Cit ttt ke ee ee ee ee ee eee Se SEES SES EE ES EEE SSS EEE ESS 
0000 6 ;* * 
0000 7 ;* COPYRIGHT (c) 1978, 1980, 1982 BY * 
0000 8 ;* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
0000 9 ;* ALL RIGHTS RESERVED. * 
0000 10 ;* * 
0000 11°;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0000 12 >;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0000 13 =;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS'7 HEREBY * 
0000 16 3;* TRANSFERRED. * 
0000 17° =;* * 
0000 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS) A COMMITMENT BY DIGITAL EQUIPMENT * 
0000 20 ;* CORPORATION. * 
0000 21 =; * 
0000 22 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR’ RELIABILITY OF ITS * 
0000 23 =;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ¥ 
0000 24 ;* * 
0000 25 ;* * 
0000 QE 5 A A RR RRR RK ROR OR RRR ROK RRR OR OR RO ROKR OR EK RE ERE ER EERE 
0000 27 ; 
0000 28 ;++ 
0000 29 ; 
0000 30 ; AUTHOR: 
0000 31 =; 
0000 32 ; D. N. CUTLER, 14-JUN-76 
0000 33 =; 
0000 34 ; FACILITY: 
0000 35 ; 
0000 36 ; SYSTEM SERVICE QUEUE 1/0 REQUEST 
0000 37 ; 
0000 38 ; MODIFIED BY: 
0000 39 ; 

;LMP0221 0000 Tiseas V03-012 LMPO221 L. Mark Pilant, 30-Mar-1984 17:08 

3; LMP0221 0000 2 3 Remove references to UCB$L OWNUIC and UCNBS$W VPROT. 

;LMPO221 0000 3 ; a ~ 

;SRBO0118 0000 4; V03-011 SRBO118 steve Beckhardt 23-Mar-1984 

;SRBO118 0000 «Db o3 Changed waiting for DIOCNT or BIOCNT to wait at IPL O. 

;SRBO118 : 0000 6 ; 

;CDSO005 0000 7; V03-010 CDSO005 Christian D. Saether 20-Mar-1984 

;CDSO005 0000 8 ; Use symbolic definition to locate XQP queue header. 

;CDSO005 0000 9 3 Give the XQP ast a priority boost. 

3; CDSO005 0000 .10 ; 

;SSA0017 0000 -11 =; V03-009 SSA0017 Stan Amway 9-Mar-1984 

3 SSA0017 0000 12 ; Maintain device queue ltength in UCB. 

;SSA0017 0000 .13°> =; Efficiently supports MONITORs disk class and provides 

;SSA0017 0000 vila accurate queue lengths for HSC. and UDA disks. 

;SSA0017 0000 15 3 

; LMPO0206 0000 16° 4 VO3-008 LMPO206 L. Mark Pilant, 7-Mar-1984 12:20 

3; LMPO206 0000 17>; Only do an access check on the first QIO to the channel for 

3; LMPO206 0000 2lB 3 legical and physical requests. 
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;LMPO206 

3; LMP0185 
;LMP0185 
;LMP0185 
;CDS0004 
;CDSO0004 
;CDSO0004 
;CDSO004 
;CDSO0004 
;RLRMXBCNTC 
;RLRMXBCNTC 
; RLRMXBCNTC 
3; RLRMXBCNTC 
;CDSO0003 
;CDSO0003 
;CDS0003 
;CDSO003 

; CD§0002 
;CDSO002 
;CDSO0002 
;CDSO002 
;CDSO002 
;CDSO002 
;CDSO002 
+CDSO0O1 
;CDSO001 
;CDSO001 
3LJKO172 
;LJKO172 
3;LUKO172 
-33 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


.19 
.20 
21 
222 
23 
.24 
.25 
.26 
.27 
. 28 
.29 
.30 
31 
.32 


33 


34 
35 
36 
.37 
.38 
. 39 
-40 


oe we we we we we we ee ee ee we we we ee we Oe we we we te ek we we we we we we we we we we we 
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V03-007 


V03-006 


V03-005 


V03-004 


V03-003 


V03-002 


V03-001 
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LMPO185 L. Mark Pilant, 
Add support for ACLS on devices. 


27-Jan-1984 11:05 


CDSO0004 Christian D. Saether 20-May-1983 
Get the PID from the PCB instead of the IRP so that 
journalling works (it uses the irp pid field for 
something else). 


RLRMXBCNTc Robert L. Rappaport 28-Mar-1983 
Verify IRP$L_DIAGBUF is non-zero before assuming that it 
contains the original value of IRP$L_SVAPTE in VIRTUAL _LOGIO. 


CDS0003 Christian D. Saether 14-Mar-1983 
Return from EXE$QXQPPKT with status, rather than 
assuming success. 


CDSO0002 Christian D. Saether 12-Mar-1983 
Do not insque packet to xqp work queue in EXE$QXQPPKT, 
but rather pass it as the ast parameter and queue it 
in the xqp, if necessary. This avoids a problem 
where the packet is processed by the xqp before the 
ast is dequeued. 


cdSoo0o1 C Saether 13-Aug-1982 
Changes to send file system packets to XOQP. 


LJKO172 Lawrence J. Kenah 18-June-1982 
Count I/0 operations in EXE$BLDPKTxxxx to allow file 
expiration to work correctly for mapped files. 
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;CDSO001 
;CDSO005 
;CDSO005 
; CDSO005 
;CDSO0O05 
;CDSO0005 
~4 
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00000008 
oo000000C 
00000010 
00000014 
00000018 
0000001C 
00000020 
00000024 
00000028 
0000002C 
00000030 


00000000 
00000008 
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0000 
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0000 
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.SBTTL DECLARATIONS 


MACRO LIBRARY CALLS 


> 


SACBDEF ;DEFINE ACB OFFSETS 
S$AQBDEF ;DEFINE AQB OFFSETS 
$CADEF ;DEFINE CONDITIONAL ASSEMBLY PARAMETERS 


$CCBDEF ;DEFINE CCB OFFSETS 

$CDRPDEF ;DEFINE CDRP OFFSETS 

$DDBDEF ;DEFINE DDB OFFSETS 

$DDTDEF ;DEFINE DDT OFFSETS 

$DEVDEF ;DEFINE DEV VALUES 

S$DYNDEF ;DEFINE DATA STRUCTURE TYPE CODES 
$F11BDEF ;DEFINE F11BXQP OFFSETS 


$IODEF ;DEFINE IO FUNCTION CODES 


SIPLDEF ;DEFINE INTERRUPT PRIORITY LEVELS 
S$IRPDEF ;DEFINE IRP OFFSETS 
$PCBDEF ;DEFINE PCB OFFSETS 
$SPHDDEF ;DEFINE PHD OFFSETS 


$PRDEF ;DEFINE PROCESSOR REGISTERS 


$PRIDEF ;DEFINE PRIORITY CLASS INCREMENTS 
SPRVDEF ;DEFINE PRIVILEGE BITS 

$PSLDEF ;DEFINE PROCESSOR STATUS FIELDS 
SRSNDEF ;DEFINE RESOURCE WAIT NUMBERS 
$SSECDEF ;DEFINE SEC OFFSETS 


$SSDEF ;DEFINE STATUS VALUES 


$UCBDEF ;DEFINE UCB OFFSETS 
$VCBDEF ;DEFINE VCB OFFSETS 
$WCBDEF ;DEFINE WINDOW CONTROL BLOCK OFFSETS 


LOCAL SYMBOLS 


ARGUMENT LIST OFFSET DEFINITIONS 


we we we ee we 


EFN=4_ ;EVENT FLAG NUMBER 
CHAN=8 ;1/0 CHANNEL NUMBER 
FUNC=12 ;1/0 FUNCTION CODE 


IOSB=16 ;ADDRESS OF I/0 STATUS BLOCK 
ASTADR=20 ;ADDRESS OF AST SERVICE ROUTINE 
ASTPRM=24 ;AST SERVICE ROUTINE PARAMETER 

P1=28 ;FIRST FUNCTION DEPENDENT PARAMETER 
P2=32 ; SECOND FUNCTION DEPENDENT PARAMETER 
P3=36 ; THIRD FUNCTION DEPENDENT PARAMETER 
P4=40 ;FOURTH FUNCTION DEPENDENT PARAMETER 
P5=44 ;FIFTH FUNCTION DEPENDENT PARAMETER 
P6=48 ;SIXTH FUNCTION DEPENDENT PARAMETER 


3; FUNCTION DECISION TABLE OFFSET DEFINITIONS 


° 
+ 


LEGAL=0 
IOTYPE=8 


;LEGAL FUNCTION MASK 
31/0 FUNCTION TYPE MASK 
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; LMP0O185 
; LMP0185 
;LMP0185 
;LMPO185 
;LMP0185 
; LMP0185 
3; LMP0185 
"> LMPO185 
; LMP0185 
;LMP0185 
; LMP0185 
;LMP0185 
; LMP0185 
3; LMP0185 
;LMP0185 
; LMP0185 
3LMP0185 
;LMP0185 
;LMP0185 
; LMP0185 
; LMP0185 
3; LMP0185 
; LMP0185 
; LMP0185 
; LMPO185 
;LMP0185 
3;LMPO185 
;LMPO185 
3;LMP0185 
;LMP0O185 
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00000010 0000 131 FDTACT=16 ;ACTION ROUTINE MASKS 

0000 “4 

0000 12; 

0000 .3 ; TABLES FOR DETERMINING THE ACCESS DESIRED, BASED UPON THE I/O FUNCTION 

0000 .4 ; CODE. THIS IS NECESSARY FOR THE FIRST TIME THROUGH PROTECTION CHECK DONE 

0000 .5 ; ON SHARABLE, NON-MOUNTABLE (NON-FILES ORIENTED) DEVICES. 

0000 .6 ; 

0000 aS 

0000 .8 .MACRO ACCMSK CODES 

0000 .9 MASKL = 0 

0000 .10 MASKH = 0 

0000. 111 

0000 12 .IRP X,<CODES> 

0000 13 LIF GT <I10$_’X&IO0$_VIRTUAL>-31 

0000 14 MASKH == _MASKH!<1@<<IO$_’X&I0$_VIRTUAL>-32>> 

0000 15 .IFF 

0000 16 MASKL == MASKL!<1@<IO$_’X&I0$_VIRTUAL>> 

0000 17 -ENDC; GT <I0$_‘X&IO$ VIRTUAL>-31 

0000 18 .ENDR ; X,<CODES> 

0000 19 LONG MASKL,MASKH 

0000 ~=.20 .ENDM ACCMSK 

0000s. 21 

0000 .22 READ_ACCESS: 

0000 23 ACCMSK <READPBLK,READLBLK,READVBLK, - 

0000 24 READHEAD , READTRACKD, REREADN, REREADP, - 

0000 25 READPROMPT , TTVREADALL , TTVREADPALL> 

0008 .26 

0008 .27 WRITE_ACCESS: 

0008 28 ACCMSK <WRITEPBLK,WRITELBLK,WRITEVBLK, - 

0008 29 WRITECHECK , WRI TECHECKH, - 

0008 30 WRITEHEAD, WRITETRACKD, WRI TERET> 
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; LMPO0185 0010 .32 -SBTTL QIO ERROR AND EXCEPTION HANDLING ROUTINES 
;LMPO185 0010 .33 ; 
; LMPO185 0010 .34 ; Device is not mountable. See if it is necessary to do the protection check. 
; LMPO185 0010 += .35 ; 
;LMP0185 0010 .36 NOT_FILE_DEV: 
;LMPO0185 1E 08 A6 02 E2 0010 .37 BBSS #CCB$V_PROCHKDON,CCB$B_STS(R6),20$ ;XFER IF HERE ALREADY 
;LMP0185 19 38 AS 10 E1 0015 .38 BBC #DEV$V_SHR,UCB$L_DEVCHAR(RS) , 20$ ;XFER IF NOT SHARABLE 
;LMPO185 50 0000’CF 9E OO1A .39 MOVAB WAEXES$CHKRDACCES,RO ;SET ADDR OF CHECKING ROUTINE 
;LMPO0185 OA DD AF 57 EO OOTF -40 BBS R7,READ_ACCESS,10$ ;XFER IF A READ FUNCTION 
;LMPO185 50 0000’CF 9E 0024 41 MOVAB WAEXESCHKWRTACCES,RO ;SET ADDR OF CHECKING ROUTINE 
; LMP0O185 05 DB AF 57 E1 0029 -42 BBC R7,WRITE_ACCESS, 20$ ;XFER IF NOT WRITE FUNCTION 
;LMPO185 60 16 OO2E -43 10$: JSB (RO) ;DO PROTECTION CHECK 
;LMPO185 12 50 EQ 0030 -44 BLBC RO, ERRORB ;XFER IF NOT SUCCESSFUL 
; LMP0185 0092 31 0033 -45 20$: BRW CHKDON ;ELSE REJOIN MAINLINE CODE 
~2 0036 134 ; 
; 0036 135 ; MISCELLANEOUS ERROR HANDLING AND EXCEPTION HANDLING ROUTINES. THESE HAVE 
0036 136 ; BEEN MOVED OUT OF LINE TO MAKE THE COMMON PATH NEARLY BRANCH FREE. 
0036 137 ; 
0036 138 
0036 139 CLREF: ; 
FFC7’ 30 0036 140 BSBW SCH$CLREF ;CLEAR SPECIFIED EVENT FLAG 
40 11 0039 141 BRB VCHAN ;CONTINUE WITH QIO 
50 013C 8F 3C 003B 142 IVCHAN: MOVZWL #SS$ _ IVCHAN,RO ;SET ERROR STATUS 
03 11. 0040 143 BRB ERRORB ;AND ERROR REQUEST 
50 24 3C 0042 144 PRIVERR: MOVZWL #SS$ NOPRIV,RO ;SET ERROR STATUS 
OODF 31 0045 145 ERRORB: BRW ERROR ;AND ERROR REQUEST 
0048 146 
0048 147 ; 
0048 148 ; An access or deaccess operation is pending for this channel. Wait for 
0048 149 ; it to complete, then retry the QIO. 
0048 150 ; 
0048 151 
0048 152 DACSPND:SETIPL #IPL$ SYNCH ; SYNCHRONIZE ACCESS TO SYSTEM DATA BASE 
AC A4 01 3C 0048 153 MOVZWL #RSN$_ASTWAIT,PCBS$L_EFWM(R4) ;SET AST WAIT RESOURCE NUMBER 
52 0000‘CF 7E OO4F 154 MOVAQ WASCH$GQ_MWAIT,R2 ;SET ADDRESS OF WAIT QUEUE 
4C A4 E2 0054 155 BBSS PCB$L_EFWM(R4) , WASCH$GL_RESMASK,10$ ;SET WAITING FLAG 
00 0000’CF 0057 ? 
FFA2’ 31 OOSB 156 10$: BRW SCHEWAIT ;WAIT FOR AST 
OO5E 157 ; 
OOSE 158 ; Device is marked spooled. Acquire intermediate UCB address if virtual funtion. 
QOOSE 159 ; 
57 2F D1 OOSE 160 SPOOL: CMPL SA#¥TO$ LOGICAL ,R7 ;VIRTUAL I/O FUNCTION? 
60 18 0061 161 BGEQ NSPOOL ;IF GEQ NO 
55 60 A5 DO 0063 162 MOVL UCB$L_AMB(R5),R5 ;GET INTERMEDIATE DEVICE UCB ADDRESS 
5A 11 0067 163 BRB NSPOOL ; 
; LMP0185 0069 wis 
; LMPO0185 0069 -2 ; Intermediate branch to the protection checking routine. 
; LMP0185 0069 a3) 3 
3; LMPO0185 0069 -4 NOT_FILE DEVB: 
; LMPO1T85 AS 11 Q069 z5 ; BRB NOT_FILE DEV 
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V03-012 QUEUE I/0 REQUEST 12-MAR-1982 17:19:50 DISK$VMSMASTER: [SYS.SRC]SYSQIOREQ. (1) 
OO6B 165 -SBTTL QUEUE 1/0 REQUEST 
OO6B 166 ; 
006B 167 ; EXE$QIOREQ - QUEUE I/0 REQUEST 
006B 168 ; 
O0O06B 169 ; THIS SERVICE PROVIDES THE CAPABILITY TO INITIATE AN I/0 OPERATION 
006B 170 ; BY QUEUEING A REQUEST TO A DEVICE’S ASSOCIATED DRIVER. ONCE THE 
OO6B 171 ; OPERATION HAS BEEN INITIATED, CONTROL WILL RETURN TO THE CALLER 
O006B 172 ; WHO CAN SYNCHRONIZE I/O COMPLETION IN ONE OF THREE WAYS: 
OO6B 173 ; 
OO6B 174 ; 1) SPECIFY THE ADDRESS OF AN AST ROUTINE THAT WILL BE 
0068 175 =; EXECUTED WHEN THE I/0 COMPLETES. 
OO6B 176 ; 
OO6B 177 ; 2) WAIT FOR THE SPECIFIED EVENT FLAG TO BE SET. 
006B 178 |; 
006B 179 ; 3) POLL THE SPECIFIED I/0 STATUS BLOCK FOR A COMPLETION 
OO6B 180 ; STATUS. 
0068 181 ; 
0068 182 ; THIS ROUTINE VERIFIES THE FUNCTION INDEPENDENT PARAMETERS, ALLOCATES 
006B 183 ; AN I/O REQUEST PACKET, COPIES THE FUNCTION INDEPENDENT PARAMETERS AND 
006B 184 ; PROCESS INFORMATION TO THE I/O PACKET, CHECKS ACCESS TO THE DEVICE, 
O0O6B 185 ; AND CALLS THE DRIVER’S FUNCTION DECISION TABLE ROUTINE(S) THAT CORRESPOND 
006B 186 ; TO THE SPECIFIED FUNCTION. IT IS THEN UP TO THE FDOT ROUTINE TO EITHER 
006B 187 ; COMPLETE THE REQUEST IMMEDIATELY (EXE$ABORTIO OR EXESFINISHIO) OR TO ; 
OO6B 188 ; QUEUE THE I/0 REQUEST FOR FURTHER PROCESSING BY THE DRIVER’S STARTIO 
006B 189 ; ROUTINE (EXE$QIODRVPKT). 
006B 190 ; 
006B 191 ; INPUTS: 
006B 192 ; 
O06B 193 ; EFN(AP) = EVENT FLAG NUMBER. 
006B 194 ; CHAN(AP) = I/O CHANNEL NUMBER. 
006B 195 ; FUNC(AP) = I/O FUNCTION CODE. 
006B 196 ; IOSB(AP) = ADDRESS OF I/O STATUS BLOCK. 
006B 197 ; ASTADR(AP) = ADDRESS OF AST SERVICE ROUTINE. 
006B 198 ; ASTPRM(AP) = AST SERVICE ROUTINE PARAMETER. 
006B 199 ; P1(AP) TO P6(AP) = FUNCTION DEPENDENT PARAMETERS. 
OO6B 200 ; 
00O6B 201 ; R4 = CURRENT PROCESS PCB ADDRESS. 
OO6B 202 ; 
0O06B 203 ; OUTPUTS: 
OO6B 204 ; 
0O06B 205 ; RO LOW BIT CLEAR INDICATES FAILURE TO INITIATE THE I/O REQUEST. 
OO6B 206 ; 
006B 207 ; RO = SS$_ABORT - A NETWORK LOGICAL LINK WAS BROKEN. 
006B 208 ; 
006B 209 ; RO = SS$_ACCVIO - THE I/0 STATUS BLOCK CANNOT BE WRITTEN BY 
0068 210 ; THE CALLER. 
OO6B 211 =; 
006B 212 ; RO = SS$_DEVOFFLINE - THE SPECIFIED DEVICE IS OFFLINE. 
OO6B 213 ; 
OO6B 214 ; RO = SS$_EXQUOTA - THE PROCESS HAS EXCEEDED ITS BUFFERED 1/0 
006B 215 ; QUOTA, DIRECT I/0 QUOTA, OR BUFFERED I/O BYTE COUNT 
OO6B 216 ; QUOTA AND HAS DISABLED RESOURCE WAIT MODE. OR, THE 
006B 217 ; PROCESS HAS EXCEEDED ITS AST LIMIT QUOTA. 
OO6B 218 ; 
0068 219 ; RO = SS$_ILLEFC - AN ILLEGAL EVENT FLAG NUMBER WAS SPECIFIED. 
006B 220 ; : 
OO6B 221 ; RO = SS$_INSFMEM - INSUFFICIENT DYNAMIC MEMORY IS AVAILABLE 


SYSQTOREQ 
V03-012 


53 04 AC 

3F 53 

co 
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3 TO ALLOCATE AN I/0 REQUEST PACKET AND THE PROCESS HAS 
7 DISABLED RESOURCE WAIT MODE. 
RO = SS$_IVCHAN - AN INVALID CHANNEL NUMBER WAS SPECIFIED. 
. RO = SS$_NOPRIV - THE SPECIFIED CHANNEL DOES NOT EXIST OR WAS 
; ASSIGNED FROM A MORE PRIVILEGED ACCESS MODE. OR, THE 
; PROCESS DOES NOT HAVE THE PRIVILEGE TO PERFORM THE 
; SPECIFIED TYPE OF I/O FUNCTION ON THE DEVICE. 
4 RO = SS$_UNASEFC - UNASSOCIATED EVENT FLAG CLUSTER SPECIFIED. 
RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 
; RO = SS$ NORMAL - NORMAL COMPLETION. 

-ENTRY EXE$QI0O,AM<R2,R3,R4,R5,R6,R7,R8,R9O,R10,R11> 
; Clear specified event flag. For local event flags, this is done in line. 
QIO: MOVZBL EFN(AP),R3 ;GET EVENT FLAG.NUMBER 

CMPB R3,#63 ;CHECK FOR LOCAL 

BGTRU CLREF 3;IF NO, MUST DO FULL CLREF 

BBCC R3,PCB$L_EFCS(R4),VCHAN ;CLEAR SPECIFIED EVENT FLAG 
; Validate channel number, compute CCB address and acquire UCB address. 
VCHAN: BICL3 #<AXFFFFOOOO! <CCB$C_LENGTH-1>>,-; FETCH ‘CHANNEL NUMBER AND 


CHANCAP) , RO ;CLEAR EXTRANEOUS BITS 
BEQL IVCHAN ;IF EQL INVALID CHANNEL 
CMPW RO,@#CTL$SGW_CHINDX ; LEGAL CHANNEL NUMBER? 
BGTRU IVCHAN ;I1F GTRU NO 


MNEGL RO, 


RQ ;CONVERT TO CHANNEL INDEX 


MOVAB @CTL$GL_CCBBASE[R9],RG6 ;GET ADDRESS OF CORRESPONDING CCB 


MOVPSL R23 


;READ CURRENT PSL 


EXTZV #PSL$V_PRVMOD,#PSL$S_PRVMOD,R3,R11 ;EXTRACT PREVIOUS MODE FIELD 


ASHL #16,R9,R9 ;PREPARE CHANNEL INDEX. FOR LATER MERGE 
CMPB R11,CCB$B_AMOD(R6) ;CALLER HAVE PRIVILEGE TO ACCESS CHANNEL? 
BGEQ PRIVERR ;IF GEQ NO 

MOVL CCB$L_UCB(R6) ,R5 ;GET ASSIGNED DEVICE UCB ADDRESS 


BLBS CCB$L_WIND(R6),DACSPND- ;IF LBS ACCESS/DEACCESS PENDING 


; 
; Isolate function 


MOVZWL FUNC(AP),R10 


code and begin decoding 


;GET I/O FUNCTION CODE AND MODIFIERS 


BICL3 #AC<IO$M_FCODE>,R10,R7 ;CLEAR ALL BUT I/O FUNCTION CODE 


BBS SA#¥DEV$V_SPL,UCB$L_DEVCHAR(RS),SPOOL ;IF SET, DEVICE IS SPOOLED 
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~1 58 
. 37 
39 64 
51 
7B O8 
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; Acquire FDT address. 


#DEV$V_ FOD,UCB$L_DEVCHAR(RS) ,NOT_FILE_DEVB ;XFER IF NOT MOUNTAB 


NSPOOL: BBC a = 
CHKDON: MOVL UCB$L_DDT(R5) ,RO ;GET ADDRESS OF DDT 
MOVL DOT$L_FDOT(RO),R8 3;GET ADDRESS OF FDT 
BBC R7 ,LEGAL(R8) ,ILLIO ;IF CLR, ILLEGAL I/0 FUNCTION 
BBC #UCBSV_ONLINE,UCB$W_STS(R5),OFFLINE ;IF CLR, DEVICE OFFLINE 
; Probe and clear IOSB if it is specified. 
PRIOSB: MOVL IOSBC(AP) ,R1 ;GET ADDRESS OF I/0 STATUS BLOCK 
BEQL NOIOSB ;1F EQL NONE SPECIFIED 
IFNOWRT #8,(R1),ACCVIO s;CAN I/O STATUS BLOCK BE WRITTEN? 
CLRQ (R1) ;CLEAR I/0 STATUS BLOCK 
; Charge appropriate I/O counts depending upon type. Counts will have to 
3; be backed out if no I/O packet is available. Set IPL to block process 
; deletion once we are committed. 
NOITOSB: SETIPL #IPL$_ASTDEL ;PREVENT PROCESS DELETION 
BBC R7,IOTYPE(R8) ,DIRECT ;IF CLR, DIRECT I/0 FUNCTION 
ASSUME IRP$M_BUFIO EQ 1 ;TO ALLOW INCREMENT BELOW 
INCW RQ : .;SET IRP$M_BUFIO 
DECW PCB$W_BIOCNT(R4) ; CHARGE FOR ANOTHER BUFFERED I1/0 
BGEQ OK ;OK IF NOT NEGATIVE 
PUSHAW PCB$W_BIOCNT(R4) ;SET ADDRESS OF QUOTA CELL 
NOCNT: MOVL (SP),R2 3; FETCH QUOTA: ADDRESS 
INCW (R2) ;BACKOUT CHARGE 
SETIPL #0 ;LOWER IPL TO WAIT AT IPL O 
BSBW EXE$SNGLEQUOTA ;CHECK UNIT QUOTA OF I/O FUNCTION TYPE 
BLBC RO,ERROR ;IF LBC QUOTA EXCEEDED 
DECW @(SP)+ ;CHARGE FOR I/0 OF TYPE 
BRB OK ; 
ILLIO; MOVZWL #SS$_ ILLIOFUNC,RO ;SET ILLEGAL I/O FUNCTION STATUS 
BRB ERROR ; 
OFFLINE: CMPB #I10$ DEACCESS,R7 ;CHECK FOR DEACCESS 1/0 FUNCTION 
BEQL PRIOSB ;ALLOW- IT TO PROCEED 
CMPB #10$ ACPCONTROL ,R7 ; LIKEWISE FOR ACP CONTROL 
BEQL PRIOSB ;SO THAT A FILE ON AN OFFLINE DEVICE 
;MAY BE CLOSED 
MOVZWL #SS$_DEVOFFLINE,RO ;SET DEVICE OFFLINE STATUS 
BRB ERROR ; 
ACCVIO: MOVZWL SA#SS$_ ACCVIO,RO ;SET ACCESS VIOLATION STATUS 
ERROR: SETIPL #0 ;ALLOW INTERRUPTS 
PUSHL RO ; ;SAVE FINAL STATUS 
MOVL PCB$L_PID(R4),R1 ;GET PROCESS ID OF CURRENT PROCESS 
CLRL R2 ;SET PRIORITY CLASS INCREMENT 
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QUEUE 1/0 REQUEST 12-MAR-1982 17:19:50 DISKS$VMSMASTER: [SYS.SRC]SYSQIOREQ. (1) 
9A 0132 330 MOVZBL EFN(AP),R3 ;GET SPECIFIED EVENT FLAG NUMBER 
30 0136 331 BSBW SCHSPOSTEF :POST SPECIFIED EVENT FLAG 
BA. 0139 332 POPR #AM<RO> sRESTORE FINAL STATUS 
04 0138 333 RET ; 
013C 334 
013C 335 ; ; 
013C 336 ; ALLOCATE REQUEST I/0 PACKET - WHEN THE LOOKASIDE LIST IS EMPTY. 
013C 337 ; 
013C 338 
30 8 013C 339 ALLOC: BSBW EXE$ALLOCIRP sALLOCATE I/0 REQUEST PACKET 
E8 O13F 340 BLBS RO,SUCCES ;IF LBS SUCCESSFUL ALLOCATION 
3F 0142 341 PUSHAW PCB$W_BIOCNT(R4) ;ASSUME BUFFERED I/0 
EB 0145 342 BLBS RQ ,NALLOC ;IF SET, BUFFERED 1/0 
SF 0148 343 PUSHAW PCB$W_DIOCNT(R4) ;ELSE DIRECT 1/0 
B6 014B 344 NALLOC: INCW @(SP)+ ;RESTORE COUNT, SINCE NO I/O STARTED 
11 014D 345 BRB ERROR ; 
014F 346 
014F 347 ; 
O14F 348 ; Convert section index to window address. 
O14F 349 ; 
014F 350 
32 O14F 351 SECTION: CVTWL CCB$L_WIND(R6) ,RO ;SIGN EXTEND SECTION INDEX 
DO 0153 352 MOVL @#CTL$GL_PHD,R1 ;GET ADDRESS OF PROCESS HEADER 
0159 
CO O15A 353 ADDL PHD$L_PSTBASOFF(R1),R1 ;CALCULATE BASE ADDRESS OF SECTION TABLE 
DO O1S5E 354 MOVL SEC$L_WINDOW(R1)[RO],-4(R2) ;GET ADDRESS OF REAL WINDOW 
0162 ‘ 
11 0164 355 BRB NOSECT ; 
0166 356 
3F 0166 364 NODCNT: PUSHAW PCB$W_DIOCNT(R4) ;SET FOR DIRECT I/O FUNCTION 
11 0169 365 BRB NOCNT ; 
016B 366 
B7 016B 367 DIRECT: DECW PCB$W_DIOCNT(R4) ;CHARGE FOR ANOTHER DIRECT I/0 
19 O16E 368 BLSS NODCNT ;BR IF NONE ALLOWED 
0170 369 Ok: . 
OF 0170 370 GTPKT: REMQUE @WAIOCS$SGL_IRPFL,R2 ;GET I/0 PACKET FROM LOOK ASIDE LIST 
1D Q175 371 BVS ALLOC 3;1F VS EMPTY LIST 
0177 372 
0177 = 373 :; 
0177 374 ; BUILD DEVICE INDEPENDENT PART OF I/0 PACKET 
0177 375 ; . 
0177 376 ; R2 - IRP Address 
0177 377 ; R4 - PCB Address 
0177 378 ; R5 - UCB Address 
0177 379 ; R6 - CCB Address 
0177 380 ;WR7 - Function code (original) 
0177 381 R8 - FOT address 
0177 382 RQ - Channel index @ 16 + (IRP$M_BUFIO -- if buffered 1/0) 
0177 383 ;*R10 - Function code (transformed) 
0177 384 ; R11 - Access mode 
0177 385 ; 
B6 0177 386 SUCCES: INCW CCB$W_IOC(R6) 3; INCREMENT OUTSTANDING I/O ON CHANNEL 
O17A 387 ASSUME IRP$W_SIZE EQ 8 ;FOR FOLLOWING OPTIMIZATION 
7E O17A 388 MOVAQ (R2)+,R3 ;COPY ADDRESS AND ADD IRP$W_SIZE TO R2 
7D 017D 389 MOVQ ASTADR(AP) ,RO ; INSERT AST ADDRESS AND PARAMETER 
DO 0181 390 MOVL PCB$L_ARB(R4),IRP$L_ARB(R3) ;COPY ACCESS RIGHTS BLOCK ADDRESS 


0185 
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;RLRMXBCNTC 
‘;$RBO118 
;SRBO1 18- 
;SRBO118 
;SRBO118 
;SRB0118 
;SRB0118 
;5SRBO118 
;SRBO118 
3;SRBO118 
3; SRBO118 


;SRBO118 
;SRBO118 
;5RB0118 
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OOOA00C4 


5B 


82 
59 
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5B 


B2 


82 


5B 


A4 


60 
04 


82 
5B 


04 


82 


5B 


82 
58 


5C 


59 
57 


AC 
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50 
10 


A6 
97 


55 


SA 


5B 
04 
AC 
1c 
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01 
82 
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A3 
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05 


FED 


0000’ 


50 


0000’ 


38 


10 
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A3 
CF 


AS 
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D5 
13 
88 
B7 
78 


C9 


9C 


DO 
90 


7D 
9C 


DO 
14 
DO 


BO 


DO 
co 
DO 
co 


9C 


CB . 


7C 
D4 
D4 


DO 
D6 


DO 


0187 
0187 
0189 
018B 
O18F 
0192 
0196 
0196 
0198 
019D 
O19E 
01A2 
01A3 
01A3 
O1A7 
O1AB 
01AB 
01AB 
01AB 
O1AE 
01B2 
01B2 
01B2 
01B6 
01B8 
01B8 
01B8 
01BB 
01BB 
O1BE 
O1BE 
O1BE 
01BE 
01C1 
01C4 
01C8 
01CB 
01CB 
01CB 
O1CF 
01D3 
0105 
01D7 
O1DA 
O1DA 
O1DA 
O1DE 
01E0 
O1E3 
O1E5 
O1E5 
O1ES 
O1E8 
O1EC 
O1EE 
O1F2 
O1F5 


391 
392 
393 
394 
395 
396 5$: 
397 
398 


399 


400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 NOSECT: 
415 
416 
417 
418 
419 
420 
421 


HPAHAABAALA 
NNNNNNN ND 
OMNOUDWN 


3$: 


~AOONOOTHWN — 


eo. 
— wi @ 


ASSUME 
TSTL 
BEQL 
BISB 
DECW 
ASHL 
ASSUME 
BISL3 


ROTL 


ASSUME 
MOVL 
MOVB 


ASSUME 
ASSUME 
MOVQ 
ROTL 


ASSUME 
MOVL 
BGTR 


ASSUME 
MOVL 
ASSUME 
MOVW 
ASSUME 
ASSUME 
ASSUME 
MOVL 


ADDL, \e#FDTACT-12,RB 


MOVL ~ 
ADDL 
ASSUME 
ASSUME 
ROTL 
BICL3 
CLRQ 
CLRL 
CLRL 


-IF DF 
TSTL 
BEQL 
BSBwW 
BRB 

. ENDC 


SETIPL 
MOVL 


INCL 
SETIPL 
MOVL 


12-MAR-1982 17:19:50 - DISKSVMSMASTER: [SYS.SRC]SYSQIOREQ. (1) 


IRP$B_RMOD EQ 11 ;FOR SHIFT BELOW 

RO ;CHECK FOR AST 

5$ 3; NONE 

#ACB$M_QUOTA,R11 ;NOTE QUOTA CHARGE 

PCB$W_ASTCNT(R4) ;CHARGE QUOTA 

#24,R11,R11 ;ALIGN ACCESS MODE 

IRP$B_TYPE EQ 10 ;FOR BISL BELOW 
R11,#<<DYN$C_IRP@16>!IRP$C_LENGTH>,(R2)+ ;INSERT TYPE AND LENGTH 


#16,PCB$B_PRIB-3(R4),R11;FETCH AND ALIGN PRIORITY 

IRP$L_PID EQ 12 ; 

PCB$L_PID(R4),(R2)+ ; INSERT PROCESS ID OF CURRENT PROCESS 
EFN(AP),R11 ;MERGE EVENT FLAG NUMBER 


“IRP$L_AST EQ 16 
IRP$L_ASTPRM EQ 20 


;FOR MOVQ BELOW 
;FOR MOVQ BELOW 


RO, (R2)+ ; INSERT AST ADDRESS AND PARAMETER 
#16,R11,R11 ;ALIGN PRIORITY AND EVENT FLAG NUMBER 
IRP$L_WIND EQ 24 

CCB$L_WIND(R6) , (R2)+ ;GET WINDOW ADDRESS 

SECTION ;BR IF SECTION INDEX 

IRP$L_UCB EQ 28 

R5,(R2)+ ; INSERT DEVICE UCB ADDRESS 

IRP$W_FUNC EQ 32 

R10,R11 ;MERGE 1/0 FUNCTION CODE 


IRP$B_EFN EQ 34 

IRP$B_PRI EQ 35 

IRP$L_IOSB EQ 36 

R11, (R2)+ ; INSERT PRI,EFN, FUNC 

;POINT TO ACTION ROUTINE MASKS 

IOSB(AP) ,(R2)+ ; INSERT I/O STATUS BLOCK ADDRESS 

#P1,AP ;POINT TO FIRST FUNCTION DEPENDENT PARAMETER 
IRP$W_CHAN EQ 40 

IRP$W_STS EQ 42 


#16,R9,(R2)+ ;INSERT CHANNEL INDEX AND STATUS 


#1,R7,R9 ;PREPARE FOR VIRTUAL CHECK BELOW 
(R2)+ ;CLEAR PTE ADDRESS, BYTE OFFSET, AND BYTE CO 
(R2) 


IRP$L_DIAGBUF (R3) ;INIT ORIGINAL PTE ADDR (LOG OR VIRT I/0 
CA$_MEASURE_IOT 


WAPMS$GL_IOPFMPDB ;DATA COLLECTION ENABLED? 


3$ ;BR IF NO 

_PMS$START_RQ ; INSERT START OF 1/0 REQUEST MESSAGE 
4$ ; 

#15 ;DISABLE SOFTWARE INTERRUPTS 


WAPMS$GL_IOPFMSEQ,IRP$L_SEQNUM(R3) ;INSERT PACKET SEQUENCE NUMBER 


WAPMS$GL_IOPFMSEQ ; INCREMENT I/O TRANSACTION SEQUENCE NUMBER 
#IPL$ ASTDEL ;ENABLE INTERRUPTS 
UCB$L_DEVCHAR(R5) ,R11 3;GET DEVICE CHARACTISTICS FOR MANY 
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-13 


;SRB0118 
-4 


59 


OD 5B 


18 


53 5B 
61 SB 


57 
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00014040 


38 


30 
35 
OE 


A3 
18 
13 
18 


10 


8F 
5B 


A4 
40 
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D1 


E 1 


C2 


D3 


12 


BS 
19 


12-MAR-1982 17:19:50 DISKS$VMSMASTER: [SYS.SRC]SYSQIOREQ. (1) 
; COMPARES BELOW 
IF REQUESTING PROCESS HAS PRIVILEGE TO ACCESS. DEVICE 
LOW BIT OF FUNCTION CODE WAS CLEARED ABOVE 


ASSUME IO$ READVBLK-IO$_WRITEVBLK EQ 1 


CMPL SA#IO$ WRITEVBLK,R9 ;VIRTUAL READ OR WRITE? 
BNEQ 15$ . ;IF NEQ NO 
BBC SA#DEV$V_FOD,R11,5$ ;IF CLR, NOT FILE DEVICE 


; THE FOLLOWING TEST IS NECESSITATED BY THE SYSTEM INITIALIZATION SEQUENCE 


TSTL IRP$L_WIND(R3) ;WINDOW ADDRESS SPECIFIED? 
BNEQ 90$ ;I1F NEQ YES 

BBC SA#DEV$V_MNT,R11,60$ ;IF CLR, DEVICE NOT MOUNTED 
BBC SA#DEVS$V_FOR,R11,80$ ;1F CLR, MOUNTED STRUCTURED 


; CONVERT VIRTUAL READ/WRITE FUNCTION TO ITS LOGICAL COUNTERPART 


QUEUE I/0 REQUEST 
O1F9 443 
0O1F9 444 ; 
O1F9 445 ; CHECK 
QO1F9 446 ; 
O1F9 447 ; NOTE: 
O1F9 448 ; 
O1F9 449 
O1F9 1 
O1FC 451 
O1FE 452 
0202 453 
0202 454 ; 
0202 455 
0202 456 ; 
0202 457 
0202 458 
0205 459 
0207 460 
020B 461 
O20F 462 
0O20F 463 
O20F 464 
O20F 465 ; 
O20F 466 
O20F 467 5$: 
0212 468 
0216 469 
021C 
021D 470 
0210 471 
021D 472 
O21F 473 ; 
O21F 474 ; CHECK 
021F 475 >; 
021F 476 
O21F 477 90$: 
0222 478 
0224 479 
0224 480 ; 
0224 481 ; 
0224 482 ; 
0224 483 ; 
0224 484 ; 
0224 485 ; 
0224 486 ; 
0224 487 ; 
0224 488 ; 
0224 489 ; 
0224 490 ; 
0224 491 ; 
0224 492 ; 
0224 493 ; 
0224 494 ; 
0224 495 ; 
0224 496 ; 
0224 497 ; 
0224 498 ; 


SUBL SA#IO$_ READVBLK-IO$ READLBLK,R7 ;CONVERT TO LOGICAL FUNCTION 
SUBW SA#IO$ READVBLK-IO$_ READLBLK,IRP$W_FUNC(R3) ; 
BITL #<DEV$M_SPL!- ;NOT SPOOLED, 
DEV$M_-OD!- ;NOT FILE DEVICE, 
DEV$M_SHR>,R11 ;AND NOT SHARABLE 
BNEQ 15$ ;BR IF SATISFIED 


IF AST QUOTA IS EXCEEDED 


TSTW PCB$W_ASTCNT(R4) ;AST QUEUE ENTRY QUOTA EXCEEDED? 
BLSS 75$ ;IF LEQ YES 


SCAN FUNCTION DECISION TABLE CALLING EACH SELECTED ACTION ROUTINE WITH: 


RO = ADDRESS OF ACTION ROUTINE ENTRY POINT. 
R1 = SCRATCH. 

R2 = SCRATCH. 

R3 = ADDRESS OF 1/0 REQUEST PACKET. 

R4 = CURRENT PROCESS PCB ADDRESS. 

RS = ASSIGNED DEVICE UCB ADDRESS. 

R6 = ADDRESS OF CCB. 

R7 = 1/0 FUNCTION CODE BIT NUMBER. 

R8 = FDT DISPATCH ADDRESS. (UPDATED TO POINT TO ACTION ROUTINE MASKS) 
RQ = SCRATCH. 

R10 SCRATCH. 


Ri1 = SCRATCH. 
AP = ADDRESS OF FIRST FUNCTION DEPENDENT PARAMETER. 


NB: in the Guide to Writing a Device Driver, we document the contents 
of RO as being the address of the FDOT action routine entry point. 


SYSQIOREQ 


V03-012 


; LMP0206 
; LMP0221 
;LMP0221 
;LMP0221 
;LMP0221 
;LMP0221 
;LMP0221 
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; LMPO0206 
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QUEUE 1/0 REQUEST 12-MAR-1982 17:19:50 DISK$VMSMASTER: [SYS.SRC]SYSQIOREQ. (1) 
0224 499 ; This is the only reason that the dispatch code below does not read: 
0224 500 ; JSB @8 (RB) 

0224 501 ; Should future gererations wish to modify FDT dispatching to use the 
0224 502 ; single dispatch instruction, they must bear the responsibility for 
0224 503 ; breaking user written drivers. 
0224 504 
CO 0224 505 110§: ADDL #12,R8 ;POINT TO NEXT FUNCTION MASK 
El 0227 506 BBC R7,(R8),110$ ;IF CLR, THEN ACTION NOT SELECTED 
DO 0228 507 MOVL 8(R8) ,RO ;GET ADDRESS OF ACTION ROUTINE 
16 O22F 508 JSB (RO) ;CALL ACTION ROUTINE 
11. 0231 509 BRB 110$ ; 
0233 510 
0233 511; 
0233 512 ; CONTINUE DECODING FUNCTIONS OTHER THAN VIRTUAL READ/WRITE 
0233 513 ; , 
0233 514 
D1 0233 515 15$: CMPL SA¥IO$ LOGICAL,R7 :VIRTUAL I/O FUNCTION? 
19 0236 516 BLSS 80$ ;IF LSS YES 
0238 517 
0238 518 ; 
0238 519 ; LOGICAL OR PHYSICAL I/0 FUNCTION 
0238 520 ; 
0238 521 
0238 §22 IFPRIV PHY_10,80$ ;PROCESS HAVE PHYSICAL I/O PRIVILEGE? 
D1 O23E 523 CMPL SA#IO$_PHYSICAL,R7 sPHYSICAL I/O FUNCTION? 
19 0241 524 BLSS 20$ ;IF LSS NO 
0243 525 IFNPRIV LOG_10,60$ ;PROCESS HAVE LOGICAL I/0 PRIVILEGE? 
E2 0249 el BBSS #CCB$V_PHYCHKDON,CCB$B_STS(R6) ,80$ ;XFER IF CHECK DONE 
9E O24E 2 MOVAB WAEXE$CHKPHYACCES,R10 ;SET FOR PHYSICAL 1/0 FUNCTION CHECK 
11 0253 ma BRB 30$ ; 
0255 4 
E1 0255 -5 40$: BBC SA#DEV$V_SHR,R11,80$ ;IF CLR, DEVICE NOT SHAREABLE 
0259 -6 SO$: ; R4 ~- PCB ADDRESS 
0259 7 ; R5 - UCB ADDRESS 
16 0259 533 JSB (R10) —  3CHECK ACCESS TO VOLUME 
E8 0258 534 BLBS RO,80$ ;IF LBS ACCESS ALLOWED 
3C O25E 535 60$: MOVZWL #SS$ NOPRIV,RO ;SET NO PRIVILEGE STATUS 
31 0261 536 70$: BRW EXES$ABORTIO ; 
D5 0264 537 75$: TSTL IRP$L_AST(R3) ;DOES THIS REQUEST NEED AN AST? 
13 0267 538 BEQL 110% 3;NO, THEN CAN’T BE QUOTA EXCEEDED. 
3C 0269 539 MOVZWL #SS$_EXQUOTA,RO 3;AST QUOTA EXCEEDED 
11 O26C 540 BRB 70$ ; 
11 O26E .1 77$: BRB 40$ ; INTERMEDIATE BRANCH 
0270 541 ; 
0270 542 ; PROCESS HAS ACCESS TO DEVICE 
0270 543 ; 
0270 544 : 
D1 0270 545 80$: CMPL SA#IO$_PHYSICAL,R7 ;LOGICAL OR VIRTUAL I/O FUNCTION? 
19 0273 546 BLSS 90$ ;I1F LSS YES 
A8 0275 547 BISW #IRP$M_PHYSIO,IRP$W_STS(R3) ;SET PHYSICAL I/0 FLAG 
0279 
DO 0278 548 MOVL <P6-P1>(AP),R9Q ;GET ADDRESS OF DIAGNOSTIC BUFFER 
13 O27F 549 BEQL 90$ ;IF EQL THEN NOT SPECIFIED 
0281 550 ; 
0281 551 ; Process diagnostic buffer parameter 
0281 552 ; 
0281 553 IFNPRIV DIAGNOSE, 60$ 


;PROCESS HAVE PRIVILEGE TO DIAGNOSE? 
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; LMPO0206 
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; LMPO206 


; LMPO206 
-j 


51 


4c 
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53 
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DO 
3C 
13 
DD 
30 


8EDO 


EQ 
DO 
9E 
DO 
A8 


31 


E2 
9E 


EO 


E1 
El 
31 


0287 
028C 
0290 
0292 
0294 
0297 
029A 
029D 
O2A1 
02A5 
02A8 
O2AC 
O2AE 
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02B1 
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02B1 
02B1 
02B7 
O2BC 
02C1 
02C1 
02C1 
02C1 
02C1 
02C1 
02C5 
02C9 
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555 

ol 
557 
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559 
560 
561 
562 
563 
564 


565 


566 
567 
568 
569 
570 


- QUEUE I/O REQUEST SYSTEM SERVICE 
QUEVE I/O REQUEST 


MOVL 
MOVZWL 
BEQL 
PUSHL 
BSBW 
POPL 
BLBC 
MOVL 
“MOVAB 
MOVL 
BISW 


BRW 


IFPRIV 
BBSS 
MOVAB 


BBS 
BBC 
BBC 
BBC 
BRW 


3-JUN- 1984 
12-MAR-1982 


UCB$L_DDT(R5),R1 
DDT$W_DIAGBUF(R1),R1 
130$ 

R3 

EXESALLOCBUF 

R3 

RO,70$ 
R2,IRP$L_DIAGBUF(R3) 
12(R2),(R2)+ 

RQ, (R2) 


#IRP$M_DIAGBUF , IRP$W_STS(R3) 


90$ 


LOGICAL I/O FUNCTION 


LOG_10,130$ 


SA#DEV$V_SPL,R11,60$ 
SA#DEV$V_FOD,R11,77$ 
SA#DEV$V_MNT,R11,60$ 
SA#DEV$V_FOR,R11,60$ 
50$ 
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;GET ADDRESS OF DDT 

;GET SIZE OF DIAGNOSTIC BUFFER 

;IF EQL NO DIAGNOSTIC FUNCTIONS 
;SAVE 1/0 PACKET ADDRESS 

;ALLOCATE DIAGNOSTIC BUFFER 
;RETRIEVE 1/0 PACKET ADDRESS 

;IF LBC ALLOCATION FAILURE 

;SAVE ADDRESS OF DIAGNOSTIC BUFFER 
;SET POINTER TO DATA AREA 

;SAVE USER ADDRESS OF DIAGNOSTIC BUFFER 
;SET DIAGNOSTIC BUFFER PRESENT 


;PROCESS HAVE LOGICAL 1/0 PRIVILEGE? 
#CCB$V_LOGCHKDON, CCB$B_STS(R6) ,80$ 
WAEXE$CHKLOGACCES,R10 


;XFER IF CHECK DONE 


;SET FOR LOGICAL I/O FUNCTION CHECK 


PHYSICAL OR LOGICAL I/0 FUNCTION - CHECK ACCESSIBILITY OF DEVICE 


SPOOLED DEVICE 

NOT FILE DEVICE 
DEVICE NOT MOUNTED 
MOUNTED STRUCTURED 
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V03-012 BUILD I/0 PACKET FOR PAGE READ/WRITE 12-MAR-1982 17:19:50 DISK$VMSMASTER: [SYS.SRC]SYSQIOREQ. (1) 
02D4~—s- 583 .SBTTL BUILD I/0 PACKET FOR PAGE READ/WRITE 
02D4 584 ; 
0204 585 ; EXE$BUILDPKTR - BUILD I/O PACKET FOR PAGE READ 
02D4 586 ; EXE$BUILDPKTW - BUILD I/O PACKET FOR PAGE WRITE 
02D4 587 ; EXE$BLDPKTSWPR - BUILD I/O PACKET FOR SWAP READ 
02D4 588 ; EXE$BLDPKTSWPW - BUILD I/O PACKET FOR SWAP WRITE 
02D4 589 ; EXE$BLDPKTGSR - BUILD I/O PACKET FOR SHARED MEMORY GLOBAL SECTION READ 
02D4 590 ; EXE$BLDPKTGSW - BUILD I/O PACKET FOR SHARED MEMORY GLOBAL SECTION WRITE 
02D4 591 ; 
02D4 592 ; THIS ROUTINE IS CALLED TO FILL OUT AND QUEUE AN 1/0 PACKET 
02D4 593 ; FOR A SWAPPING OR PAGING READ OR WRITE. 
02D4 +594 ; 
02D4 595 ; INPUTS: 
0204 596 ; 
0204 597 ; RO = VIRTUAL BLOCK NUMBER 
0204 598 ; R1 = NUMBER OF BYTES TO TRANSFER (PAGE INCREMENTS) 
O02D4 599 ; R2 = WINDOW ADDRESS FOR MAPPING VBN TO LBN 
02D4 +600 ; R3 = SYSTEM VIRTUAL ADDRESS OF PAGE TABLE ENTRY: 
0204 601 ; R4 = CURRENT PROCESS CONTROL BLOCK ADDRESS 
02D4 602 ; PCB$W_DIOCNT(R4) IS ASSUMED GREATER THAN ZERO 
02D4 603 ; AND MUST BE CHECKED BY THE CALLER. 
02D4 604 ; R5 = 1/0 REQUEST PACKET ADDRESS 
02D4 +605 ; WITH THE FOLLOWING FIELDS ALREADY FILLED IN 
02D4 606 ; 
0204 +607 ; IRP$W_SIZE(R5) AND IRP$B_TYPE(RS5) 
02D4 ~=608 ; FOR ENTRY AT EXE$BUILDPKTW, EXE$BLDPKTGSR, AND EXE$BLOPKTGSW, 
02D4 ~=©609 ; THESE ARE FILLED IN BY THE CALL. FOR ALL OTHER ENTRY POINTS 
02D4 +610 ; THEY ARE FILLED IN BY THIS CODE. 
0204 611 ; IRP$L_AST(RS) = 
0204 612 ; FOR PAGE READ CASE - SYSTEM VIRTUAL ADDRESS OF SLAVE (PROCESS) 
0204 613 ; PAGE TABLE ENTRY FOR THE CASE OF A GLOBAL PAGE READ. 
0204 614 ; THIS MUST BE O FOR A SYSTEM OR PROCESS PAGE READ. 
02D4 615 ; FOR PAGE WRITE CASE - STANDARD QI/O AST ADDRESS 
02D4 616 ; FOR SWAPIO CASE - THIS PARAMETER IS CURRENTLY NOT USED 
02D4 617; 
0204 618 ; IRP$L_ASTPRM(R5) = 
02D4 619 ; FOR PAGE READ CASE - THE CONTENTS OF THE FAULTED PAGE TABLE ENTRY 
0204 620; USED TO RECOVER THE ORIGINAL BACKING STORE ADDRESS WHEN A PAGE 
02D4 621 ; READ ERROR OCCURRED FOR A COPY ON REFERENCE PAGE. 
02D4 622 ; FOR PAGE WRITE CASE - STANDARD QI/O AST PARAMETER 
02D4 623 ; FOR SWAPIO CASE - ADDRESS OF KERNEL AST ROUTINE TO CALL 
02D4 624 ; 
02D4 625 ; IRP$B_PRI(RS) = THE PRIORITY AT WHICH THE TRANSFER IS TO BE QUEUED 
02D4 626 ; 
0204 627 ; IRP$B_RMOD(RS) = 
02D4 628 ; FOR PAGE WRITE CASE - STANDARD QI/O MODE OF REQUESTER 
02D4 = 629 ;yx FOR ALL OTHER CASES - CONTAINS GARBAGE WHICH IS IGNORED 
02D4 630 ; 
02D4 «631 ; IRP$B_EFN(R5) = 
02D4 632 ; FOR PAGE WRITE CASE - STANDARD QI/O EVENT FLAG NUMBER 
0204 633 ; FOR ALL OTHER CASES ~ CONTAINS GARBAGE WHICH IS IGNORED 
0204 634 ; 
02D4 = 635; IRP$L_IOSB(RS5) = 
02D4 = 636 ;x FOR PAGE WRITE CASE - STANDARD QI/O I/0 STATUS BLOCK ADDRESS 
02D4 +637 ; FOR ALL OTHER CASES - CONTAINS GARBAGE WHICH IS IGNORED 
02D4 638 ; 
02D4 639 ; OUTPUTS: 
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SYSQIOREQ 
V03-012 
-sLJKO172 
;LUKO172 
;LUKO172 
;LJUKO172 
sLUKO172 
;LUKO172 
;LJKO172 
;LUKO172 
;LUKO172 00520000 8F 
;LUKO172 30 
;LUKO172 
;LJUKO172 
;LJUKO172 00500000 
;LJKO172 28 
;LJKO172 
:LJKO172 
sLUKO172 00520000 8F 
;LUKO172 16 
;LUKO172 
;LUKO172 
sLUKO172 00500000 8F 
;LUKO172 OE 
;LUKO172 
;LUKO172 
;LJKO172 00140000 8F 
;LUKO172 10 
;LUKO172 
;LUKO172 
;LUKO172 00160000 8F 
;LUKO172 
;LUKO %72 OOOA00C4 8F 
;LUKO172 18 OO 
08 AS 
;LUKO172 2C AS 53 
;LUKO172 4C AS 53 
;LUKO172 53 55 
;LUKO172 6E 01 11 
55 
;LJKO172 
;LUKO172 
;LUKO172 
;LUKO172 
:LJKO172 
;LUKO172 
;LUKO172 
sLUKO172 28 A245 
;LUKO172 OB 55 
20 A3 
;LUKO172 \OOFFFF 8F 
55 868E 
sLUKO172 
;LUKO172 
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BUILD I/0 PACKET FOR PAGE READ/WRITE 12-MAR-1982 17:19:50 DISKSVMSMASTER: [SYS.SRCISYSQIOREQ. (1) 
02D4 640 ; 
02D4 641 ; R4,R5 ALTERED 
02D4 642 ; 
02D4 643 
0204 644 -ENABL LSB 
02D4 a1 
02D4 .2 ; Note that the differentiation between READ and WRITE operations is 
0Q02D4 .3 ; encoded in the setting of the IRP$M_FUNC bit. 
02D4 4; 
02D4 Ape ae IRP$M_FUNC = 1 => IO$_ READPBLK ; Read operation 
02D4 -6 ; IRP$SM_FUNC = 0 => IO$ WRITEPBLK ; Write operation 
02D4 at 
02D4 .8 EXE$BLDPKTGSR:: ;BUILD PACKET FOR SHMGSD READ 
DDB 02D4 .9 PUSHL #<IRP$M_SWAPIO ! IRP$M_VIRTUAL ! IRP$M_FUNC>@16 
11 Q2DA .10 BRB 20$ ;TYPE/SIZE ALREADY SET IN PACKET 
O2DC 11 
O02DC 12 EXE$BLDPKTGSW:: ;BUILD PACKET FOR SHMGSD WRITE 
DDB O2DC 13 PUSHL #<IRPGSM_SWAPIO ! IRP$M_VIRTUAL>@16 
11 O2E2 14 BRB 20$ ;TYPE/SIZE ALREADY SET IN PACKET 
02E4 15 
O2E4 16 EXE$BLDPKTSWPR:: ;BUILD SWAP READ PACKET 
DD O2E4 17 PUSHL #<IRPSM_SWAPIO ! IRP$M_VIRTUAL ! IRPSM_FUNC>@16 
V1 O2EA 18 BRB 10% ; 
O2EC 19 
O2EC .20 EXESBLDPKTSWPW: : ;BUILD SWAP WRITE PACKET 
DDB O2EC -21 PUSHL #<IRPSM_SWAPIO ! IRP$M_VIRTUAL>@16 
11 O2F2 .22 BRB 10$ ; 
O2F4 23 
O2F4 24 EXE$BUILDPKTW:: ;BUILD I/0 PACKET FOR PAGE WRITE 
DD O2F4 25 PUSHL #<IRP$M_PAGIO ! IRP$M_VIRTUAL>@16 
11. O2FA . 26 BRB 20$ ; 
O2FC .27 
O2FC 28 EXE$BUILDPKTR:: ;BUILD I/0 PACKET FOR PAGE READ 
DD O2FC .29 PUSHL #<IRPG$M_PAGIO ! IRP$M_VIRTUAL ! IRP$M_FUNC>@16 
0302 .30 
FO 0302 .31 10$: INSV #<DYN$C_IRP@16 ! IRP$C_LENGTH>,- ;SET SIZE 
0308 .32 #0,#24,IRPSW_SIZE(R5) s;AND TYPE OF PACKET 
O30A 
DO O80C .33 20$: MOVL R3,IRP$L_SVAPTE(R5) 3; SYSTEM VIRTUAL ADR OF PAGE TABLE ENTRY 
DO 0310 34 MOVL R3,IRP$L_DIAGBUF (R5) ;NEED COPY OF ORIGINAL FOR SEGMENTED XFERS 
DO 0314 35 MOVL R5,R3 ;PACKET ADDRESS TO R3 
EE 0317 36 EXTV #<IRP$V_FUNC+16>,#1,(SP),R5 
031B 
O31C .37 
O31C .38 ; RS = -1 for read 
031C .39 ; R5 = O for write 
031C .40 
O031C 41 ASSUME <IO$ WRITEPBLK + 1> EQ I10$_READPBLK 
O031C .42 ASSUME <WCB$L_WRITES - 4> EQ WCB$L_READS 
O31C .43 
D6 O31C .44 INCL WCB$L_WRITES(R2)[R5] ;USE CODE TO BUMP READ OR WRITE COUNT 
A3 0320 .45 SUBW3 R5,#10$ WRITEPBLK,IRP$W_FUNC(R3) ;SET REAL FUNCTION CODE 
0323 
CB 0325 46 BICL3 #AXFFFF,(SP)+,R5 ;GET STATUS BITS AND CLEAR CHANNEL 
0328 
032D .47 
032D 48 ASSUME IRP$W_STS EQ IRP$W_CHAN+2 
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V03-012 BUILD I/O PACKET FOR PAGE READ/WRITE 12-MAR-1982 17:19:50 DISK$VMSMASTER: [SYS.SRC]SYSQIOREQ. (1) 
;LJUKO172 032D .49 
-33 28 A3 55 DO 032D 678 MOVL R5, IRP$W_CHAN(R3) ;SET CHANNEL AND STATUS 
55 10 A2 DO 0331 679 MOVL WCB$L_ORGUCB(R2) ,R5 :GET UCB ADDRESS FROM WINDOW 
1c A3 55 DO 0335 680 MOVL R5,IRP$L_UCB(R3) ;SET UCB ADDRESS 
OC A3 60 A4 DO 0339 681 MOVL PCB$L_PID(R4),IRP$L_PID(R3) ;PROCESS ID FROM PCB 
48 A3 50 DO O33E 682 MOVL RO, IRP$L_SEGVBN(R3) ; STARTING VIRTUAL BLOCK NUMBER 
18 A3 52 DO 0342 683 MOVL R2,IRP$L_WIND(R3) ;WINDOW ADDRESS 
0O8sc C4 DO. 0346 684 MOVL PCB$L_ARB(R4),IRP$L_ARB(R3) ;ACCESS RIGHTS BLOCK ADDRESS 
58 A3 034A 
034C 685 
30 A3 B4 034C 686 CLRW IRP$W_BOFF(R3) ;ZERO BYTE OFFSET 
32 A3 51 DO O34F 687 MOVL R1,IRP$L_BCNT(R3) ;SET BYTE COUNT 
40 A3 D4 0353 688 CLRL IRP$L_ABCNT(R3) ;ZERO ACCUMULATED BYTE COUNT 
44 A3 51 DO 0356 689 MOVL R1,IRP$L_OBCNT(R3) ;SET ORIGINAL BYTE COUNT 
O35A 690 
O35A° ~=691 IF DF,CA$ MEASURE IOT 
O35A 692 < a 
FCA3’ 30 035A 693 BSBW PMS$START_RQ ; INSERT START OF I/O REQUEST MESSAGE 
035D 694 
035D 695 .ENDC 
035D 696 
FCAQ’ 31 O35D 697 BRW IOC$QNXTSEG1 ;QUEUE THE FIRST SEGMENT OF THE I/O REQUEST 
0360 698 ; AND RETURN 


0360 699 -DSABL LSB 
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38 


0000’ 


A3 


DF 


70 


51 


AS 
50 
01 
63 


39 
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COMPLETE I/0 OPERATION 12-MAR-1982 17:19:50 DISK$VMSMASTER: [SYS.SRC]SYSQIOREQ. (1) 
0360 701 .SBTTL COMPLETE I/O OPERATION 
0360 702 ;+ 
0360 703 ; EXE$ABORTIO —- ABORT I/O OPERATION 
0360 704 ; 
0360 705 ; THIS ROUTINE IS JUMPED TO FROM A FUNCTION DECISION TABLE ACTION ROUTINE 
0360 706 ; TO FINISH AN I/O OPERATION WITHOUT RETURNING THE FINAL I/O STATUS. 
0360 707 ; 
0360 708 ; EXES$FINISHIO - FINISH I/0 OPERATION 
0360 709 ; 
0360 710 ; THIS ROUTINE IS JUMPED TO FROM A FUNCTION DECISION TABLE ACTION ROUTINE 
0360 711 3; TO FINISH AN I/O OPERATION AND RETURN THE FINAL I/0 STATUS. 
0360 712 ; 
0360 713 ; EXE$FINISHIOC - FINISH I/O OPERATION WITH SECOND 1/0 STATUS LONGWORD CLEARED 
0360 714 ; 
0360 715 ; THIS ROUTINE IS JUMPED TO FROM A FUNCTION DESCISION TABLE ACTION ROUTINE 
0360 716 ; TO FINISH AN I/0 OPERATION AND RETURN THE FINAL I/0 STATUS WITH THE 
0360 717 ; SECOND I/O STATUS LONGWORD CLEARED. 
0360 718 ; 
0360 719 ; INPUTS: 
0360 720 ; 
0360 721 3 RO = FIRST LONGWORD OF FINAL I/O STATUS. 
0360 722 ; R1 = SECOND LONGWORD OF FINAL I/O STATUS. 
0360 723 =; R3 = ADDRESS OF I/O REQUEST PACKET. 
0360 724 ; R4 = CURRENT PROCESS PCB ADDRESS. 
0360 725 ; R5 = UCB ADDRESS OF DEVICE UNIT. 
0360 726 ; 
0360 727 ; OUTPUTS: 
0360 728 ; 
0360 729 ; THE FINAL I/0 STATUS IS STORED IN THE I/0 PACKET AND THE PACKET IS 
0360 730 ; INSERTED IN THE I/O POST PROCESSING QUEUE. A’ SOFTWARE INTERRUPT 
0360 731~= =; IS GENERATED TO INITIATE I/0 POST PROCESSING AND THE FIRST WORD 
0360 732 =; OF THE FINAL I/O STATUS IS RETURNED AS THE SERVICE STATUS. 
0360 733 37 
0360 734 
0360 735 -ENABL LSB 
0360 736 EXES$ABORTIO:: ;ABORT I/0 OPERATION 
D4 0360 737 CLRL IRP$L_IOSB(R3) ;CLEAR ADDRESS OF I/0 STATUS BLOCK 
E5 0363 738 BBCC #ACB$V_QUOTA,IRP$B_RMOD(R3),10$ ;IF CLR, NO AST SPECIFIED 
B6 0368 739 INCW PCB$W_ASTCNT(R4) ;UPDATE AVAILABLE AST QUEUE ENTRIES 
11 O36B 740 BRB 10$ 3 
036D 741 EXESFINISHIOC:: ;FINISH I/O OPERATION CLEAR SECOND LONGWORD 
D4 O36D 742 CLRL R1 ;CLEAR SECOND I/0 STATUS LONGWORD 
O36F 743 EXES$FINISHIO:: ;FINISH I/0 OPERATION 
D6 O36F 744 INCL UCB$L_OPCNT(R5) ; INCREMENT OPERATIONS COMPLETED 
7D 0372 745 MOVQ RO, IRP$L_MEDIA(R3) ;STORE FINAL I/O STATUS 
3C 0376 746 MOVZWL =SA#SS$_NORMAL,RO ;SET NORMAL COMPLETION STATUS 
OE 0379 747 ~«+10$: INSQUE (R3),@WAIOCS$GL_PSBL ; INSERT I/O PACKET IN POST PROCESS QUEUE 
O37E 748 SOFTINT #IPL$ IOPOST ; INITIATE SOFTWARE INTERRUPT 
11 0381 749 BRB QIORETURN ; 
0383 750 -DSABL LSB 
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QUEVE I/O PACKET TO DRIVER 12-MAR-1982 17:19:50 DISKS$VMSMASTER: [SYS.SRC]SYSQIOREQ. (1) 

0383 752 -SBTTL QUEUE I/O PACKET TO DRIVER 
0383 753 ;+ 
0383 754 3; EXES$QIODRVPKT - QUEUE I/O PACKET TO DRIVER 
0383 755 ; 
0383 756 3; THIS ROUTINE IS JUMPED TO FROM A FUNCTION DECISION TABLE ACTION ROUTINE 
0383 757 ; TO QUEUE AN I/O PACKET TO THE APPROPRIATE DRIVER. 
0383 758 ; 
0383 759 ; INPUTS: 
0383 760 ; 
0383 761 ; R3 = ADDRESS OF I/0 REQUEST PACKET. 
0383 762 ; R4 = CURRENT PROCESS PCB ADDRESS. 
0383 763 ; R5 = UCB ADDRESS OF DEVICE UNIT. 
0383 764 ; 
0383 765 .; OUTPUTS: 
0383 766 ; 
0383 767 ; THE I/O PACKET IS QUEUED BY PRIORITY IN THE. APPROPRIATE DEVICE 
0383 768 ; QUEUE AND A NORMAL COMPLETION STATUS IS RETURNED. 
0383 769 37 
0383 770 
0383 771 EXESQIODRVPKT: : ;QUEUE I/O PACKET 

10 0383 772 BSBB EXESINSIOQ ;INSERT 1/0 PACKET IN DEVICE QUEUE 

11 0385 773 BRB EXE$QIORETURN : 
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EXE$ALTQUEPKT —- Call 


DO 
16 


05 


0387 775 
0387 776 
0387 777 
0387 778 
0387 779 
0387 780 
0387 781 
0387 782 
0387 783 
0387 784 
0387 785 
0387 786 
0387 787 
0387 788 
0387 789 
0387 790 
0387 791 
0387 792 
0387 793 
0387 794 
0387 795 
0387 796 
0387 797 
0387 798 
0387 799 
0387 800 
0387 801 
0387 802 
0387 803 
0387 804 
O38E 805 
0393 806 
0396 807 
0399 808 


driver ALTSTART ent 12-MAR-1982 17:19:50 DISKSVMSMASTER: [SYS.SRC]SYSQIOREQ. (1) 


-SBTTL EXES$ALTQUEPKT - Call driver ALTSTART entry point 
; EXESALTQUEPKT - activates a driver at its ALTSTART entry point 
: Routine description: 
3 Locates and calis a driver entry point supplied: as an alternate 
; START I/0 entry point. Does not test for unit busy before the 
3 call. Exits by returning to caller. 
; The routine expects to gain control at or below driver fork 
; level. The routine raises to driver fork IPL before the call, 
3 and restores the previous IPL before returning to its caller. 
; Inputs: 
: R3 - address of packet or buffer 
; R5 ~ address of UCB 
; Outputs: 
; Control returns to the requesting process. 
; The routine destroys RO-R1. 
EXE$SALTQUEPKT:: ; Start I/O in driver. 
DSBINT UCB$B_FIPL(R5) ; Raise to fork IPL. 
MOVL UCB$L_DDT(R5),RO ; Get address of unit’s DDT. 
JSB @DDT$L_ALTSTART (RO) ; Call alternate start I/O routine. 
ENBINT ; Reenable interrupts. 
RSB ; Return to caller. 
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VO3-012 QUEUE I/O PACKET TO ACP 12-MAR-1982 17:19:50 DISK$VMSMASTER: [SYS.SRC]SYSQIOREQ. (1) 
039A 810 .SBTTL QUEUE I/O PACKET TO ACP 
039A 811 ;+ 
039A 812 ; EXE$QIOACPPKT ~ QUEUE I/0 PACKET TO ACP 
039A 813 ; 
O39A 814 ; THIS ROUTINE IS JUMPED TO FROM A FUNCTION DECISION TABLE ACTION ROUTINE 
;CDSO0001 039A .1 3 TO QUEUE AN I/O PACKET TO THE APPROPRIATE ACP OR XQP, 
~1 039A 816 ; 
039A 817 ; INPUTS: 
039A 818 ; 
039A 819 ; R3 = ADDRESS OF I/O REQUEST PACKET. 
039A 820 ; R4 = CURRENT PROCESS PCB ADDRESS. 
039A 821 ; R5 = UCB ADDRESS OF DEVICE UNIT. 
039A 822 ; 
039A 823 ; CURRENT IPL MUST BE AT SYNCH OR HIGHER LEVEL. 
039A 824 ; 
039A 825 ; OUTPUTS: 
039A 826 ; 
039A 827 ; R4 ALTERED 
;CDSO001 039A eit 4 THE I/O PACKET IS QUEUED AT THE END OF THE APPROPRIATE ACP OR XQP QUEUE 
-1 039A 829 ; AND A NORMAL COMPLETION STATUS IS RETURNED. 
039A 830 ;- 
039A 831 
039A 832 EXE$QIOACPPKT:: ;QUEUE 1/0 PACKET TO ACP 
52 34 A5 DO 039A 833 MOVL UCB$L_VCB(R5),R2 ;GET ADDRESS OF VCB 
52 10 A2 DO O39E 834 MOVL VCB$L_AQB(R2) ,R2 ;GET ADDRESS OF ACP AQB 
;CDS0001 OC AZ D5 O03A2 1 TST AQB$L_ACPPID(R2) ;GET ADDRESS OF AQB 
;CDSO001 19 13 03A5 2 BEQL xQP ;EQL IF IT’S FOR XQP 
60 10 O3A7 835 BSBB = EXESINSERTIRP ; INSERT I/O PACKET IN ACP QUEUE 
OF 12 O3A9 836 BNEQ EXE$QIORETURN ;IF NEQ NOT FIRST ENTRY IN QUEUE 
51 OC A2 DO O3AB_ 837 MOVL AQB$L_ACPPID(R2),R1 ;GET ACP. PROCESS. ID 
FC4E’ 30 O3AF 838 BSBW SCH$SWAKE ;WAKE UP ACP PROCESS 
04 50 £8 0382 839 BLBS RO, EXESQIORETURN ;IF LBS ACP STILL PRESENT 
03B5 840 BUG_CHECK NONEXSTACP ;NONEXISTENT ACP PROCESS 
03B9 841 EXE$QIORETURN:: ;QUEUE 1/0 REQUEST COMPLETION STATUS RETURN 
50 O01 3C O03B9 842 MOVZWL #SS$_NORMAL,RO ;SET NORMAL COMPLETION STATUS 
O3BC 843 QIORETURN: ;RETURN SPECIFIED STATUS 
O3BC 844 SETIPL #0 ;ALLOW ALL INTERRUPTS 
| 04 O3BF 845 RET 
; CDSO005 03CO .1 XQP: 
; CDSO005 55 60 A3 9E O03CO 2 MOVAB IRP$L_FQFL(R3), R5 ;USE CDRP PART OF IRP AS ACB 
; CDSO005 03C4 3 SETIPL #IPL$_ASTDEL ;ALLOW PAGEFAULTS 
; CDSO005 F2 AF 9F 03C7 4 PUSHAB QIORETURN ;RETURN ADDRESS -FROM EXE$QXQPPKT 
; CDSO005 O3CA 5 ; 
; CDSO00S O3CA 6 ; FALL THROUGH TO XQP QUEUEING ROUTINE IMMEDIATELY FOLLOWING. 
; CDSO005 O3CA 7 ; RSB FROM THIS ROUTINE RETURNS TO EXIT ABOVE. 
; CDSO005 O3CA 8 ; 
; CDSO005 O3CA 9 
; CDSO005 O3CA 10 .SBTTL EXE$QXQPPKT - QUEUE I/O PACKET TO xaQP 
; CDS0005 O3CA 111 5+ 
; CDSO005 O3CA .12 ; EXE$QXQPPKT - INSERT I/O PACKET IN XQP QUEUE 
; CDS000S O3CA 13; 
; CDSO005 03CA 14 ; THIS ROUTINE IS CALLED TO INSERT AN I/O PACKET IN THE XQP QUEUE 
; CDSO005 O3CA 15; AND START THE THREAD OF EXECUTION IF IT IS THE ONLY REQUEST. 
; CDSO000S O3CA 16 ; 
; CDSO005 O3CA 17; CALLING SEQUENCE: 
; CDSO005 O3CA 18 ; BSB/JSB EXE$QXQPPKT - THIS IS EITHER CALLED FROM QIO OR 
; CDSO005 O3CA 19 ; AS A SPECIAL KERNEL AST INVOKED BY IOPOST. 
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V03-012 


;CDSOO005 
;CDSO005 
;CDSO005 
;CDSO005 
;CDSO005 
;CDSO0005 
;CDSO005 
; CDSO005 
;CDSO005 
;CDSO005 
;CDSO0005 
;CDSO005 
;CDSO005 
;CDSO0005 
;CDSO005 
;CDSO005 
;CDSO005 
;CDSO0005 
;CDSOO005 
;CDSO0005 
;CDSO005 
;CDSO005 


;CDSO0005 
;CDSO005 
;CDSO005 
; CDSO005 
;CDSO0005 
;CDS0005 
;CDSO005 
;CDSO005 
;CDSO005 


00000000 ’GF 


14 A5 


oc AS 
10 AS 


52 


50 
AO AS 


20 
0B AS 
60 A4 
08 AO 

02 

FC16‘ 
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EXE$QXQPPKT ~- QUEUE I/O PACKET TO XQP 12-MAR-1982 17:19:50 DISKS$VMSMASTER: [SYS.SRC]SYSQIOREQ. (1) 
O3CA .20 ; 
O3CA .21 ¢ INPUTS: 
O3CA .22 ; 
O3CA 23 ; R4 = CURRENT PROCESS PCB ADDRESS. 
O3CA 24 ; R5 = ADDRESS OF TEMP ACB PART OF IRP. 
O3CA 25 ; 
OQO3CA 26 ; OUTPUTS: 
O3CA 27 ; 
O3CA .28 ; RO = status from SCH$QAST. 
O3CA .29 ; 
O3CA .30 ; IF SUCCESS: 
O3CA .31=;3 A KERNEL AST IS QUEUED TO THE DISPATCH ROUTINE OF THE XQP 
O3CA .32 ;3 IF NO PACKETS WERE ALREADY ON THE REQUEST QUEUE OF THE XQP. 
O3CA .33 =; 
O3CA 34 ; THIS ROUTINE MUST BE CALLED AT IPL ASTDEL SO THAT THE 
O3CA .35 ; IRP CANNOT BE LOST (BECAUSE OF PROCESS DELETION) UNTIL IT 
O3CA .36 ; IS PLACED ON THE XQP REQUEST QUEUE. 
O3CA .37 3 : 
O3CA .38 ;- 
O3CA .39 
O3CA -40 EXE$QXQPPKT:: 
- DQ O3CA 41 MOVL GACTL$GL_F11BXQP, RO ;ADDR OF XQP QUEUE HEAD 
O3D0 
9E O3D1 .42 MOVAB CORP$L_IOQFL(R5), - ;ADDRESS OF IRP 
O3D6 .43 ACB$L_ASTPRM(R5) 3;IS AST PARAMETER. 
90 O3D6 “44 MOVB #PSLEC_KERNEL!ACBS$M_NODELETE,--.;KERNEL MODE, DON’T DELETE IRP 
03D8 -45 . ACB$B_RMOD(R5) 
DO OQ3DA .46 MOVL PCB$L_PID(R4), ACB$L_PID(R5) ;COPY PID. 
DO OS3DF .47 MOVL. F11B$L_DISPATCH(RO), ACB$L_AST(R5) ;XQP DISPATCHER ADDRESS, 
DO O3E4 48 MOVL #PRI$ RESAVL, R2 :;SAME AS AFTER WAITING FOR A LOCK. 
30 O3E7 49 BSBW SCHSQAST ;QUEUE THE AST. 
05 O3EA 50 RSB ;AND RETURN 
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V03-012 INSERT I/O PACKET IN UNIT QUEUE 12-MAR-1982 17:19:50 DISKS$VMSMASTER: [SYS.SRC]SYSQIOREQ. (1) 
O3EB 847 -SBTTL INSERT 1/0 PACKET IN UNIT QUEUE 
O3EB 848 ;+ 
O3EB 849 ; EXES$INSIOQ - INSERT I/O PACKET IN UNIT QUEUE 
O3EB 850 ; 
O3EB 851 ; THIS ROUTINE IS CALLED TO INSERT AN I/0 PACKET IN A UNIT QUEUE AND CALL 
O3EB 852 ; THE APPROPRIATE I/70 DRIVER IF THE UNIT IS NOT BUSY. 
O3EB 853 ; 
O3EB 854 ; INPUTS: 
O3EB 855 ; 
O3EB 856 ; R3 = ADDRESS OF I/O REQUEST PACKET. 
O3EB B57 ; R5 = UCB ADDRESS OF DEVICE UNIT. 
O3EB 858 ;- 
O3EB 859 
O3EB 860 EXES$INSIOQ:: ; INSERT IN I/O QUEUE 
O3EB 861 DSBINT UCB$B_FIPL(RS) ;RAISE IPL TO FORK LEVEL 
;SSA0017 6A AS B6 OS3SF2 | INCW UCB$W_QLEN(R5) ; Bump device queue length 
O05 64 A5 08 E2 O3F5 862 BBSS #UCB$V_BSY,UCB$W_STS(R5),10$ ;I1F SET, THEN DEVICE IS BUSY 
FCO3 30 OS3FA 863 BSBW IOC$INITIATE ; INITIATE 1/0 FUNCTION 
06 11 OS3FD 864 BRB 20$ ; 
52 4C A5 DE -O3FF 865 10$: MOVAL UCB$L_IOQFL(R5) ,R2 ;GET ADDRESS OF I/0 QUEUE LISTHEAD 
04 10 0403 866 BSBB EXE$INSERTIRP ; INSERT I/O PACKET IN DEVICE QUEUE 
0405 867 20$: ENBINT ;ENABLE. INTERRUPTS 


05 0408 868 RSB ; 
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- INSERT I/O PACKET IN QUEUE BY PRIORITY 12-MAR-1982 17:19:50 DISK$SVMSMASTER: [SYS.SRC]SYSQIOREQ. (1) 


.SBTTL INSERT I/O PACKET IN QUEUE BY PRIORITY 

3+ 

; EXE$SINSERTIRP - INSERT 1/0 PACKET IN. QUEUE BY PRIORITY 

THIS ROUTINE IS CALLED TO INSERT AN I/O PACKET IN A SPECIFIED QUEUE BY 

; PRIORITY. 

; INPUTS: 

is R2 = ADORESS OF QUEUE LISTHEAD. 

: R3 = ADDRESS OF I/0O PACKET. 

CURRENT IPL MUST BE THE FORK LEVEL OF THE RESPECTIVE DRIVER PROCESS 

: OR HIGHER. 

; OUTPUTS: 

; THE I/0 PACKET IS INSERTED IN THE SPECIFIED QUEUE BY PRIORITY AND 

; THE ’Z’ CONDITION CODE IS RETURNED TO THE CALLER. 

; ‘Z’ = 1 = ENTRY WAS FIRST ENTRY IN THE QUEUE. 

3 ‘Z’ = 0 = ENTRIES WERE ALREADY IN THE QUEUE. 

R2 AND R3 ARE PRESERVED ACROSS THE CALL. 

EXE$INSERTIRP:: ; INSERT I/O PACKET IN QUEUE BY PRIORITY 
MOVL R2,R1 ;COPY LISTHEAD ADDRESS 

10$: MOVL IRP$L_IOQBL(R1),R1 ;GET ADDRESS OF NEXT ENTRY 
CMPL R2,R1 ;END OF QUEUE? 
BEQL 20$ ;IF EQL YES 
CMPB IRP$B_ PRI(R3),IRPSB_PRI(R1) sNEW ENTRY PRIORITY GREATER? 
BLSSU 10$ ;IF LSS YES 

20$: INSQUE IRP$L_IOQFL(R3),IRP$L_IOQFL(R1) ; INSERT PACKET IN I/Q QUEUE 
RSB ; 
. END 
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Symbol table 12-MAR-1982 17:19:50 DISK$VMSMASTER: [SYS.SRC]SYSQIOREQ. (1) 
ACB$B_RMOD = 00000008 EXESCHKLOGACCES ARRRKERE OX OT 
ACB$L_AST = 00000010 EXE$CHKPHYACCES REKEERKE X01 
ACB$L_ASTPRM = 90000014 EXE$CHKRDACCES REKKERER XO O1 
ACB$L_PID = 0000000C EXESCHKWRTACCES FRKEEEKE XO 
ACB$M_NODELETE = 00000020 EXE$FINISHIO QOO0036F RG 01 
ACB$M_QUOTA = 00000040 EXE$FINISHIOC 0000036D RG 01 
ACB$V_QUOTA = 00000006 EXESINSERTIRP 00000409 RG 01 
ACCVIO 00000124 R 01 EXE$INSIOQ O00003EB RG 01 
ALLOC 0000013C R 01 EXE$QIO OOO0006B RG 01 
AQB$L_ACPPID = 0000000C EXE$SQIOACPPKT 0000039A RG 01 
ASTADR = 00000014 EXE$QIODRVPKT 00000383 RG 01 
ASTPRM = 00000018 EXE$QIORETURN 000003B9 RG 01 
BUG$_NONEXSTACP #eREREEK XO] EXESQXQPPKT QO00003CA RG 01 
CCB$B_AMOD = 00000009 EXE$SNGLEQUOTA HERKEEKE XQ] 
CCB$B_STS = 00000008 F11B$L_DISPATCH = 00000008 
CCB$C_LENGTH = 00000010 FDTACT = 00000010 
CCB$L_UCB = 00000000 FUNC = 0000000C 
CCB$L_WIND = 00000004 GTPKT 00000170 R 01 
CCB$V_LOGCHKDON = 00000003 ILLIO 0000010C R 01 
CCB$V_PHYCHKDON = 90000004 IO$M_FCODE = 0000003F 
CCB$V_PROCHKDON = 00000002 I10$_ ACPCONTROL = 00000038 
CCB$W_IOC = 0000000A I10$_DEACCESS = 00000034 
CORP$L_IOQFL = FFFFFFAO I10$_ LOGICAL = 0000002F 

CHAN = 00000008 IO$_PHYSICAL = 0000001F 

CHKDON 000000CB R 01 I10$_READHEAD = OO00000E 

CLREF 00000036 R 01 10$_READLBLK = 00000021 
CTL$GL_CCBBASE eRRERKEE XO OO] 10$_READPBLK = 0000000C 
CTL$GL_F11BXQP FKREREKE OX OQ] IO$_READPROMPT = 00000037 
CTL$GL_PHD FREEEEEK =X QQ] I10$_READTRACKD = 00000010 
CTL$GW_CHINDX eeREEERE XO I0$_READVBLK = 00000031 

DACSPND 00000048 R 01 I0$_REREADN = 00000016 
DDT$L_ALTSTART = 0000001C 10$_REREADP = 00000017 
DDT$L_FDT = 90000008 10$_TTYREADALL = 0000003A 
DDT$W_DIAGBUF = 00000014 10$_TTVREADPALL = 0000003B 
DEV$M_FOD = 00004000 I10$_VIRTUAL = 0000003F 
DEV$M_SHR = 00010000 10$_WRITECHECK = O0000000A 
DEV$M_SPL = 00000040 I10$_WRITECHECKH = 00000018 
DEV$V_FOD = O0000000E 10$_WRITEHEAD = 0000000D 
DEV$V_FOR = 00000018 I10$_WRITELBLK = 00000020 
DEV$V_MNT = 00000013 I0$_WRITEPBLK = 0000000B 
DEV$V_SHR = 00000010 I0$_WRITERET = 00000018 
DEV$V_SPL = 00000006 I10$_WRITETRACKD = 0000000F 

DIRECT 0000016B R D1 10$_WRITEVBLK = 00000030 
DYNSC_IRP = 0000000A IOC$GL_IRPFL RKRERREK XO] 
EFN = 00000004 IOC$GL_PSBL FKRRKKEK XO] 
ERROR 00000127 R 01 IOCSINITIATE RRRRKEEE X01 
ERRORB 00000045 R 01 IOC$QNXTSEG1 eeKKEEKE XO] 
EXE$ABORTIO 00000360 RG 01 10SB = 00000010 
EXESALLOCBUF HHHRKERE = XQ] IOTYPE = 00000008 
EXESALLOCIRP eKEEKKEK XO] IPL$_ASTDEL = 00000002 
EXE$ALTQUEPKT 00000387 RG 01 IPL$_IOPOST = 00000004 
EXESBLDPKTGSR 000002D4 RG 01 IPL$_ SYNCH = 00000008 
EXE$BLDPKTGSW 000002DC RG 01 IRP$B_EFN = 00000022 
EXE$BLDPKTSWPR 000002E4 RG 01 IRP$B_PRI = 00000023 
EXESBLDPKT SWPW QOO002EC RG 01 TRP$B_RMOD = 0000000B 
EXE$BUILDPKTR O000002FC RG 01 IRP$B_TYPE = 0000000A 
EXE$BULLDPKTW 000002F4 RG 01 IRP$C_LENGTH = 000000C4 
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IRP$L_ABCNT 
IRP$L_ARB 
IRP$L_AST 
IRP$L_ASTPRM 
IRP$L_BCNT 
IRP$L_DIAGBUF 
IRP$L_FQFL 
IRP$L_IOQBL 
IRP$L_IOQFL 
IRP$L_IOSB 
IRP$L_MEDIA 
IRP$L_OBCNT 
IRP$L_PID 
IRP$L_SEGVBN 
IRP$L_SEQNUM 
IRP$L_SVAPTE 
IRP$L_UCB 
IRP$L_WIND 
IRP$M_BUFIO 
IRP$M_DIAGBUF 
IRP$M_FUNC 
IRP$M_PAGIO 
IRP$M_PHYSIO 
IRP$M_SWAPIO 
IRP$M_VIRTUAL 
IRP$V_FUNC 
IRP$W_BOFF 
IRP$W_CHAN 
IRP$W_FUNC 
IRP$W_SIZE 
IRP$W_STS 
IVCHAN 

LEGAL 

MASKH 

MASKL 

NALLOC 

NOCNT 

NODCNT 
NOIOSB 
NOSECT 

NOT _FILE_DEV 
NOT FILE DEVB 
NSPOOL 
OFFLINE 


PCB$B_PRIB 
PCB$L_ARB 
PCB$L_EFCS 
PCBS$L_EFWM 
PCB$L_PID 
PCB$Q_PRIV 
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00000040 
00000058 
00000010 
00000014 
00000032 
0000004C 
00000060 
00000004 
00000000 
00000024 
00000038 
00000044 
0000000C 
00000048 
00000050 
0000002C 
0000001C 
00000018 
00000001 
00000080 
00000002 
00000004 
00000100 
00000040 
00000010 
00000001 
00000030 
00000028 
00000020 
00000008 
0000002A 
0000003B 
00000000 
00010001 
0100ACO00 
0000014B 
OOOOO0FA 
00000166 
QOO000E8 
00000188 
00000010 
00000069 
000000C3 
00000113 
00000170 
0000001C 
00000020 
00000024 
00000028 
0000002C 
00000030 
0000002F 
0000008C 
00000050 
o000004¢ 
00000060 
00000084 
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01 


PCB$W_ASTCNT 
PCB$W_BIOCNT 
PCB$W_DIOCNT 
PHD$L_PSTBASOFF 
PMS$GL_IOPFMPDB 
PMS$GL_IOPFMSEQ 
PMS$START_RQ 
PR$_IPL 
PR$_SIRR 
PRI$_RESAVL 
PRIOSB 

PRIVERR 
PRV$V_DIAGNOSE 
PRV$V_LOG_IO 
PRV$V_PHY_IO 
PSL$C_KERNEL 
PSL$S_PRVMOD 
PSL$V_PRVMOD 
QIo 

QIORETURN 
READ_ACCESS 
RSN$_ASTWAIT 
SCH$CLREF 
SCH$GL_RESMASK 
SCH$GQ_MWAIT 
SCH$POSTEF 
SCH$QAST 
SCHSWAIT 
SCHSWAKE 
SEC$L_WINDOW 
SECTION 

SPOOL 
SS$_ACCVIO 
SS$_DEVOFFLINE 
SS$_EXQUOTA 
SS$_ILLIOFUNC 
SS$_IVCHAN 
SS$_NOPRIV 


'SS$_NORMAL 


SUCCES 
UCB$B_FIPL 
UCBS$L_AMB 
UCB$L_DDT 
UCB$L_DEVCHAR 
UCB$L_IOQFL 
UCB$L_OPCNT 
UCB$L_VCB 
UCB$V_BSY 
UCB$V_ONLINE 
UCB$W_QLEN 
UCB$W_STS 
VCB$L_AQB 
VCHAN 
WCB$L_ORGUCB 
WCB$L_READS 
WCB$L_WRITES 
WRITE_ACCESS 
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Symbol table 12-MAR-1982 17:19:50 DISKSVMSMASTER: [SYS.SRC]SYSQIOREQ. (1) 
XQP O000003C0 R 01 
pene + 
! Psect synopsis ! 
Ho + 
PSECT name Allocation PSECT No. Attributes 
ABS). ooo000000 ( 0.) OO € O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
BLANK . 00000420 ( 1056.) 01 ¢ 1.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
$ABSS 00000000 ( 0.) O02 ( 2.) \NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
$e nn eee nee + 
! Performance indicators ! 
to - ee --+ 
Phase ; Page faults CPU Time Elapsed Time 
Initialization 9 00:00:00.09 00:00:00.54 
Command processing : 77 00:00:00.67 00:00:06.51 
Pass 1 : 608 00:00:26.37 00:02:38.99 
Symbol table sort Oo 00:00:03.89 00:00:18.56 
Pass 2 250 00:00:06.58 00:00:34.76 
Symbol table output 29 00:00:00.21 00:00:00.37 
Psect synopsis output 6 00:00:00.03 00:00:00.14 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 983 00:00:37.87 00:03:39.88 


The working set limit was 1650 pages. 

139110 bytes (272 pages) of virtual memory were used to buffer the intermediate code. 

There were 140 pages of symbol table space allocated to hold 2591 non-local and 27 local symbols. 
1039 source lines were read in Pass 1, producing 18 object records in Pass 2. 

42 pages of virtual memory were used to define 41 macros. 


+-------------+------------ + 
! Macro library statistics ! 
+-------------- -- = + + -- + 

Macro library name Macros defined 

_$255$DUA28: [SYS.OBJ]LIB.MLB;1 . 26 

__$255$DUA28: [SYSLIB]STARLET.MLB; 2 11 

TOTALS (all libraries) 37 


2723 GETS were required to define 37 macros. 
There were no errors, warnings or information messages. 


MACRO/LIS=LIS$:SYSQIOREQ/OBJ=OBU$: SYSQIOREQ MSRC$: SYSQIOREQ/UPDATE=(ENH$: SYSQIOREQ)+EXECML$/LIB 
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SYSQIOFDT ; - SYSTEM SERVICE QUEUE I/0 FDOT SUBROUTIN 3-JUN-1984 15:36:44 VAX-11 Macro V03-01 Page 0 
Table of contents 


(1) 97 PLACE PROCESS IN I/O RESOURCE WAIT 

(1) 148 ONE PARAMETER FUNCTION PROCESSING 

(1) 181 ZERO PARAMETER FUNCTION PROCESSING 

(1) 213.1 LOCAL DISK VALID FUNCTION PROCESSING 

(1) 214 READ AND WRITE FUNCTION PROCESSING 

(1) 267 READ AND WRITE FUNCTION BUFFER CHECK AND LOCK ROUTINES 
(1) 310 READ AND WRITE BUFFER CHECK AND. LOCK AND RETURN ROUTINES 
(1) 400 BACKOUT A QIO 

(2) 438 CHECK BUFFER ACCESSIBILITY FOR READ FUNCTION 

(2) 474 CHECK BUFFER ACCESSIBILITY FOR WRITE FUNCTION 

(2) 513 CHECK BUFFER ACCESSIBILITY FOR READ FUNCTION AND RETURN 
(2) 587 CHECK BUFFER ACCESSIBILITY FOR WRITE FUNCTION AND RETURN 
(2) 652 SET DEVICE MODE AND CHARACTERISTICS FUNCTIONS (AT FDT LEVEL) 
(2) 692 SET DEVICE MODE AND CHARACTERISTICS FUNCTIONS 

(2) 735 SENSE DEVICE MODE AND CHARACTERISTICS FUNCTIONS 

(2) 773 CARRIAGE CONTROL INTERPRETATION 
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V03-009 24-APR-1982 15:51:12 DISK$VMSMASTER: [SYS.SRC]SYSQIOFDT. (1) 
0000 1 .TITLE SYSQIOFDT - SYSTEM SERVICE QUEUE 1/0 FDT SUBROUTINES 

;wMCOOO1 0000 .1 .IDENT ‘V03-009’ 

-1 0000 3 
0000 4; 
0000 RR RRR RGR OG OO AO AOR RR RE EE EE 
0000 6 ;* * 
0000 7 ;* COPYRIGHT (c) 1978, 1980, 1982 BY * 
0000 8 ;* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS, * 
0000 9 ;* ALL RIGHTS RESERVED. * 
0000 10 ;* * 
0000 11.>3* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0000 12 3;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0000 13. ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY. * 
0000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS' HEREBY * 
0000 16 ;* TRANSFERRED. * 
0000 17 3% * 
0000 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
0000 20 ;* CORPORATION. * 
0000 21 3% * 
0000 22 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR’ RELIABILITY OF ITS * 
0000 23 ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 24 ;* * 
0000 25 ;* * 
ooo00 26 gE RR RR RR RK RK RRR ERR AE EA ERA KEE KE EERE REE AKER KEE EEE 
0000 27 ; 
0000 28 ; DBD. N. CUTLER 15-SEP-76 
0000 29 ; 
0000 30 ; MODIFIED BY: 
0000 31 ; 

;wMCOOO1 0000 ~1>; V03-009 wMCOO001 Wayne Cardoza 23-Apr-1984 

:WMCOOO01 0000 2 3 Add a comment warning about general use of EXE$IORSNWAIT. 

;WMCOOO1 0000 3; 

;ROWO259 0000 wt 3 V03-008 ROWO0259 Ralph O. Weber 20-NOV-1983 

;ROWO259 0000 sos For I0$ _PACKACK operations passing through EXE$LCLDSKVALID, 

;ROWO259 0000 6 ; always allow the PACKACK request to go to the driver when 

;ROWO 259 0000 7-5 UCB$V_VALID in UCB$L_STS is clear, regardless of any other 

;ROWO259 0000 8 ; conditions. However, UCB$V_LCL_ VALID and UCB$B_ONLCNT must 

; ROWO259 0000 9 ; still be correctly adjusted. This is believed to allow 

sROW0O259 0000 .10 3; PACKACKs to fail and be retried. 

;ROWO259 0000 211°; 

; SSA00002 0000 .12 =; VO3-007 SSAQ00002 Stan Amway 30-SEP-1983 

; SSA00002 0000 -13 =; Modified BACKOUT_QIO to call new routine PMS$ABORT_RQ 

; SSA00002 0000 .14 ; to insure complete traces of I/O activity. 

;SSA00002 0000 215 4 

;ROWO224 0000 .16 ; VO3-006 ROWO0O224 Ralph O. Weber 15-SEP-1983 

;ROWO224 0000 -17 3 Change EXE$LCLOSKVALID to alter UCB$B_ONLCNT either up or down 

;ROWO224 0000 .18 ; only if the local processor has not already performed such an 

;ROWO224 0000 19.3 alteration. Use UCB$V_LCL_VALID in UCB$L_STS to determine 

;ROWO224 0000 .20 ; state of device with respect to the local processor. 

;ROWO224 0000 21 3 

;PRDOOSO 0000 .22 3; VO3-005 PRDOO30 Paul R. DeStefano 09-Sep-1983 

;PRDOOSO 0000 23 ; Added EXE$LCLDSKVALID routine to track disk online count 

; PRDOO3O 0000 .24 =; and local valid status. 

; PRDOO3O 0000 225-3 

;ROWO192 0000 .26 3 V0O3-004 ROW0O192 Ralph O. Weber 20-AUG- 1983 
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Fix EXES$WRITE and EXE$READ to allow longword byte counts. 
disk transfers to exceed 65K bytes. 


5 as SYS ECO 65.) 


29-OCT-1982 


Change calling requirements for EXE$IORSNWAIT from an entry 
IPL of IPL$ SYNCH to an entry IPL of IPL$_ASTDEL. Have the 
call to BACKOUT_QIO made at IPL$_ASTDEL. Then, raise to 
IPL$_ SYNCH to perform scheduler operations. This eliminates 
undesirable page faults at an IPL above IPL$ _ASTDEL when 


control block. 


27-SEP-1982 


ECO 25 Change EXE$SETCHAR and EXE$SETMODE to return SS$_ILLIOFUNC if 


This is to prohibit SETMODE 


(set mode) and SETCHAR (set characteristics) functions on disk 
those functions overwrite the disk 
geometry information which results in abbarant system 


ACB OFFSETS 

CCB OFFSETS 

DEVICE CLASSES 

DEVICE CHARACTERISTICS 
I/O FUNCTION CODES 
SYSTEM IPLS 

IRP OFFSETS 

PCB VALUES 

PROCESSOR REGISTERS 
SYSTEM STATUS VALUES 
UCB OFFSETS 

VIRTUAL ADDRESS FIELDS 
CALL FRAME 


;FIRST FUNCTION DEPENDENT PARAMETER 


FUNCTION DEPENDENT PARAMETER 


; THIRD FUNCTION DEPENDENT PARAMETER 


FUNCTION DEPENDENT PARAMETER 


;FIFTH FUNCTION DEPENDENT PARAMETER 


; This should allow virtual 

; (This will be distributed in V3. 

3 V03-003 ROW49973 Ralph O. Weber 

; BACKOUT_QIO references a channel 

; V03-002 ROW49577 Ralph O. Weber 

: UCB$B_DEVCLASS equals DC$ DISK. 

: devices. On disk devices, 

3 behavior. 

:; SYSTEM SERVICE QUEUE I/0 FUNCTION DECISION TABLE SUBROUTINES 

; MACRO LIBRARY CALLS 
SACBDEF ;DEFINE 
$CCBDEF ; DEFINE 
$DCDEF ;DEFINE 
$DEVDEF ; DEFINE 
S$IODEF ; DEFINE 
$IPLDEF ;DEFINE 
GIRPDEF ;DEFINE 
$PCBDEF ; DEFINE 
$PRDEF ; DEFINE 
$SSDEF ; DEFINE 
$UCBDEF ;DEFINE 
$VADEF ;DEFINE 
$SFDEF ;DEFINE 

; LOCAL SYMBOLS 

; ARGUMENT LIST OFFSET DEFINITIONS 

P1=0 

P2=4 ; SECOND 

P3=8 

P4=12 ; FOURTH 

P5=16 

P6=20 


3; SIXTH FUNCTION DEPENDENT PARAMETER 


SYSQIOFDT 
V03-009 


;wWMCOOQOO1 
;wMCOOO1 
;WMCOOO1 
;wMCOOO1 
;wMCOOO1 
;WMCOOO1 
;WMCOOO1 
;ROW49973 
-4 


;ROW49973 
;ROW49973 
;ROW49973 
;ROW49973 
-3 


21 


24 


4c 


A4 OA 
51 
OOFS 


A4 6E 


0000’CF BE 


52 


SC 


08 AD 
5E 5D 
0000’CF 

FFDA’ 


FFD?’ 
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PLACE PROCESS IN I/O RESOURCE WAIT 24-APR-1982 15:51:12 DISKSVMSMASTER: [SYS.SRC]SYSQIOFDT. (1) 
0000 97 .SBTTL PLACE PROCESS IN 1/0 RESOURCE WAIT 
0000 9B ;+ 
0000 99 ; EXE$IORSNWAIT - PLACE PROCESS IN I/0 RESOURCE WAIT 
0000 100 ; 
0000 101 ; FUNCTIONAL DESCRIPTION: 
0000 102 ; 
0000 103 ; THIS ROUTINE IS USED BY FDT PROCEEDURES TO RE-START A, QIO REQUEST 
0000 104 ; AFTER A RESOURCE WAIT. THE CURRENT I/O IS CLEANED UP AND THE PRE-QIO 
0000 105 ; STACK IS SET UP. THEN THE PROCESS IS PLACED IN THE WAIT STATE. 
000Q 106 ; IF THE PROCESS DOES NOT HAVE RESOURCE WIAT ENABLED, THE I/O IS ABORTED 
0000 107 ; WITH A STATUS SPECIFIED BY THE CALLER. 
0000 108 ; 
0000 .1 > 3; **CAUTION*®* THIS ROUTINE IS NOT CALLED AT SYNCH SO THE RESOURCE MAY ALREADY 
0000 .2 ; HAVE BEEN DECLARED AVAILABLE. THIS ROUTINE SHOULD ONLY BE USED FOR RESOURCES 
0000 .3 ; WHICH ARE GUARANTEED TO BE PERIODICALLY (TIMESCHDL) DECLARED AVAILABLE. 
0000 4; 
0000 .5 3 
0000 .6 ; IMPLICIT INPUTS: 
0000 73 
0000 8 ; CALLER MUST BE AT IPL=IPL$_ASTDEL 
ooo0o 113 =; 
0000 114 ; INPUTS: 
0000 115 ; 
0000 116 ; RO = STATUS TO RETURN IF NO WAIT REQUESTED 
0000 117 ; R1 = RESOURCE NUMBER TO WAIT FOR 
0000 118 ; R3 = ADDRESS OF CURRENT PACKET 
0000 119 ; R4 = ADDRESS OF THE CURRENT PCB 
0000 120 ; R6 = ADDRESS OF CHANNEL CONTROL BLOCK 
0000 121 =; 
0000 122 ; OUTPUTS: 
0000 123 ; 
0000 124 ; RO,R1,R2,R3 ARE USED. 
0000 125 ; 
0000 126°; CONTROL IS TRANSFERED TO EXE$ABORTIO IF NO RESOURCE WAIT 
0000 127 =; HAS. BEEN REQUESTED, 
0000 128 ; 
0000 129 ; OR TO SCH$WAIT IF RESOURCE WAIT IS REQUESTED. 
0000 130 ; 
0000 131 ;7- 
0000 132 
0000 133 EXESIORSNWAIT:: ;PLACE PROCESS IN RESOURCE WAIT 
EO 0000 134 BBS #PCBSV_SSRWAIT,PCB$L_STS(R4),50$ ;BR IF NO WAIT REQUEST 
DDB 0005 a1 PUSHL R1 ;REMEMBER RESOURCE NUMBER 
30 0007 .2 BSBW BACKOUT_QIO ;CLEANUP QIO 
OOOA 23 SETIPL #IPL$ SYNCH ; SYNCHRONIZE WITH SCHEDULER DATABASE 
9A OOO0D .4 MOVZBL (SP),PCB$L_EFWM(R4) ;SET UP WAIT MARKER 
E2 0011 138 BBSS (SP)+,WASCHS$GL_RESMASK,30$ ;INDICATE PROCESS IS WAITING 
00 0016 
DO 0017 139 30$: MOVL SF$L_SAVE_AP(FP),AP ;RESTORE PRE-QIO ARGUMENT LIST POINTER 
DO 0OO1B 140 MOVL FP,SP ;CLEAN STACK BACK TO CALL FRAME 
7E OO1E 141 MOVAQ WASCH$GQ_MWAIT,R2 ;ADDRESS WAIT LIST 
31 0023 142 BRW SCHSWAIT ;PLACE PROCESS IN WAIT STATE 
0026 143 ; 
0026 144 ; NO RESOURCE WAIT REQUESTED - ABORT THE 1/0 
0026 145 ; 
31 0026 146 50$: BRW EXE$ABORTIO ; 
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DO 
11 


0029 148 
0029 149 
0029 150 
0029 151 
0029 152 
0029 153 
0029 154 
0029 155 
0029 156 
0029 157 
0029 158 
0029 159 
0029 160 
0029 161 
0029 162 
0029 163 
0029 164 
0029 165 
0029 166 
0029 167 
0029 168 
0029 169 
0029 170 
0029 171 
0029 172 
0029 173 
0029 174 
0029 175 
0029 176 
0029 177 
0029 178 
002D 179 


-SBTTL ONE PARAMETER FUNCTION PROCESSING 
s+ 
EXESONEPARM —- ONE PARAMETER FUNCTION PROCESSING 


THIS ROUTINE IS CALLED FROM THE FUNCTION DECISION TABLE DISPATCHER TO 
PROCESS A ONE PARAMETER FUNCTION THAT REQUIRES NO SPECIAL CHECKING. 


INPUTS: 
RO = SCRATCH. 
Ri = SCRATCH. 
R2 = SCRATCH. 
R3 = ADDRESS OF I/O REQUEST PACKET. 

= CURRENT PROCESS PCB ADDRESS. 

R5 = ASSIGNED DEVICE UCB ADDRESS. 
R6 = ADDRESS OF CCB. 
R7 = I/O FUNCTION CODE BIT NUMBER. 
R8 = FUNCTION DECISION TABLE DISPATCH ADDRESS. 
RQ = SCRATCH. 
R10 SCRATCH. 


R11 = SCRATCH. 
AP = ADDRESS OF FIRST FUNCTION DEPENDENT PARAMETER. 


we we we ee we et we we ee we we we we ek we we we we we we Oe we we ee we we 


OUTPUTS: 
*EKTBS*#* 
-ENABL LSB 
EXES$ONEPARM: : ;ONE PARAMETER FUNCTION PROCESSING 
MOVL P1(AP),IRP$L_MEDIA(R3) 3; STORE PARAMETER IN MEDIA ADDRESS 


BRB 10$ ; 
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ZERO PARAMETER FUNCTION PROCESSING 24-APR-1982 15:51:12 DISKSVMSMASTER: [SYS.SRC]SYSQIOFDT. (1) 
O02F 181 .SBTTL ZERO PARAMETER FUNCTION PROCESSING 
OO2F 182 ;+ 
O02F 183 ; EXE$ZEROPARAM - ZERO PARAMETER FUNCTION PROCESSING 
OO2F 184 ; 
O002F 185 ; THIS ROUTINE IS CALLED FROM THE FUNCTION DECISION TABLE DISPATCHER TO 
O0O2F 186 ; PROCESS A ZERO PARAMETER FUNCTION THAT REQUIRES NO ADDITION CHECKING. 
OO2F 187 ; 
O02F 188 ; INPUTS: 
O02F 189 ; 
OO2F 190 ; RO = SCRATCH. 
O02F 191; R1 = SCRATCH. 
OO2F 192 ; R2 = SCRATCH. 
OO2F 193 ; R3 = ADDRESS OF I/0 REQUEST PACKET. 
OO2F 194 ; R4 = CURRENT PROCESS PCB ADDRESS. 
002F 195 ; R5 = ASSIGNED DEVICE UCB ADDRESS. 
OO2F 196 ; R6 = ADDRESS OF CCB. 
OO2F 197; R7 = I/O FUNCTION CODE BIT NUMBER. 
002F 198 ; R& = FUNCTION DECISION TABLE DISPATCH ADDRESS. 
002F 199 ; RQ = SCRATCH. 
O002F 200 ; R10 = SCRATCH. 
O002F 201 ; R11 = SCRATCH. 
OO2F 202 ; AP = ADDRESS OF FIRST FUNCTION DEPENDENT PARAMETER. 
OO2F 203 ; 
O02F 204 ; OUTPUTS: 
002F 205 ; 
OO2F 206 ; ***TBS*** 
OO2F 207 ;:- 
002F 208 
002F 209 EXESZEROPARM:: ;ZERO PARAMETER FUNCTION PROCESSING 
D4 O02F 210 CLRL IRP$L_MEDIA(R3) ;CLEAR PARAMETER 
31 0032 211 10$: BRW EXE$QIODRVPKT ;QUEUE I/O PACKET TO DRIVER 
0035 212 .DSABL LSB 
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V03-009 LOCAL DISK VALID FUNCTION PROCESSING 24-APR-1982 15:51:12 DISKS$VMSMASTER: [SYS.SRC]SYSQIOFDT.(1) 
;ROWO224 0035 a1 .SBTTL LOCAL DISK VALID FUNCTION PROCESSING 

;ROWO224 0035 -2 3+ , 

;ROWO224° 0035 -3 ; EXE$LCLDSKVALID - LOCAL DISK VALID FUNCTION FROCESSING 

;ROWO224 0035 435 — 

;ROWO224 0035 «by "8 This routine is called from the function decision table dispatcher to 
;ROWO224 0035 Oss process functions which affect the online count and local valid status 
;ROWO224 : 0035 sk 3 of a disk. 

;ROWO224 0035 28.3 

;ROWO224 0035 9 ; If the function is the first local pack acknowedge function 

;ROWO224 0035 .10 ; (UCB$V_LCL_VALID is clear), the online count, UCB$B_ONLCNT, is 
;ROWO224 0035 a ee incremented and UCB$V_LCL_VALID is set. If the online count was 
;ROWO224 0035 212 =; previously zero, the I/O packet is queued to the driver for further 
;ROWO259 0035 .13 =; PACKACK processing. If the online count was not previously zero but 
;ROWO259 0035 14 ; the UCB$V_VALID bit is clear, the 1/0 packet is also queued to the 
;ROWO259 0035 .15 ; driver for further processing. 

;ROWO224 0035 16 =; 

;ROWO224 0035 .17 =; If the function is the first local available or unload function 
;ROWO224 0035 .18 ; (UCB$V_LCL_VALID is set), the online count, UCB$B_ONLCNT, is 

;ROWO224 0035 a liQ: s decremented and UCB$V_LCL_VALID is cleared. If the decremented online 
sROWO224 0035 .20 ; count is zero, the I/O packet is queued to the driver for further 
;ROWO224 0035 .21 ; AVAILABLE or UNLOAD processing. 

;ROWO0224 0035 .22 ; 

;ROWO224 0035 .23 ; INPUTS: 

;ROWO224 0035 .24 ; 

;ROW0224 0035 .25 ; RO = SCRATCH. 

;ROWO224 0035 .26 ; R3 = ADDRESS OF I/0 REQUEST PACKET. 

;ROWO224 0035 e273 R5 = ASSIGNED DEVICE UCB ADDRESS. 

;ROWO224 0035 .28 ; R7 = I/0 FUNCTION CODE BIT NUMBER. 

;ROWO224 0035 .29 3; 

;ROW0224 0035 .30 ; OUTPUTS: 

;ROWO0224 0035 .31 ; 

;ROWO224 0035 .32 ; UCB$B_ONLCNT is altered to reflect the number of hosts which have set 
;ROWO224 0035 .33 ; the drive online (i.e. issued PACKACK functions to the drive). 
;ROWO224 0035 .34 ; 

;ROWO224 0035 .35 ; UCB$V_LCL_VALID in UCB$L_STS is set for PACKACK functions and cleared 
;ROWO224 0035 36 ; for AVAILABLE or UNLOAD functions. 

;ROWO224 0035 wot 3 

;ROWO224 0035 .38 

;ROWO224 0035 .39 EXE$LCLDSKVALID:: ; LOCAL DISK VALID FUNCTION PROCESSING. 
;ROWO224 0035 -40 

;ROWO224 08 57 91 0035 .41 CMPB R7, #10$ PACKACK ; Pack acknowledge function? 

;ROWO224 1B 12 0038 -42 BNEQ 50$ ; Branch if not a PACKACK. 

;ROWO224 OE 64 AS 11 E2 OQO03A 43 BBSS #UCB$V_LCL_ VALID, - ; Is this the first local PACKACK? 
;ROWO259 OO3F .44 UCB$L_STS(R5), 20$ ; Branch if not first local PACKACK. 
;ROWO224 O03F -45 SETIPL #IPL$_SCS ; Synchronize with the MSCP server. 
;ROWO224 _ OOAE C5 96 0042 .46 INCB UCB$B_ONLCNT(R5) ; Increment online count. 

;ROWO224 01 OOAE C5 91 0046 .47 CMPB UCB$B_ONLCNT(R5), #1 ; Is this the first cluster PACKACK? 
;ROWO259 os 13 0O04B . 48 BEQL 30$ ; Branch if first cluster PACKACK. 
;ROWO259 11 64 AS OB EQ O004D -49 20$: BBS #UCBS$V_VALID, — ; Is the volume already valid? 
;ROWO259 0052 .50 UCB$L_STS(R5), 809 ; Branch if volume is already valid. 
;ROWO259 0052 61 

;ROWO259 0052 ~52 

;ROWO259 FFAB’ 31 0052 .53 30$: BRW EXE$QIODRVPKT ; For first cluster PACKACK, last 
sROWO259 0055 .54 ; cluster UNLOAD or AVAILABLE, or 
sROWO259 0055 .55 ; truely invalid volume, ask driver 
;ROWO259 0055 .56 ; to really perform the function. 


;ROW0224 0055 .57 
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0055 .58 50$: 

E5 0055 .59 BBCC #UCB$V_LCL_VALID, - 
005A ~=—.60 UCB$L_STS(R5), 80$ 
OO5A 61 SETIPL #IPL$_SCS 

97 O05D .62 DECB UCB$B_ONLCNT(RS5) 

13 0061 ~=-.63 BEQL 30$ 
0063.64 
0063 .65 80$: 

0063 .66 
3C 0063. .67 MOVZWL #SS$ NORMAL, RO 
31 0066 .68 BRW EXE$FINISHIOC 


15: 
15; 
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UNLOAD and AVAILABLE come here. 
First local UNLOAD or AVAILABLE? 
Branch if not first. 

Synchronize with MSCP server. 
Decrement online count. 

Branch if the online count is zero. 


we we we we we we 


For requests which are not being 
passed on to the driver. 

Set normal completion status. 
Finish I/0 operation. 


we we we we 
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DE 
11 


DE 
E3 


DE 
ED 


15 
A2 


DO 
13 
DO 
16 
31 


0069 
0069 
0069 
0069 
0069 


214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
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227 
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229 
230 
231 
232 
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235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
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257 
258 
259 
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262 
263 


264 
265 
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.SBTTL READ AND WRITE FUNCTION PROCESSING 
ot 
; EXESREAD - READ FUNCTION PROCESSING 
; EXE$WRITE - WRITE FUNCTION PROCESSING 
; EXE$MODIFY ~ MODIFY FUNCTION PROCESSING 
; THESE ROUTINES ARE CALLED FROM THE FUNCTION DECISION TABLE DISPATCHER TO 
; PROCESS A READ OR WRITE PHYSICAL OR LOGICAL FUNCTION. 
; EXE$MODIFY IS USED FOR FUNCTIONS THAT READ AND WRITE MEMORY. 
; INPUTS: 
: RO = SCRATCH. 
: R1 = SCRATCH. 
; R2 = SCRATCH. 
: R3 = ADDRESS OF I/0 REQUEST PACKET. 
3 R4 = CURRENT PROCESS PCB ADDRESS. 
7 R5 = ASSIGNED DEVICE UCB ADDRESS. 
‘. R6 = ADDRESS OF CCB. 
‘ R7 = 1/0 FUNCTION CODE BIT NUMBER. 
; R8 = FUNCTION DECISION TABLE DISPATCH ADDRESS. 
; RQ = SCRATCH. 
3 R10 = SCRATCH. 
: R11 = SCRATCH. 
; AP = ADDRESS OF FIRST FUNCTION DEPENDENT PARAMETER. 
; OUTPUTS: 
KE*ETBSHH* 
i 
.ENABL LSB 
EXES$MODIFV:: ;MODIFY FUNCTION PROCESSING 
MOVAL BAEXES$MODIFYLOCK,R2 ;SET ADDRESS OF BUFFER CHECK ROUTINE 
BRB 5$ 
EXE$READ:: ;READ FUNCTION PROCESSING 
MOVAL BAEXE$READLOCK,R2 ;SET ADDRESS OF BUFFER CHECK ROUTINE 
5$: BBCS #IRP$V_FUNC,IRP$W_STS(R3),10$ ;SET READ FUNCTION STATUS 
EXE$WRITE:: ;WRITE FUNCTION PROCESSING 
MOVAL BAEXE$WRITELOCK,R2 ;S9ET ADDRESS OF BUFFER CHECK ROUTINE 
10$: MOVL P4(AP),IRP$B_CARCON(R3) ; INSERT CARRIAGE CONTROL BYTE 
CMPZV #IRP$V_ FCODE,#IRP$S FCODE,- ;PHYSICAL I/O FUNCTION? 
IRP$W_FUNC(R3),#IO$_PHYSICAL ; 
BLEQ 20$ ;IF LEQ YES 
SUBW #10$ REAOLBLK-~IO$ READPBLK,- ;CONVERT TO PHYSICAL FUNCTION 
IRP$W_FUNC(R3) ; | 
20$: MOVL P2(AP),R1 ;GET NUMBER OF BYTES TO TRANSFER 
BEQL  30$ SIF EQL NONE 
MOVL P1(AP),RO ;GET STARTING VIRTUAL ADDRESS OF TRANSFER 
JSB (R2) ;CHECK BUFFER AND LOCK IN MEMORY 
30$: BRW EXE$QIODRVPKT ;QUEUE 1/0 PACKET TO DRIVER 
.DSABL LSB 
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10 


05 


O05 


009B 
009B 
009B 
OO9B 
O009B 
0098 
009B 
009B 
009B 
009B 
009B 
009B 
009B 
009B 
009B 
009B 
0098 
Q09B 
009B 
009B 
0098 
009B 
009B 
009B 
009B 
009B 
009B 
O009D 
009D 
OO9E 
OO9E 
OO9E 
OOS9E 
O0AO 
OOAO 
OOA1 
O0A1 
OOA1 
OO0A1 
00A3 
O0A3 
O0A4 


267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 


.SBTTL READ AND WRITE FUNCTION BUFFER CHECK AND LOCK ROUTINES 
;r 
; EXESREADLOCK - CHECK BUFFER FOR READ ACCESSIBILITY AND LOCK 
; EXESWRITELOCK - CHECK BUFFER FOR WRITE ACCESSIBILITY AND LOCK 
; EXE$MODIFYLOCK - CHECK BUFFER FOR READ ACCESSIBILITY AND LOCK 
THESE ROUTINES ARE CALLED TO CHECK THE ACCESSIBILITY OF AN 1/0 BUFFER AND 
; TO LOCK THE BUFFER IN MEMORY FOR A DIRECT MEMORY TRANSFER. 
3; INPUTS: 
RO = STARTING ADDRESS OF I1/0 BUFFER. 
; R1 = LENGTH OF TRANSFER IN BYTES. 
; R4 = CURRENT PROCESS PCB ADDRESS. 
3 R6 = ADDRESS OF CCB. 
; OUTPUTS: 
THE I/O BUFFER IS CHECKED FOR THE PROPER ACCESSIBILITY. IF THE 
; CHECK SUCCEEDS, THEN THE BUFFER IS LOCKED IN MEMORY AND THE STARTING 
; ADDRESS OF THE PAGE TABLE ENTRIES THAT MAP THE TRANSFER IS STORED 
; IN THE 1/0 PACKET. ELSE THE 1/70 IS COMPLETED WITH A STATUS OF 
; ACCESS VIOLATION. 
EXE$READLOCK: : ;CHECK BUFFER FOR READ FUNCTION AND LOCK 
BSBB EXE$READLOCKR ;EXESREADLOCKR RETURNS NORMALLY ON 
; SUCCESS, VIA COROUTINE CALL ON FAILURE 
RSB ;RETURNS TO CALLER ON SUCCESS, TO 
; EXEGREADLOCKR ON FAILURE 
EXE$WRITELOCK:: ;CHECK BUFFER FOR WRITE FUNCTION AND LOCK 
BSBB EXE$WRITELOCKR ;EXEGWRITELOCKR RETURNS NORMALLY ON 
; SUCCESS, VIA COROUTINE CALL ON FAILURE 
RSB ;RETURNS TO CALLER ON SUCCESS, TO 
;EXESWRITELOCKR ON FAILURE 
EXES$MODIFYLOCK:: ;CHECK BUFFER FOR MODIFY FUNCTION AND LOCK 
BSBB EXESMODIFYLOCKR ; EXESMODIFYLOCKR RETURNS NORMALLY ON 
; SUCCESS, VIA COROUTINE CALL ON FAILURE 
RSB° ;RETURNS TO CALLER ON SUCCESS, TO 
;EXESMODIFYLOCKR ON FAILURE © 


SYSQIOFDT 
V0O3-009 


52 


50 
009D 
04 
oc 


50 


- SYSTEM SERVICE QUEUE I/0 FDT SUBROUTIN 3-JUN-1984 15:36:44 VAX-11 Macro V03-01 Page 10 
READ AND WRITE BUFFER CHECK AND LOCK AND 24-APR-1982 15:51:12 DISK$SVMSMASTER: [SYS.SRC]SYSQIOFDT. (1) 


DD 
30 
c8 
11 


DD 


O0A4 
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.SBTTL READ AND WRITE BUFFER CHECK AND LOCK AND RETURN ROUTINES 


EXES$READLOCKR - CHECK BUFFER FOR READ ACCESSIBILITY AND LOCK AND RETURN 


ON ERROR 
EXE$WRITELOCKR - CHECK BUFFER FOR WRITE ACCESSIBILITY AND LOCK AND RETURN 
ON ERROR 
EXESMODIFYLOCKR - CHECK BUFFER FOR READ ACCESSIBILITY AND LOCK AND RETURN 
ON ERROR 


THESE ROUTINES ARE CALLED TO CHECK THE ACCESSIBILITY OF AN I/O BUFFER 

AND TO LOCK THE BUFFER IN MEMORY FOR A DIRECT MEMORY TRANSFER. IN 
ADDITION, THESE ROUTINES PERFORM A COROUTINE CALL IF THERE IS AN ERROR 

OR ANY PAGES HAVE TO BE FAULTED IN. THE PURPOSE OF THE COROUTINE 

CALL IS TO ALLOW THE CALLER TO PERFORM ANY NECESSARY CLEANUP BEFORE 

THE QIO IS BACKED UP OR ABORTED. THESE ROUTINES ARE TYPICALLY CALLED 

BY DRIVERS THAT MUST LOCK MULTIPLE AREAS INTO MEMORY. SINCE THESE 
ROUTINES CANNOT UNLOCK AREAS PREVIOUSLY LOCKED, THE COROUTINE CALL ALLOWS 
THE CALLER (THE DRIVER) TO UNLOCK PREVIOUSLY LOCKED AREAS (AND PERFORM 
ANY OTHER CLEANUP) AND THEN RETURN HERE TO BACK UP OR ABORT THE I/O. 


EXE$MODIFYLOCKR IS USED WHEN THE BUFFER WILL BE READ AND WRITTEN BY THE 
I/O DEVICE. IT DISABLES AN OPTIMIZATION IN MMG$IOLOCK WHICH IS USED 
WHEN THE BUFFER IS ONLY WRITTEN. 


INPUTS: 
RO = STARTING ADDRESS OF I/O BUFFER. 
R1 = LENGTH OF BUFFER IN BYTES. 
R4 = CURRENT PROCESS PCB ADDRESS. 
R6 = ADDRESS OF CCB. 
OUTPUTS: 


THE I/O BUFFER IS CHECKED FOR THE PROPER ACCESSIBILITY. IF THE 
CHECK SUCCEEDS, THEN THE BUFFER IS LOCKED IN MEMORY AND THE STARTING 
ADDRESS OF THE PAGE TABLE ENTRIES THAT MAP THE TRANSFER IS STORED 

IN THE I/O PACKET. 


RO = RETURN CODE 


NOTE THAT IF THERE ARE NO ERRORS AND NO PAGES HAVE TO BE FAULTED 
IN, THEN THESE ROUTINES RETURN NORMALLY. HOWEVER, IF THERE IS AN 
ERROR OR A PAGE HAS TO BE FAULTED IN, THEN THE CALLER IS CALLED 
BY A COROUTINE CALL. THE CALLER’S RSB THEN RETURNS HERE WHERE 
THE QIO IS EITHER BACKED UP OR ABORTED. NOTE THAT IN THIS CASE 
THE CALLER’S ERROR HANDLING CODE MUST PRESERVE ALL REGISTERS, 
INCLUDING RO AND R11. 


-ENABL LSB 

EXESMODIFYLOCKR: : ;CHECK BUFFER FOR MODIFY FUNCTION AND LOCK 
PUSHL RO ;SAVE STARTING ADDRESS OF BUFFER 
BSBW EXESREADCHKR ;CHECK BUFFER FOR READ FUNCTION 
BISL #4,R2 ;DISABLE OPTIMIZATION IN MMG$IOLOCK 
BRB 10$ 

EXE$READLOCKR: : ;CHECK BUFFER FOR READ FUNCTION AND LOCK 
PUSHL RO 3; SAVE STARTING ADDRESS OF BUFFER 
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0093 30 OOBO 367 BSBW EXESREADCHKR ;CHECK BUFFER FOR READ FUNCTION 
05 11 00B3 368 BRB 10$ 
00B5 369 
00BS 370 EXE$WRITELOCKR:: ;CHECK BUFFER FOR WRITE FUNCTION AND LOCK 
50 DD OOBS-_ 371 PUSHL RO ;SAVE STARTING ADDRESS OF BUFFER 
O0EA 30 0087 372 BSBW EXE$WRITECHKR ;CHECK BUFFER FOR WRITE FUNCTION 
1A 50 £9 OOBA 373 10$: BLBC RO, 15$ ;BRANCH IF ERROR 
50 8EDO OOBD 374 POPL RO ;RESTORE STARTING ADDRESS OF BUFFER 
50 FEOO 8F AB OOCO- 375 BICW3 #AC<VA$M_BYTE>,RO,IRP$W_BOFF(R3) ;SET BYTE OFFSET IN PAGE 
30 A3 00C5 
53 DD OOC7 376 PUSHL ——R3 ;SAVE ADDRESS OF I/O PACKET 
FF34’ 30 OOC9 377 BSBW § MMG$IOLOCK ;LOCK PAGES FOR 1/0 
53  8E DO OOCC 378 MOVL (SP)+,R3 ;RETRIEVE ADDRESS OF 1/0 PACKET 
08 50 £9 OOCF 379 BLBC RO,20$ | ;IF LBC LOCK FAILURE 
2C A351 DO O00D2 380 MOVL R1,IRP$L_SVAPTE(R3) ; INSERT ADDRESS OF FIRST PTE IN PACKET 
05 OOD6 381 RSB 5 
5E 04 CO O0D7 382 15$: ADDL #4,SP ; THROW AWAY OLD RO 
9E 16 OODA 383 20$: JSB @(SP)+ , ;COROUTINE CALL TO CLEANUP 
50 D5 OODC 384 TSTL RO ;ERRORS ENCOUNTERED? 
1¢ 12 OODE 385 BNEQ 50$ ;IF NEQ YES 
51 DD OOEO 386 PUSHL R11 ;SAVE VIRTUAL ADDRESS OF PAGE TO FAULT 
1B 10 OOE2 387 BSBB BACKOUT QIO ;CLEANUP QIO 
02 BA OOE4 388 POPR #AMKR1> ;RETRIEVE VIRTUAL ADDRESS OF PAGE TO FAULT 
5E 5D DO OOE6 ~ 389 MOVL FP,SP ;TRIM STACK BACK TO CHANGE MODE FRAME 
5C 08 AD 7D OOEQ9 390 MOVQ B(FP),AP ;RESTORE USER ARGUMENT AND FRAME POINTERS 
5E 00’ CO OOED- 391 ADDL SA#EXESC_CMSTKSZ, SP ;REMOVE CHANGE MODE CALL FRAME FROM STACK 
50 BE 04 C3 OOFO 392 SUBL3 #4,(SP)+,RO ;CALCULATE RESTART ADDRESS 
F8’AF OF OOF4 393 PUSHAB BA40$ ;SET NEW RETURN ADDRESS 
02 OQOF7 394 REI : 
61 95 OOFB8 395 40S: TSTB (R1) ;FAULT USER BUFFER AGAIN 
60 17 OOFA 396 JMP (RO) ;REPEAT SYSTEM SERVICE 
FFO1’ 31 OOFC 397 SOS: BRW EXE$ABORTIO ;ABORT I/O REQUEST 


OOFF 398 .DSABL LSB 
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BACKOUT A QIO 


SYSQIOFDT 
V03-009 
;SSA00002 FEFE’ 30 
OA AG B7 
05 2A A3 00 E1 
3A A4 B6 
03 1 
3E A4 B6 
OC 2A A3 07 El 
50 4C AZ DO 
53 DD 
FEEO’ 30 
53 8EDO 
03 OB A3 06 E1 
38 A4 B6 
50 53 DO 
FECF’ 30 


05 


OOFF 
OOFF 
OOFF 
OOFF 
OOFF 
OOFF 
OOFF 
OOFF 
OOFF 
OOFF 
OOFF 
OOFF 
OOFF 
OOFF 
OOFF 
OOFF 
OOFF 
OOFF 
OOFF 
OOFF 
OOFF 
OOFF 
OOFF 
0102 
0105 
010A 
0100 
010F 
0112 
0117 
011B 
011D 
0120 
0123 
0128 
012B 
O12E 
0131 


400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 

at 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 


24-APR-1982 15:51:12 DISKSVMSMASTER: [SYS.SRC]SYSQIOFDT. (1) 


.SBTTL BACKOUT A QIO 


+ 


INPUTS: 


R3 
R4 
R6 


OUTPUTS: 
RO - 


wee we we we we we we we we ee we we we we we we we we we 


BACKOUT_QIO: 
BSBW 
DECW 
BBC 
INCW 
BRB 
10$: INCW 
20$: BBC 
MOVE 
PUSHL 
BSBW 
POPL 
30$: BBC 
INCW 
40$: MOVL 
BSBW 
RSB 


BACKOUT_QIO — BACKOUT A QIO 


THIS ROUTINE IS CALLED TO BACKOUT A QIO. IT DECREMENTS THE CHANNEL I/0 
COUNT, INCREMENTS THE DIRECT OR BUFFERED I/O COUNT, DEALLOCATES THE 
DIAGNOSTIC BUFFER (IF PRESENT), OPTIONALLY INCREMENTS THE AST COUNT, AND 
FINALLY DEALLOCATES THE IRP. 


ADDRESS OF I/0 REQUEST PACKET 
CURRENT PROCESS PCB ADDRESS 
ADDRESS OF CCB 


= CLOBBERED 

;BACKOUT A QIO 
PMS$ABORT_RQ ;RECORD ABORT IF I/O MONITORING ENABLED 
CCB$W_IOC(R6) ;DECREMENT CHANNEL I/O COUNT 
#IRP$V_BUFIO,IRP$W_STS(R3),10$ ;BR IF NOT BUFFERED I/O 
PCB$W_BIOCNT(R4) ;ADJUST COUNT OF BUFFERED 1/0 
20$ — ; CONTINUE 
PCB$W_DIOCNT(R4) ;ADJUST DIRECT I/O COUNT 
#IRP$V_DIAGBUF,IRP$W_STS(R3),30$ ;BR. IF NO DIAGNOSTIC BUFFER 
IRP$L_DIAGBUF(R3) ,RO :GET ADDRESS OF DIAGNOSTIC BUFFER 
R3 ; SAVE R3 
EXE$SDEANONPAGED ;DEALLOCATE DIAGNOSTIC BUFFER 
R3 ;RESTORE R3 
#ACB$V_QUOTA,IRP$B_RMOD(R3) ,40$ ;BR IF AST NOT REQUESTED 
PCB$W_ASTCNT(R4) ADJUST AST COUNT 
R3,RO ;DEALLOCATE PACKET 
EXE$DEANONPAGED ; 


SYSQIOFDT 
VO03~-009 


50 
10 
04 
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DD 
10 
11 


0132 
0132 
0132 
0132 
0132 
0132 
0132 
0132 
0132 
0132 
0132 
0132 
0132 
0132 
0132 
0132 
0132 
0132 
0132 
0132 
0132 
0132 
0132 
0132 
0132 
0132 
0132 
0132 
0132 
0132 
0132 
0132 
0132 
0134 
0136 


438 
439 
440 
441 

442 
443 
444 
445 
446 
447 
448 
449 
450 
451 

452 
453 
454 
455 
456 
457 
458 
459 
460 
461 

462 
463 
464 
465 
466 
467 
468 
469 
470 
471 

472 


_SBTTL CHECK BUFFER ACCESSIBILITY FOR READ FUNCTION 
ot 
» EXESREADCHK - CHECK BUFFER ACCESSIBILITY FOR READ FUNCTION 
» THIS ROUTINE IS CALLED TO CHECK BUFFER ACCESSIBILITY FOR A READ I/0 
: FUNCTION. 
3 
; INPUTS: 
RO = ADDRESS OF BUFFER. 
: R1 = SIZE OF TRANSFER IN BYTES. 
R3 = ADDRESS OF 1/0 REQUEST PACKET. 
:; OUTPUTS: 
‘ IF BUFFER IS NOT WRITE ACCESSIBLE, THEN THE I/O REQUEST IS TERM- 
: INATED VIA EXE$IOFINISH WITH A STATUS OF SS$ _ACCVIO. 
IF BUFFER IS WRITE ACCESSIBLE, THEN THE FOLLOWING VALUES ARE RE- 
‘ TURNED: 
: RO = ADDRESS OF BUFFER. 
: R1 = SIZE OF TRANSFER IN BYTES. 
; R2 = READ FUNCTION INDICATOR (1). 
; R3 = ADDRESS OF I/0 REQUEST PACKET. 
‘ IRP$W_BCNT(R3) = SIZE OF TRANSFER IN BYTES. 
: IRP$W_FUNC(R3) = READ. 
-ENABL LSB 
EXESREADCHK: : ;CHECK BUFFER FOR READ FUNCTION 
PUSHL RO ;SAVE ADDRESS OF BUFFER 
BSBB EXE$READCHKR ;CHECK BUFFER 
BRB 10$ 


SYSQIOFDT - SYSTEM SERVICE QUEUE I/0 FDT 
V03-009 CHECK BUFFER ACCESSIBILITY FOR 
0138 474 .SBTTL 
0138 475 ;+ 
0138 476 ; EXES$WRITECHK 
0138 477 ; 
0138 478 ; THIS ROUTINE 
0138 479 ; FUNCTION. 
0138 480 ; 
0138 481 ; INPUTS: 
0138 482 ; 
0138 483 ; RO = 
0138 484 ; R1 = 
0138 485 ; R3 = 
0138 486 ; 
0138 487 ; OUTPUTS: 
0138 488 ; 
0138 489 ; 
0138 490 ; INATED 
0138 491 ; 
0138 492 ; 
0138 493 ; TURNED: 
0138 494 ; 
0138 495 ; 
0138 496 ; 
0138 497 ; 
0138 498 ; 
0138 499 ; 
0138 500 ; 
0138 501 ; 
0138 502 ;- 
0138 5903 
0138 504 EXES$WRITECHK:: 
50 DD 0138 505 PUSHL 
68 10 O13A 506 BSBB 
03 50 EB 013C 507 108: BLBS 
FEBE’ 31 £O13F 508 BRW 
50 8EDO 0142 509 2098: POPL 
05 0145 510 RSB 
0146 511 .DSABL 
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CHECK BUFFER ACCESSIBILITY FOR WRITE FUNCTION 
~- CHECK BUFFER ACCESSIBILITY FOR WRITE FUNCTION 


IS CALLED TO CHECK BUFFER ACCESSIBILITY FOR A WRITE I/0 


ADDRESS OF BUFFER. 
SIZE OF TRANSFER IN BYTES. 
ADDRESS OF I/0 REQUEST PACKET. 


IF BUFFER IS NOT READ ACCESSIBLE, THEN THE I/O REQUEST IS TERM- 


VIA EXE$IOFINISH WITH A STATUS OF SS$_ACCVIO. 


IF BUFFER IS READ ACCESSIBLE, THEN THE FOLLOWING VALUES ARE RE- 


ADDRESS OF BUFFER. 


RO = 

R1 = SIZE OF TRANSFER IN BYTES. 

R2 = WRITE FUNCTION INDICATOR (0). 
R3 = ADDRESS OF I/O REQUEST PACKET. 


IRP$W_BCNT(R3) SIZE OF TRANSFER IN BYTES. 


IRP$wW_FUNC(R3) WRITE. 

:;CHECK BUFFER FOR WRITE FUNCTION 
RO ; SAVE ADDRESS OF BUFFER 
EXESWRITECHKR ;CHECK BUFFER 
RO, 20$ ;BRANCH IF SUCCESS 
EXE$ABORTIO ;ABORT I/0 
RO ;RESTORE ADDRESS OF BUFFER 


LSB 


SYSQIOFDT 
V03-009 


50 


52 


32 A3 51 
OF 

51 32 A3 
07 50 

2A A3 02 
52 01 

51 50 
O1FF 8F 

51 50 
FEOO 8F 

1 51 

13 

50 52 

51 6142 
Fl 

50 01 

7E 50 


- SYSTEM SERVICE QUEUE 1/0 FDT 
CHECK BUFFER ACCESSIBILITY FOR 


C2 
14 
3C 
05 


7D 


0146 
0146 
0146 
0146 
0146 
0146 
0146 
0146 
0146 
0146 
0146 
0146 
0146 
0146 
0146 
0146 
0146 
0146 
0146 
0146 
0146 
0146 
0146 
0146 
0146 
0146 
0146 
0146 
0146 
0146 
0146 
0146 
0146 
0146 
0146 
014A 
014C 
0150 
0153 
0157 
O15A 
015B 
015B 
O1S5E 
0163 
0166 
0168 
O016E 
0170 
0170 
0176 
0179 
017D 
O17F 
0182 
0183 
0183 


513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 


539 
540 


542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 


+ 


We Oe we we Ok ee we we wk we we ee wk ee ee ee ee we we we we we we ee we we we we we 


.SBTTL 


EXESREADCHKR 


INPUTS: 


RO 
R1 
R3 


AD 
SI 


OUTPUTS: 
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CHECK BUFFER ACCESSIBILITY FOR READ FUNCTION AND RETURN 


- CHECK BUFFER ACCESSIBILITY FOR READ FUNCTION AND RETURN 


ATUS IS RETURNED IN RO. 


DRESS OF BUFFER. 
ZE OF TRANSFER IN BYTES. 


THIS ROUTINE IS CALLED TO CHECK BUFFER ACCESSIBILITY FOR A READ 1/0 
FUNCTION. ST 


ADDRESS OF I/0 REQUEST PACKET. 


IF THE BUFFER IS NOT WRITE ACCESSIBLE, THEN THE FOLLOWING 


VALUE I 


RO = SS 


IF BUFF 
TURNED: 


. ENABL 


EXESREADCHKR:: 


5$: 


10$: 


15$: 


20$: 


30$: 


MOVL 
BSBB 
MOVL 
BLBC 
BISW 
MOVL 
RSB 


ADDL 
BICW 
SUBL 
CVTWL 
CVTLW 
BVS 


IFNOWRT 
SUBL 
MOVAW 
BGTR 
MOVZWL 
RSB 


MOVQ 


ER IS WRITE ACCESSIBLE, THEN THE FOLLOWING VALUES ARE RE- 


S RETURNED: 

$ ACCVIO 

RO = SS$_NORMAL 

R1 = SIZE OF TRANSFER IN BYTES. 

R2 = READ FUNCTION INDICATOR (1). 
R3 = ADDRESS OF I/0 REQUEST PACKET. 


IRP$L_ BCNT(R3) 


tou 


IRP$W_FUNC(R3) = READ. 
LSB 

R1,IRP$L_BCNT(R3) : 
10$ , ; 
IRP$L_BCNT(R3),R1 ; 
RO,5$ ; 
#IRP$M_FUNC, IRP$W_STS(R3) 


#1,R2 ; 


RO,R1 
#VA$M_BYTE,RO 
RO,R1 
#-AX200,R2 
R1,R1 

30$ 


wee we ee we we we 


R1,(RO),ACCVIO 
R2,RO 
(R1)(R2],R1 
20$ 

#SS$ NORMAL ,RO 


we we we we we we 


RO,-(SP) A 


SIZE OF TRANSFER IN BYTES. 


CHECK BUFFER FOR READ FUNCTION 
SAVE R1 

CHECK ACCESS 

RESTORE R1 

IF LBC, NO ACCESS: 

; SET READ FUNCTION 

SET READ FUNCTION INDICATOR 


ENDING ADDRESS OF BUFFER 

TRUNCATE TO START OF. PAGE 

CALCULATE LENGTH OF BUFFER TO PROBE 
SET ADDRESS ADJUSTMENT CONSTANT - 
GREATER THAN 32k? : 

IF VS, YES; CHECK BY CHUNKS. 


CAN ENDS OF USER’S BUFFER BE WRITTEN? 
CALCULATE VA OF NEXT PAGE 

CALCULATE NEW LENGTH 

IF GTR THEN MORE TO TEST 

INDICATE SUCCESS 

AND RETURN 


SAVE CURRENT VALUES ON STACK 


SYSQIOFDT 
V03-009 


51 


04 


7E00 


6E 
AE 


05 
50 


5E 


50 


8F 


51 
51 
DC 
50 
BE 
CF 


08 


Oc 


~ SYSTEM SERVICE QUEUE I/O FDT SUBROUTIN 
CHECK BUFFER ACCESSIBILITY FOR READ FUNC 24-APR-1982 


3c 


co 
05 


3C 
05 


0186 
018B 
018B 
018E 
0192 
0194 
0197 
019A 
019C 
019C 
019C 
019F 
01A0 
01A0 
01A3 
01A4 


570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 


ACCVIO1: 


ACCVIO: 


MOVZWL #AX7E00,R1 


ADDL R1, (SP) 
SUBL R1,4(SP) 
BSBB 20$ 

BLBC RO,ACCVIO1 
MOVQ (SP)+,RO 
BRB 15$ 

ADDL #8,SP 

RSB 


MOVZWL #SS$_ACCVIO,RO 
RSB 


3-JUN~1984 15: 


15: 
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wo we we we we we we we 


SIZE OF CHUNK USED STEPPING THRU BUF. 
(32K - 1 PAGE) 

ADVANCE ADDRESS BY THIS AMOUNT 

DECREASE COUNT 

PROBE CHUNK 

IF LBC, NO ACCESS 

POP PRE-ADJUSTED VALUES OFF STACK 

SEE IF LENGTH NOW LT 32K 


SYSQIOFDT 
VO3-009 


32 A3 51 
OA 

51 32 A3 
02 50 

52 

51 50 

50 O1FF 8F 
51 50 

52 FEOO 8F 
51 51 

13 

50 52 

51 6142 

F 

50 01 

7E 50 

51 7E00 8F 


- SYSTEM SERVICE QUEUE I/O FDT SUBROUTIN 
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C2 


14 


3C . 


05 


7D 
3C 


01A4 
01A4 
01A4 
01A4 
01A4 
01A4 
01A4 
01A4 
01A4 
01A4 
01A4 
01A4 
01A4 
01A4 
01A4 
01A4 
01A4 
O1A4 
01A4 
O1A4 
01A4 
01A4 
01A4 
01A4 
01A4 
01A4 
01A4 
01A4 
O1A4 
01A4 
O1A4 
O1A4 
01A4 
O1A4 
01A8 
O1AA 
O1AE 
01B1 
01B3 
0184 
01B4 
01B7 
01BC 
O1BF 
01C4 
01C7 
01C9 
01C9 
O1CF 
01D2 
0106 
01D8 
01DB 
01DC 
01DC 
01DF 
O1E4 


587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 


3~JUN~1 


984 


15:36:44 VAX-11 Macro V03-01 
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CHECK BUFFER ACCESSIBILITY FOR WRITE FUNCTION AND RETURN 


EXE$WRITECHKR - CHECK BUFFER ACCESSIBILITY FOR WRITE FUNCTION AND RETURN 


THIS ROUTINE IS CALLED TO CHECK BUFFER ACCESSIBILITY FOR A WRITE 1/0 


THEN THE FOLLOWING VALUE IS 


THEN THE FOLLOWING VALUES ARE RE- 


SIZE OF TRANSFER IN BYTES. 


;CHECK BUFFER FOR WRITE FUNCTION 


SAVE Ri 

CHECK ACCESS 

RESTORE R1 

IF LBC, NO ACCESS 

SET WRITE FUNCTION INDICATOR 


ENDING ADDRESS OF BUFFER 

TRUNCATE TO START OF PAGE 

CALCULATE LENGTH OF BUFFER TO PROBE 
SET ADDRESS ADJUSTMENT CONSTANT 
GREATER THAN 32k? 

IF VS, VES; CHECK BY CHUNKS 

CAN ENDS OF USER‘S BUFFER BE READ? 
CALCULATE VA OF NEXT PAGE 
CALCULATE NEW LENGTH 

IF GTR THEN MORE TO TEST 

INDICATE SUCCESS 

AND RETURN 


SAVE CURRENT VALUES ON STACK 
SIZE OF CHUNK USED STEPPING THRU BUF. 


. SBTTL 

o> 

: FUNCTION. STATUS IS RETURNED IN RO 

: INPUTS: 

; RO = ADDRESS OF BUFFER. 

; R1 = SIZE OF TRANSFER IN BYTES. 

7 R3 = ADDRESS OF I/0 REQUEST PACKET. 

: OUTPUTS: 

: IF BUFFER IS NOT READ ACCESSIBLE, 

; RETURNED: 

; RO = SS$_ACCVIO 

: IF BUFFER IS READ ACCESSIBLE, 

3 TURNED: 

; RO = SS$_NORMAL 

; R1 = SIZE OF TRANSFER IN BYTES. 

: R2 = WRITE FUNCTION INDICATOR (0). 

: R3 = ADDRESS OF I/0 REQUEST PACKET. 

; IRP$L_BCNT(R3) = 

; IRP$W_FUNC(R3) = WRITE. 

EXE$WRITECHKR:: 
MOVL R1,IRP$L_BCNT(R3) $ 
BSBB 40$ ; 
MOVL IRP$L_BCNT(R3),R1 ; 
BLBC RO,35$ 3 
CLRL R2 ; 

35$: RSB 

40$: ADDL RO,R1 ; 
BICW #VAGSM_BYTE,RO : 
SUBL RO,R1 3 
CVTWL #-AX200,R2 3 

45$: CVTLW R1,R1 ; 
BVS 60$ ; 

50$: IFNORD R1,(RO),ACCVIO 3 
SUBL R2,RO ; 
MOVAW (R1){R2],R1 ; 
BGTR 50$ 3 
MOVZWL #SS$ NORMAL,RO ; 
RSB ; 

60$: MOVQ RO,-(SP) ; 
MOVZWL #AX7E00,R1 ; 


(32K - 1 PAGE) 


SYSQIOFDT 
V03-009 


6E 
04 AE 


50 


AC 


51 
51 
DC 
50 
8E 
CF 


~ SYSTEM SERVICE QUEUE I/0 FDT SUBROUTIN 
CHECK BUFFER ACCESSIBILITY FOR WRITE FUN 24-APR-1982 15: 


co 
C2 
10 
EQ 
7D 
11 


O1E4 
Q1E7 
O1EB 
O1ED 
01F0 
O1F3 
O1FS5 


644 
645 
646 
647 
648 
649 
650 


ADDL. 
SUBL 
BSBB 
BLBC 
MOVQ 
BRB 
-DSABL 


R1, (SP) 
R1,4(SP) 
50$ 
RO,ACCVIO1 
(SP)+,RO 
45$ 

LSB 


3-JUN-1984 15: 
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we we we we we we 


ADVANCE ADDRESS BY THIS AMOUNT 
DECREASE COUNT 

PROBE CHUNK 

IF LBC, NO ACCESS 

POP PRE-ADJUSTED VALUES OFF STACK 
SEE IF LENGTH NOW LT 32K 


SYSQIOFDT 
V03-009 


;ROW49577 
;ROW49577 
; ROW49577 
;ROW49577 
.;ROW49577 
;ROW49577 
; PRDOO3O 

; PRDOO30 

; PRDOG@30 

; PRDOOS3O 

;ROW49577 
-6 


57 


40 A5 
42 AS 
44 A5 


02 
04 


1E 
23 
04 
61 
Al 
Al 
2A 
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01F5 
O1F5 
O1F5 
O1F5 
O1FS 
O1FS5 
O1F5 
O1F5 
O1F5 
O1F5 
O1F5 
O1F5 
O1F5 
O1F5 
O1F5 
O1F5 
O1F5 
O1F5 
O1F5 
O1F5 
O1F5 
01F5 
O1F5 
O1FS 
O1F5 
O1F5 
O1F5 
O1F5 
O1F5 
O1F5 
O1F5 
O1F5 
O1FS 
O1F5 
O1F5 
O1F5 
O1F5 
O1F5 
O1F7 
O1FA 
O1FC 


°0200 


0205 
020A 


652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 


OONOOBRWNH — 


10 
685 
686 
687 
688 


689 
690 


.SBTTL SET DEVICE MODE AND CHARACTERISTICS FUNCTIONS (AT FDT LEVEL) 
3+ 
; EXE$SETCHAR - SET DEVICE MODE AND CHARACTERISTICS FUNCTIONS (AT FDT LEVEL) 
» THIS ROUTINE PLACES THE NEW CHARACTERISTICS SPECIFIED BY THE QUADWORD POINTED 
; TO BY P1 INTO THE SECOND AND THIRD LONGWORDS OF THE DEVICE UCB. 
; INPUTS: 
RO = SCRATCH. 
R1 = SCRATCH. 
: R2 = SCRATCH. 
R3 = ADDRESS OF I/O REQUEST PACKET. 
; R4 = CURRENT PROCESS PCB ADDRESS. 
; RS = ASSIGNED DEVICE UCB ADDRESS. 
‘ R6 = ADDRESS OF CCB. 
: R7 = I/O FUNCTION CODE BIT NUMBER. 
: R8 = FUNCTION DECISION TABLE DISPATCH ADDRESS. 
: RQ = SCRATCH. 
R10 = SCRATCH, 
R11 = SCRATCH. | 
AP = ADDRESS OF FIRST FUNCTION DEPENDENT PARAMETER. 
: OUTPUTS: 
THE CHARACTERISTICS SPECIFIED BY THE QUADWORD POINTER TO BY P1 ARE STORED 
: IN THE SECOND AND THIRD LONGWORDS OF THE DEVICE UCB. 
: COMPLETION CODES: 
SS$_NORMAL - SUCCESSFUL 
: SS$_ACCVIO - BUFFER ACCESS VIOLATION 
; SS$_ILLIOFUNC ~ FUNCTION IS ILLEGAL ON DISK DEVICES 
| -ENABL LSB 
EXE$SETCHAR: : ;SET DEVICE MODE AND CHARACTERISTICS 
BSBB CHECK _SET :IS THIS SET FUNCTION VAILD? 
CMPL #10$ SETMODE,R7 :SET MODE FUNCTION? 
BEQL 10$ -IF EQL VES 
MOVW (R1),UCB$B_DEVCLASS(R5) ;SET DEVICE TYPE AND CLASS 
10$: MOVW 2(R1),UCB$W_DEVBUFSIZ(R5) ;SET DEFAULT BUFFER SIZE 
MOVL 4(R1),UCB$L_DEVDEPEND(RS) ;SET DEVICE CHARACTERISTICS 
BRB 20$ ; 


SYSQIOFDT 
V03-009 


;ROW49577 
;PRDOO3O 
;PRD0030 
;PRDOOS3O 
;ROW49577 
;PRDO030 
;PRDOO30 
;PRDOO3O 
;ROW49577 
;ROW49577 
;ROW49577 
;ROW49577 
;ROW49577 
;ROW49577 
3;ROW49577 
;ROW49577 
;ROW49577 
3;ROW49577 
;ROW49577 


50 


07 

38 A3 61 
FDEB’ 

40 AS 01 
OA 

51 6C 
OOF4 8F 

03 

50 oc 
FDCE’ 
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-SBTTL SET DEVICE MODE AND CHARACTERISTICS FUNCTIONS 

st 

; EXESSETMODE - SET DEVICE CHARACTERISTICS AND MODE 

3; FUNCTIONAL DESCRIPTION: 

: THIS ROUTINE PLACES THE NEW CHARACTERISTICS SPECIFIED BY P1 INTO 

; THE I/0 PACKET FOR INSERTION INTO THE UCB WHEN THE UNIT IS IDLE. 

; THE INPUT DATA IS IN THE FORM RETURNED BY $GTCHAN. THE SPECIFIED BUFFER 

; IS ASSUMED TO BE 12 BYTES IN LENGTH. THE P2 LENGTH SPECIFIER IS IGNORED. 

3; THE NEW CHARACTERISTICS ARE PLACED IN IRP$L_MEDIA/MEDIA+4 AND THE 

; PACKET IS QUEUED VIA EXE$QIODRVPKT. 

3; INPUTS: 

; R3 = I/0 PACKET ADDRESS 

; R4 = CURRENT PCB 

3 R5 = ACB ADDRESS 

;: R6 = ASSIGNED CCB ADDRESS 

7 AP = ADDRESS OF THE QIO ARGUMEMT P1 

; OUTPUTS: 

: RO = STATUS OF THE OPERATION 

: R3+ ARE PRESERVED. 

; COMPLETION CODES: 

; SS$_NORMAL - SUCCESSFUL 

: SS$_ACCVIO - BUFFER ACCESS VIOLATION 

: SS$_ILLIOFUNC - FUNCTION IS ILLEGAL ON DISK DEVICES 

= 

EXES$SETMODE: : ;SET DEVICE MODE AND CHARACTERISTICS 
BSBB CHECK_SET 3;I1S THIS SET FUNCTION VAILD? 
MOVQ (R1),IRP$L_MEDIA(R3) ; INSERT CHARACTERISTICS IN I/O PACKET 
BRW EXE$SQIODRVPKT ;QUEUE THE PACKET 

CHECK_SET: 
CMPB #D0CG_DISK, UCB$B_DEVCLASS(R5) ; Is this a disk device? 
BEQL 91$ ; Branch if disk; they can’t be set. 
MOVL P1(AP), R1 ; Get buffer address. 
IFNORD #8, (R11), 93$ ; Branch if no read access to buffer. 
RSB ; Else, all is ok; return to caller. 

91$: MOVZWL #SS$_ILLIOFUNC, RO ; Setup illegal I/O function status. 
BRB 99$ ; or 

93$: MOVZWL #SS$_ACCVIO, RO ; Setup access violation status. 

99$: BRW EXE$ABORTIO ; 


Then blow the I/O request away. 
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DO 
3C 
31 


0232 735 
0232 736 
0232 737 
0232 738 
0232 739 
0232 740 
0232 741 
0232 742 
0232 743 
0232 744 
0232 745 
0232 746 
0232 747 
0232 748 
0232 749 
0232 750 
0232 751 
0232 752 
0232 753 
0232 754 
0232 755 
0232. 756 
0232 757 
0232 758 
0232 759 
0232 760 
0232 761 
0232 762 
0232 763 
0232 764 
0232 765 
0232 766 
0232 767 
0232 768 
0236 769 
0239 770 
023C 771 


.SBTTL SENSE DEVICE MODE AND CHARACTERISTICS FUNCTIONS 
oc 
; EXESSENSEMODE - SENSE DEVICE MODE AND CHARACTERISTICS FUNCTIONS 
THIS ROUTINE OBTAINS THE CURRENT DEVICE MODE/CHARACTERISTICS FROM THE DEVICE 
; DEPENDENT CHARACTERISTICS LONGWORD IN THE UCB AND IMMEDIATELY COMPLETES THE 
; I/O OPERATION WITH THE SECOND LONGWORD OF THE FINAL 1/0 STATUS EQUAL TO THE 
; DEVICE DEPENDENT CHARACTERSITICS. 
é INPUTS: 
3 RO = SCRATCH. 
; R1 = SCRATCH. 
; R2 = SCRATCH. 
; R3 = ADDRESS OF I/0 REQUEST PACKET. 
; R4 = CURRENT PROCESS PCB ADDRESS. 
: RS = ASSIGNED DEVICE UCB ADDRESS. 
; R6 = ADDRESS OF CCB. 
7 R7 = I/0 FUNCTION CODE BIT NUMBER. 
7 R8 = FUNCTION DECISION TABLE DISPATCH ADDRESS. 
; RQ = SCRATCH. 
: R10 = SCRATCH. 
. Rit = SCRATCH. 
; AP = ADDRESS OF FIRST FUNCTION DEPENDENT PARAMETER. 
: OUTPUTS: 
: THE DEVICE DEPENDENT CHARACTERISTICS ARE OBTAINED FROM THE UCB AND 
; THE I/0 IS COMPLETED WITH THE SECOND I/0 STATUS LONGWORD EQUAL TO THE 
: DEVICE CHARACTERISTICS. 
EXESSENSEMODE: : :;SENSE DEVICE MODE/CHARACTERISTICS 
MOVL UCB$L_DEVDEPEND(RS),R1 ;GET DEVICE DEPENDENT CHARACTERSITICS 
20§$: MOVZWL #SS$ NORMAL ,RO ;SET NORMAL COMPLETION STATUS 
BRW EXESFINISHIO ;FINISH I/O OPERATION 
.DSABL LSB 
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CARRIAGE CONTROL INTERPRETATION 24-APR-1982 15:51:12 DISK$VMSMASTER: [SYS.SRC]SYSQIOFDT. (2) 
023C 773 .SBTTL CARRIAGE CONTROL INTERPRETATION 
023C 774 ;+ 
023C 775 ; EXE$CARRIAGE - INTERPRET CARRIAGE CONTROL SPECIFIER 
023C 776 ; 
023C 777 ; FUNCTIONAL DESCRIPTION: 
023C 778 ; 
023C 779 ; THIS ROUTINE IS USED BY THE LINE PRINTER DRIVER AND THE TERMINAL 
023C 780 ; DRIVER TO INTERPRET THE CARRIAGE CONTROL SPECIFIER IN IRP$B_CARCON 
023C 781 ; NOTE THAT IRP$B_CARCON IS USED AS A LONGWORD! 
023C 782 ; 
023C 783 ; THE SPECIFIER IS AS FOLLOWS: 
023C 784 ; 
023C 785 ; BYTE 1 -- FORTRAN CARRIAGE CONTROL CHARACTER IF NOT 0 
023C 786 ; BYTE 2 -- ***** IGNORED *##** 
023C 787 ; BYTE 3 -- PREFIX CARRIAGE CONTROL 
023C 788 ; BYTE 4 -- SUFFIX CARRIAGE CONTROL 
023C 789 ; 
023C 790 ; THE PRE/SUF FIELDS ARE AS FOLLOWS 
023C 791 ; ; 
023C 792 ; IF BIT 7=0 THEN BITS 6-O ARE THE NUMBER OF NEWLINES TO INSERT. 
023C 793 ; IF BIT 7=1 AND BIT 6=0 THEN BITS 4-0 ARE THE ASCII CHARACTER TO 
023C 60794 ; OUTPUT. ASCII SET CO OR C1 IS SPECIFIED BY BIT 5. 
023C 795 ; IF BIT 7=1 AND BIT 6=1 THEN BITS 5-0 ARE THE PRINTER CHANNEL NUMBER 
023C 796 ; 
023C 797 ; ASCII SET CO IS ASSUMED AND BIT 6 IS IGNORED IF BIT 7=0. 
023C 798 ; 
023C 799 ; INPUTS: 
023C 800 ; 
023C 801 ; R3 = ADDRESS OF THE I/0 PACKET 
023C 802 ; R5 = ADDRESS OF THE UCB 
023C 803 ; 
023C 804 ; OUTPUTS: 
023C 805 ; 
023C 806 ; IRP$B_CARCON IS SET UP TO REFLECT THE PRE/SUF CHARACTERS TO SEND. 
023C 807; 
023C 808 ; BYTE QO = NUMBER OF CHARACTERS TO SEND 
023C 809 ; BYTE 1 = CHARACTER, IF O THEN NEWLINE 
023C 810 ; 
023C 811 ; IRP$B_CARCON+2 HAS THE SUFFIX CONTROL. 
023C 812 ; 
023C 813 ; RO,R1 ARE USED. 
023C 814; 
023C 815 ;- 
023C 816 ; 
023C 817 ; LOCAL DATA TABLE 
023C 818 ; 
023C 819 CCTABLE: ; CARRIAGE CONTROL TO FORTRAN MATCH TABLE 
01 023C 820 .BYTE 1,0,1,13 ; SPACE => 1 NL, 1 CR 
20 0240 821 ASCII. / / 
02 0241 822 .BYTE 2,0,1,13 : "OF 25 2 NLS 1 CR 
30 0245 823 -ASCLI. /0/ 
01 0246 824 .BYTE §=©1,1231,13 o Se oe AB Ry POOR 
31 024A 825 .AWSCII /1/ 
00 0248 826 .BYTE 0,0,1,13 ; "+" => NOTHING, 1 CR 
2B O24F 827 LASCII /+/ 
01 0250 828 .BYTE 1,0,0,0 ; "$" => 1 NL, NOTHING 
24 0254 #829 sASCIT™ (/ $7 
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-BYTE 1,0,1,13 ; DEFAULT => 1 NL, 1 CR 
-BYTE ie) ; TABLE END 
EXESCARRIAGE: : ; INTERPRET CARRIAGE CONTROL 
MOVZBL IRP$B_CARCON(R3),R1 ; GET FORTRAN SPECIFIER 
BEQL 20$ ; IF EQL THEN TRY PRE/SUF 
MOVAB BACCTABLE,RO ; ADDRESS MATCH TABLE 
10$: MOVL (RO)+,IRP$B_CARCON(R3) ; ASSUME MATCH 
TSTB (RO) ; END OF TABLE? 
BEQL 15$ ; IF EQL THEN YES 
CMPB (RO)+,R1 3; MATCH? 
BNEQ 10$ ; NO THEN SEARCH 
15$: RSB ; ELSE RETURN 
; PRE/SUF CARRIAGE CONTROL 
20$: MOVZBL IRP$B_CARCON+2(R3),R1 ; GET PREFIX SPECIFIER 
BEQL 30$ ; IF EQL THEN NONE 
BSBB 100$ ; INTERPRET THE SPECIFIER 
30$: MOVB R1,IRP$B_CARCON(R3) ; INSERT NUMBER 
MOVB RO,IRP$B_CARCON+1(R3) ; INSERT CHARACTER 
MOVZBL IRPS$B_CARCON+3(R3),R1 ; GET SUFFIX SPECIFIER 
BEQL 40$ ; IF EQL THEN NONE 
BSBB 100$ ; CONVERT THE SPECIFIER 
40$: MOVB R1,IRP$B_CARCON+2(R3) ; INSERT NUMBER 
MOVB RO,IRP$B_CARCON+3(R3) ; INSERT CHARACTER 
RSB ; RETURN 
; SUBROUTINE TO INTERPRET PRE/SUF SPECIFIER 
100$: CLRL RO 3; ASSUME NEWLINE 
BBC #7,R1,110$ ; IF BIT 7 CLEAR THEN DONE 
BICB3 #AX0E0,R1,RO ; REMOVE OTHER BITS 
MOVZBL #1,R1 ; SET ONE CHARACTER 
1108: RSB ; RETURN 
. END 
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ACB$V_QUOTA 
ACCVIO 

ACCVIO1 
BACKOUT_QIO 
CCB$W_IOC 
CCTABLE 
CHECK_SET 
DC$_DISK 
EXESABORTIO 
EXESCARRIAGE 
EXE$SC_CMSTKSZ 
EXE$SDEANONPAGED 
EXE$FINISHIO 
EXESFINISHIOC 
EXESIORSNWAIT 
EXE$LCLDSKVALID 
EXESMODIFY 
EXE$MODIFYLOCK 
EXE$MODIFYLOCKR 
EXESONEPARM 
EXESQIODRVPKT 
EXE$READ 
EXE$READCHK 
EXESREADCHKR 
EXE$READLOCK 
EXESREADLOCKR 
EXESSENSEMODE 
EXE$SETCHAR 
EXE$SETMODE 
EXESWRITE 
EXESWRITECHK 
EXE$WRITECHKR 
EXESWRITELOCK 
EXESWRITELOCKR 
EXE$ZEROPARM 
I0$_PACKACK 
10$_PHYSICAL 
10$_READLBLK 
10$_READPBLK 
10$_SETMODE 
IPL$_SCS 

IPL$ SYNCH 
IRP$B_CARCON 
IRP$B_RMOD 
IRP$L_BCNT 
IRP$L_DIAGBUF 
IRP$L_MEDIA 
IRP$L_SVAPTE 
IRP$M_FUNC 
IRP$S_FCODE 
IRP$V_BUFIO 
IRP$V_DIAGBUF 
IRP$V_FCODE 
IRP$V_FUNC 
IRP$W_BOFF 
IRP$W_FUNC 
IRP$W_STS 
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00000006 
000001A0 
0000019C 
OOOOOOFF 
OOOQOO0A 
0000023C 
00000215 
00000001 
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0000025A 
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00000000 
00000035 
00000069 
00000041 
000000A4 
00000029 
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00000098 
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00000232 
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0000020C 
00000078 
00000138 
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00000085 
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00000008 
0000001F 
00000021 
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00000023 
00000008 
00000008 
0000003C 
00000008 
00000032 
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00000038 
0000002C 
00000002 
00000006 
00000000 
00000007 
00000000 
00000001 
00000030 
00000020 
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PCB$L_EFWM 
PCB$L_STS 
PCB$V_SSRWAIT 
PCB$W_ASTCNT 
PCB$W_BIOCNT 
PCB$W_DIOCNT 
PMS$ABORT_RQ 
PR$_IPL 
SCH$GL_RESMASK 
SCH$GQ_MWAIT 
SCHSWATT 
SF$L_SAVE_AP 
SS$_ACCVIO 
SS$_ILLIOFUNC 
SS$_NORMAL 
UCB$B_DEVCLASS 
UCB$B_ONLCNT 
UCB$L_DEVDEPEND 
UCB$L_STS 
UCB$V_LCL_VALID 
UCB$V_VALID 
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Psect synopsis 24-APR-1982 15:51:12 DISKSVMSMASTER: [SYS.SRCJ]SYSQIOFDT., (2) 
+---- +--+ + 
! Psect synopsis ! 
$--- 4-H + 
PSECT name Allocation PSECT No. Attributes 
ABS. oo0o00000 ¢ 0.) OO € QO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
BLANK . OO0002A2 ( 674.) O1 ( 1.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
$ABS$ oooo00000 O.) O02 € 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
+o tt 
! Performance indicators ! 
tae en en ee + 
Phase Page faults CPU Time Elapsed Time 
Initialization 15 00:00:00.07 00:00:02.88 
Command processing 91 00:00:00.73 00:00:09.00 
Pass 1 454 00:00:18.08 00:01:39.32 
Symbol table sort 0 00:00:02.73 00:00:14.75 
Pass 2 168 00:00:04.66 00:00:30.16 
Symbol table output 10 00:00:00.11 00:00:00.36 
Psect .synopsis output 2 00:00:00.03 00:00:00.04 
Cross-reference output 0 00:00:00.00 00:00:00.00 


Assembler run totals 743 00:00:26.42 00:02:36.51 


The working set limit was 1650 pages. ; 

98202 bytes (192 pages) of virtual memory were used to buffer the intermediate code. 

There were 100 pages of symbol table space allocated to hold 1840 non-local and 44 local symbols. 
969 source lines were read in Pass 1, producing 15 object records in Pass 2. 

23 pages of virtual memory were used to define 22 macros. 


teem er rrr nn ene eee + 
! Macro library statistics ! 
tonne ee eee + 

Macro library name Macros defined 

_$255$DUA28: [SYS.OBJ]LIB.MLB; 1 10 

_$255$DUA28: [SVSLIB]STARLET.MLB; 2 9 

TOTALS (all libraries) 19 


1922 GETS were required to define 19 macros. 
There were no errors, warnings or information messages. 


MACRO/LIS=LIS$: SYSQIOFDT/OBJ=OBU$: SYSQIOFDT MSRC$:SYSQIOFDT/UPDATE=(ENH$: SYSQIOFDT)+EXECML$/LIB 
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IOSUBNPAG - NONPAGED I/0 RELATED SUBROUTINES 3-JUN-1984 11:33:30 VAX-11 Macro V03-01 Page 8) 
Table of contents 


(3) 172 CANCEL I/O ON CHANNEL 

(4) 204.2 Handle Last Channel Deassign 

(5) 276 FILL DIAGNOSTIC BUFFER 

(6) 307 RELEASE I/0 CHANNEL 

(7) 362 REQUEST I/0 CHANNEL 

(8) 422 I/O Request Completion Processing for Class Drivers 
(9) 470 I/O REQUEST COMPLETION PROCESSING 

(10) 560 MOUNT VERIFICATION HELPER 

(11) 593 INITIATE I/O FUNCTION ON DEVICE 

(12) 631 Allocate Buffered Data Path 

(14) 718 Release Buffered Data Path 

(15) 778 REQUEST AND ALLOCATE UNIBUS MAP REGISTERS FOR CLASS DRIVER 
(16) 817.2 REQUEST UNIBUS MAP REGISTERS 

(17) 862 ALLOCATE UNIBUS MAP REGISTERS 

(18) 967 Allocate a specific set of UNIBUS Map Registers 
(19) 1074 Permanently Allocate UNIBUS Map Registers 

(21) 1197 Release UNIBUS Map Registers 

(23) 1397 RETURN TO CALLER 

(24) 1416 WAITFOR INTERRUPT OR TIMEOUT AND KEEP CHANNEL 

(25) 1450 WAITFOR INTERRUPT OR TIMEOUT AND RELEASE CHANNEL 
(26) 1486 ALLOCATE SYSTEM PAGE TABLE 

(27) 1521 CONVERT DEVICE NAME AND UNIT 

(28) 1623 BROADCAST TO A TERMINAL 

(29) 1734.2 SCAN THE 1/0 DATA BASE 

(30) 1734.62 SCAN THE I/O DATA BASE BOTH PRIMARY & SECONDARY PATHS 
(31) 1734.133 IOC$CTRLINIT - Call driver controller init. routine 
(32) 1734.198 IOC$UNITINIT - Call driver unit init. routine 

(33) 1734.277 Parse Device Name String 

(34) 1734.458 Search I/0 Database for Device 

(35) 1734.622 Continue I/O Database Search 

(36) 1734.672 Check UCB Against Search Rules 
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V03-033 12-MAR-1982 17:12:23 DISKSVMSMASTER: [SYS.SRC]IOSUBNPAG. (1) 
0000 a] -TITLE IOSUBNPAG - NONPAGED 1/70 RELATED SUBROUTINES 

;WMCOO02 0000 a1 -IDENT ‘'V03-033' 

;WMCO002 0000 2 

-] 0000 Bog RA A AR RRR RRO ROR RRR RE ERE EEE 

0000 4 ;# * 

0000 5 ;* COPYRIGHT (c) 1978, 1980, 1982 BY * 
0000 6 ;* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
0000 7 3% ALL RIGHTS RESERVED. * 
0000 8 ;* * 
0000 9 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0000 10 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0000 11>=;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0000 12 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 13 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS’ HEREBY * 
0000 14 ;* TRANSFERRED. , * 
0000 15 ;* * 
0000 16 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 17 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
0000 18 ;* CORPORATION. * 
0000 19 ;* * 
Q000 20 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 21 = ;* SOFTWARE ON EQUIPMENT WHICH-IS NOT SUPPLIED BY DIGITAL. * 
0000 22 ;* * 
0000 23 ;* * 
0000 24 gE RR OR eo a OK EK 
0000 25 ; 
0000 26 ; D. N. CUTLER 13-JUN-76 
0000 27 ; 
0000 28 ; 
0000 29 ; NONPAGED I/O RELATED SUBROUTINES 
0000 30 ; 

3; ACG0399 0000 1 ; MODIFIED BY: 

;ACGO399 0000 2; 

;WMCOO02 0000 3; V03-033 WMCO002 Wayne Cardoza - 03-May-1984 

;WMCO002 0000 «4-4 Add support for MNTVERPND bit. 

3; WMCOO002 0000 aD: <5 

;RASO300 0000 6 ; VO03-032 RASO300 Ron Schaefer 2-May-1984 

;RASO300 0000 7 ; Change IOC$CVT_DEVNAM to only prefix cluster node names if 

;RASO300 0000 8 ; the DEV$V_NNM device characteristic is set in UCB$L_DEVCHAR2. 

;RASO300 0000 29° % Add additional itemcode (4) to IOC$CVT_DEVNAM to provide 

;RASO300 0000 -10 ; the device name string sans unit number. 

sRASO300 0000 .1t; 

; TMKOOO1 0000 eZ. V03-031 TMKOOO1 Todd M. Katz 23-Apr-1984 

; TMKOO0OO01 0000 13°; Remove the $LOGDEF data definitions. 

; TMKOOO1 0000 .14 =; 

;RLRPDTADP 0000 -15 ; V03-030 RLRPDTADP Robert L. Rappaport 9-Apr-1984 

;RLRPDTADP 0000 .16 ; Modify entrypoints used for allocating and deallocating 

;RLRPDTADP 0000 Ps fy deer Buffered Data Paths and UNIBUS Map Registers for UQPORTS (UDA), 

;RLRPDTADP 0000 .18 ; to pickup pointer for ADP from PDT$L_ADP(R4). 

;RLRPDTADP 0000 19°; 

;ACG0414 0000 .20 ; V03-029 ACGO414 Andrew C. Goldstein, 30-Mar-1984 15:49 

;ACGO0414 0000 .21 3 Minor parse and searching fixes in IOC$SEARCH... 

3;ACGO0414 0000 .22 ; add IOC$V_ALLOC to force allocation 

;ACGO0414 0000 -23 ; 

;ACGO0406 0000 .24 ; V0O3-028 ACGO406 Andrew C. Goldstein, 16-Mar-1984 15:42 

; ACGO0406 0000 .25 ; Fix bugs in searching for allocation class 


;ACGO0406 0000 .26 


ITOSUBNPAG 
V03-033 


;ACGO399 
3ACG0399 
;ACGO399 


- 3;ACGO399 


3;ACG0399 
-sRLRMAPSP 
' RLRMAPSP 
;RLRMAPSP 
SRLRMAPSP 
;RLRMAPSP 
;ROWO292 
sROWO292 
sROWO292 
;ROWO292 
;KPLOOO1 
;KPLOOO1 
;KPLOOO1 
3;ROWO244 
sROWO244 
;ROWO244 
;ROWO0244 
-}ROWO244 
;ROWO244 
;ROW0239 
;ROWO239 
;ROWO239 
;ROWO239 
:ROWO239 
;ROW0234 
;ROWO234 
;ROWO234 
;ROW0 234 
;ROW0234 
;ROWO234 
;ROWO234 
3; TCMO00S 
3; TCMOO05 
3; TCMO005 
3; TCMO005 
3; TCMOOOS 
3; KDMO084 
; KDM0084 
; KOMO0084 
;ROWO221 
;ROW0221 
;ROWO221 
;ROWO221 
:ROWO221 
;ROWO203 
;ROWO203 
sROWO203 
;ROW0203 
;ROWO203. 
;ROWO203 
3 TCMO004 
; TCMO004 
s TCMO004 
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V03-027 


V03-026 


v03-025 


V03-024 


V03-023 


V03-022 


V03-021 


V03-020 


V03-019 


V03-018 


V03-017 


V03-016 
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ACGO399 Andrew C. Goldstein, 24-Feb-1984 22:28 
Add IOC$LAST_CHAN subroutine, and move in internal I/0 
database parse and search routines, so they can be called 
by IPC. 


RLRMAPSP Robert L. Rappaport 15-Feb-1984 
Correct bug in BEQL destination in IOC$ALOUBAMAPSP that is 
only triggered if the range specified, coincides with the 
exact end of an extent of map registers. 


ROWO292 Ralph O. Weber 4-FEB-1984 
Fix branch displacements broken by movement of EXES$MOUNTVER to 
SYSLOAxxx. 


KPLOOO1 Peter Lieberwirth 7-Nov-1983 
Add paths for new processors to CPUDISP invocation. 


ROWO0244 Ralph O. Weber 17-OCT-1983 

Change the IOC$CVT_DEVNAM name string formation rules to 
eliminate _$1$TTAO: and other allocation class based names 
for devices which can never be dual pathed. See routine 
comments for details of current operation mode. 


ROWO239 Ralph O. Weber 11-OCT-1983 
Fix IOC$CVT_DEVNAM to not insert node name or trailing dollar 
sign when node name is null. Also correct comments describing 


the R4 argument to IOC$CVT_DEVNAM. 


ROWO0234 Ralph O. Weber 5-OCT-1983 

Change IOC$CVT_DEVNAM to produce $allocation-class$device 
strings completely in ASCII, when allocation class output is 
requested. In the process rip up the whole thing because that 
was the only way to get something that worked and didn’t 
occupy all non-page memory 


TCMOOOS Trudy C. Matthews 5-OCT=-1983 

Add IOC$SCAN_IODB_2P which is functionally the same as 
IOCS$SCAN_IOCB except that both primary and secondary paths to 
a device are scanned. 


KDMO0084 Kathleen D. Morse 26-Sep-1983 
Added MicroVAX I support to CPUDISP macros. 


ROWO221 Ralph O. Weber 8-SEP-1983 

Change IOCGUNITINIT to look for a unit initialization routine 
in the DDT before looking in the CRB. See the note in the 
routine’s header for details. : 


ROWO0203 Ralph O. Weber 5~AUG- 1983 
Add two new routines IOC$CTRLINIT and IOC$UNITINIT. These are 
the proscribed mechanism for calling device driver controlter- 


and unit initialization routines. These routines correctly 
setup for, locate, and call the appropriate driver routines. 
TCMOO04 Trudy C. Matthews 26-Jul-1983 


Change IOC$CVT_DEVNAM to return the <allocation_class>+ 
<devnam> form of device name if R4 > OQ. 


IOSUBNPAG 
V03-033 


; TCMOO004 
;RLRBYTEOFF 
;RLRBYTEOFF 
s;RLRBYTEOFF 
;R LRBYTEOFF 
;RLRBYTEOFF 
;RLRBYTEOFF 
;RLRBYTEOFF 
;RLRBYTEOFF 
;RLRBYTEOFF 
;RLRBYTEOFF 
; LMPBUILD 

; LMPBUILD 

; LMPBUILD 

3; TCMO003 

3; TCMO003 

; TCMO003 

; TCMQODO03 

; TCMO003 

: TCMO003 

; TCMO0O02 

; TCMO002 

; TCMOO002 

; TCMOO01 

; TCMOOO1 

3; TCMOO0O01 

+ TCMOO001 

; TCMOO0O1 
;ROWO188 
;ROWO188 
sROWO188 

3; KTA3022 
3;KTA3022 
;KTA3022 

3; KTA38022 
-;ROWO140 
;ROW0O140 
;ROWO140 
;ROWO140 
;ROWO140 
3;MLJ0101 
;MLJ0101 
;MLU0101 
3;KTA3O18 
3;KTAZ018 
3KTA3018 
;ROWO130 
;ROWO 130 
;ROWO130 
;ROWO130 

; KDMO002 

; KDMO002 

3; KDMO002 
;RLROOO3 
;RLROOO3 
;RLROOOS 
;RLROOO3 
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0000 ~=tiw. 84 
0000 =. 85 
0000 =. 86 
0000 ~=«.87 
0000 =. 88 
0000 ~=—s«w. 89 
0000 ~=—s«. 90 
0000 ~—stiw‘ QQ 
0000 ~=s.«.g92 
0000~—s(w 93 
0000 = .94 
0000 =.95 
0000 =. 96 
0000 ~=.97 
0000 =. 98 
0000 ~=.99 
0000 6.100 
0000 .101 
0000 .102 
0000 .103 
0000 .104 
0000 .105 
0000 .106 
0000 .107 
0000 .108 
0000 .109 
0000 .110 
0000 .111 
0000 .112 
0000 «.113 
0000 .114 
0000 .115 
0000 .116 
0000 .117 
0000 .118 
0000 .119 
0000 .120 
0000. .121 
0000 .122 
0000 .123 
0000 .124 
0000 .125 
0000 .126 
0000 .127 
0000 .128 
0000 .129 
0000 .130 
0000 .131 
0000. .132 
0000 .133 
0000 .134 
0000 .135 
0000 .136 
0000 .137 
0000 .138 
0000 «6.139 
0000 .140 


Oe we we Oe we ee ee we we Oe ee we we wt ee we ee Oe we we we we te wee ke ee we we we ee te ee we ee wt we wh ee we ee we we ee we ee wee wt we ee et we 


V03-015 


V03-014 


V03-013 


V03-012 


VO3-011 


VO03-010 


V03-009 


VO03-008 


V03-007 


V03-006 


V03-005 


V03-004 


V03-003 
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RLRBYTEOFF Robert L. Rappaport 27-Jun-1983 
Correct error in IOCGREQDATAPUDA. Error is that this 
routine has operated in a NOWAIT mode, that is, if no 
Buffered Datapath was available, we just used the 
Direct Datapath. Unfortunately, this doesn’t work on 
780’s and 790’s if the user buffer is located at an 
odd byte address since Byte Offset doesn’t work on the 
Direct Datapath for the UNIBUS Adapters on these 


processors. 

LMPBUILD L. Mark Pilant, 26-Jun-1983 23:11 
Change references from TTY$K_WB_HDRLEN to TTY$K_WB_LENGTH. 
TCMOO0O03 Trudy C. Matthews 17-Jun-1983 


Change the way cluster-style device names are conditionally 
returned, such that cluster-style names are returned for 
local disk devices if the system is participating ina 
cluster (routine IOC$CVT_DEVNAM) . 


TCMO002 Trudy C. Matthews 09-Jun-1983 
Fix bug in TCMOOO1. 
TCMOOO} Trudy C. Matthews 21-Apr-1983 


Add new parameter to IOC$CVT_DEVNAM that allows caller 
to specify whether he wants the node name returned for 
local devices or not. 


ROWO188 Ralph O. Weber 30-~APR-1983 
Fix broken branches to PMS$ routines. 
KTA3022 Kerbey T. Altmann 29-Dec-1982 


Enhance KTA3018. Add new routine to scan the I0 
data base and return the blocks. 


ROWO 140 Ralph O. Weber 18-NOV- 1982 
Cause IOCGDALOCUBAMAP to give non-fatal INCONSTATE, 
“Inconsistant UBA data base" bugcheck if number of map 
registers to deallocate is zero. 


MLJO101 Martin L. Jack 11-Nov-1982 
Add $SBDEF. 

KTA3018 Kerbey T. Altmann 01-Nov-1982 
Modify CVT_DEVNAME for new I0 database. 

ROWO0130 Ralph O. Weber 5S-OCT- 1982 


Remove IOC$DELMBX whose functionality is replaced by new 
routines in module UCBCREDEL. 


KDMOO002 Kathleen.D. Morse 28-Jun-1982 
Added $DCDEF. , 
RLROOOS Robert L. Rappaport 1-June-1982 


Correct errors in UNIBUS map register allocation and 
deallocation that occur when the number of active .; 
descriptors is zero. Errors were in IOC$ALOUBAMAPSP 


ITOSUBNPAG 


V03-033 


;RLROOOS3 
;RLROOO3 
;RLROOO3 
;RLROOO3 
;RLROOOZ 
;RLROOO2 
;RLROOO2 
;RLROOO?} 
;RLROOO1 
;RLROOO] 
sRLROOO1 
;RLROOO1 
;RLROOO1 
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V03-002 


V03-001 
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(allocation error), IOC$ALOUBAPRM (allocation error), 
and IOC$DALOCUBAMAP (deallocation error). The error 
in IOC$DALOCUBAMAP is corrected in a patch to V3.1. 


RLROOOZ Robert L. Rappaport 22-May-1982 
Remove IOC$REQMAPREGN and allt comments that reference it. 


RLROOO1 Robert L. Rappaport 22-May-1982 

Correct error in UNIBUS map register allocation that 
doubly allocated registers when the number of active 
descriptors was zero. 

This bug corrected in patch to V3.1. 


IOSUBNPAG 
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-114 


;ACGO399 
;ACGO399 
;ACG0399 
; KDMO002 
-2 


; TMKOOO1 
3; TMKOOO1 
: TMKOOO1 
3; TMKOOO1 
; TMKOOO1 
; TMKOOO1 
; TMKO001 
; TMKOOO1 
; TMKOOO1 
; TMKOOO1 
;MLJ0101 
;ACGO0399 
;ACGO0399 
;ACGO0399 
;ACGO0399 
3;ACGO399 
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145 
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151 


MACRO LIBRARY CALLS 


$SADPDEF 
$CADEF 
S$CANDEF 
$CDRPDEF 
$CRBDEF 
S$DCDEF 
$DODBDEF 
$DDTDEF 
$DEVDEF 
$DYNDEF 
SEMBDEF 
$IDBDEF 
$IOCDEF 
$SIPLDEF 
$IRPDEF 
$JIBDEF 
$LCKDEF 
SMSCPDEF 
$PCBDEF 
$SPDTOEF 
SPRDEF 
$SPRVDEF 
$SBDEF . 
$SSDEF 
$TTYDEF 
$UBMDDEF 
$UCBDEF 
$VECDEF 


3-JUN-1984 11:33:30 
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; DEFINE 
;DEFINE 
;DEFINE 
*DEFINE 
; DEFINE 
;DEFINE 
;DEFINE 
;DEFINE 
;DEFINE 
; DEFINE 
;DEFINE 
; DEFINE 
;DEFINE 
;DEFINE 
; DEFINE 
;DEFINE 
; DEFINE 
;DEFINE 
;DEFINE 
;Define 
; DEFINE 
;DEFINE 
; Defin 
;DEFINE 
;DEFINE 
;Define 
; DEFINE 
;DEFINE 
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ADP OFFSETS 

CONDITIONAL ASSEMBLY PARAMETERS 
CANCEL I/O REASON CODES 

CLASS DRIVER 1/0 REQUEST PACKET 
CRB OFFSETS 

DEVICE CLASSES 

DDB OFFSETS 

DDT OFFSETS 

DEVICE CHARACTERISTICS FLAGS 
DYNAMIC POOL BLOCK TYPES 

EMB OFFSETS 

IDB OFFSETS 

ITOC$SEARCHxxx FLAGS 

INTERRUPT PRIORITY LEVELS 

IRP OFFSETS 

JIB OFFSETS 

LOCK MANAGER SYMBOLS 

MSCP STRUCTURES 

PCB OFFSETS 

POT offsets 

PROCESSOR REGISTERS 

PRIVILEGE BITS 
e system block offsets 

SYSTEM STATUS CODES 

TERMINAL WRITE PACKET OFFSETS 
UNIBUS Map Descriptor structure 
UCB OFFSETS 

CRB VECTOR OFFSETS 
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V03-033 CANCEL I/O ON CHANNEL 12-MAR-1982 17:12:23 DISK$VMSMASTER: [SYS.SRC]IOSUBNPAG. (3) 
-12 0000 172 -SBTTL CANCEL I/0 ON CHANNEL 
0000 173 ;+ 
0000 174 ; IOCS$CANCELIO ~- CANCEL I/0 ON CHANNEL 
0000 175 ; 
0000 176 ; THIS ROUTINE IS A DEVICE INDEPENDENT CANCEL I/0 ROUTINE THAT CONDITIONALLY 
0000 177 ; MARKS THE UCB SUCH THAT THE CURRENT I/0 REQUEST WILL BE CANCELED IF CONDITIONS 
0000 178 ; WARRANT SUCH A ACTION. 
~ 0000 179 ; 
0000 180 ; INPUTS: 
0000 181 ; 
0000 182 ; R2 = NEGATIVE OF THE CHANNEL NUMBER. 
0000 183 ; R3 = CURRENT IO PACKET. 
0000 184 ; R4 = PCB ADDRESS. 
0000 185 ; R5 = UCB ADDRESS. 
0000 186 ; 
0000 187 ; OUTPUTS: 
0000 188 ; 
0000 189 ; IF THE DEVICE IS BUSY, THE REQUEST IS FOR THE CURRENT PROCESS, AND 
0000 190 ; THE 1/0 WAS ISSUED FROM THE DESIGNATED CHANNEL, THEN THE CANCEL I/0 
0000 191 ; BIT IS SET IN THE CORRESPONDING UCB: 
0000 192 ; 
0000 193 ; R2, R3, R4, AND R5 ARE PRESERVED ACROSS CALL. 
0000 194 ;- : 
0000 195 
00000000 196 ~-PSECT WIONONPAGED 
0000 197 IOC$CANCELIO:: ; sCANCEL I/O ON CHANNEL 
11 64 A5 08 E1 0000 198 BBC #UCBS$V_BSY,UCB$W_STS(R5),10$ ;IF CLR, DEVICE NOT BUSY 
60 A4 Oc A3 D1 0005 199 CMPL IRP$L_PID(R3),PCB$L_PID(R4) ;PROCESS ID MATCH? 
OA 12 OOOA 200 BNEQ 10$ ;I1F NEQ NO 
28 A3 52 B1 OOOC 201 CMPW R2,1IRP$W_CHAN(R3) ; CHANNEL. NUMBER. MATCH 
04 12 0010 202 BNEQ 10$ ;I1F NEQ NO 


64 A5 08 AB 0012 203 BISW #UCB$M_CANCEL ,UCB$W_STS(R5) ;SET CANCEL PENDING 
05 0016 204 10$: RSB : 


IOSUBNPAG 


V03-033 


3;ACGO0399 
3; ACGO0399 
3; ACGO0399 
;ACGO0399 
3; ACGO399 
3; ACGO0399 
;ACGO0399 
;ACGO0399 
3;ACGO0399 
3; ACGO399 
;ACGO399 
;ACGO399 
3; ACGO399 
3; ACGO399 
3;ACGO399 
3; ACGO399 
3;ACGO399 
;ACGO399 
;ACGO0399 
;ACGO399 
;ACGO399 
;ACGO0399 
;ACGO399 
;ACGO399 
3; ACGO0399 
;ACGO0399 
3;ACGO0399 
; ACGO399 
;ACGO399 
;ACGO0399 
;ACGO0399 
;ACGO0399 
;ACGO399 
3; ACGO399 
3; ACGO0399 
;ACGO0399 
;ACGO399 
;ACGO399 
;ACGO399 
3;ACGO399 
;ACGO399 
;ACGO0399 
3; ACGO0399 
;ACG0399 


;ACGO399 
;ACGO399 
;ACGO0399 
;ACGO399 
;ACGO399 
;ACGO399 
;ACG0399 
;ACGO399 
;ACGO399 
;ACGO0399 
;ACGO399 


52 

58 02 

07 

53 58 A5 
58 01 


50 0088 C5 
oc BO 
1A 38 AS 17 


00100004 8F 
38 AS 


05 
00 38 AS 07 


10 

O06 64 AS 
FFBO’ 
FFAD’ 
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Handle Last Channel 


7C 
11 
DO 
9A 
DO 
16 
E0 
D3 
13 
E4 
E1 
30 


30 
05 


0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0019 
001C 
OO1E 
OO1E 
OO1E 
0022 
0025 
0025 
002A 
OO2E 
0031 
0034 
0039 
0039 
OO3F 
0041 
0041 
0043 
0048 
0048 
OO4A 
004D 
0050 
0053 
0054 
0054 


ODNOUBWN 


.10 


Deassign 12-MAR-1982 


.SBTTL Handle Last Channel 


+ 
IOC$LAST_CHAN - Last Channel 
ITOCSLAST_CHAN_AMBX ~- Last Assoc. 
Functional Description: 


Common functions done on 
driver’s cancel 


mailboxes). 


RO thru R3 destroyed. 


ee we ee we ee ee ee we wt we ee we ee we ee we we we et we we ee 


. ENABLE LSB 


IOC$LAST CHAN AMBX: : 
CLRQ = R2 
MOVZBL #CANSC_ AMBXDGN, R8 
BRB 10$ 


TOC$LAST_CHAN:: 


MOVL UCB$L_IRP(R5), R3 
MOVZBL #CANS$C_DASSGN, RB 
10$: MOVL UCB$L_DDT(RS5), RO 
SETIPL UCB$B_FIPL(R5) 
JSB @DDT$L_CANCEL(RO) 
SETIPL #IPL$ ASTDEL 
BBS #DEV$V_ALL, - 
UCB$L_DEVCHAR(R5) , 30$ 
BITL #DEV$M_TRM!DEV$M_ MBX, a 
UCB$L_DEVCHAR(RS) 
BEQL 204 
BBSC #DEV$V_OPR, - 
UCB$L_DEVCHAR(RS), 20$ 
20$: BBC #UCB$V_DELETEUCB, — 
UCB$L_STS(R5), 30$ 
BSBW IOC$CREDIT_UCB 
BSBW IOC$DELETE_UCB 
30$: RSB 


.DISABLE LSB 


3-JUN-1984 11:33:30 
17:12:23 


last channel 
I/O routine is called with an appropriate reason code 
(CAN$C_DASSGN for regular deassign, 
If after the cancel 


we we we ee we 


7 
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Deassign 


Deassign Specific 
MBX Channel 


Deassign Specific 


deassignment are handled. The 


or CAN$C_AMBXDGN for associated 


routine finished UCB$V_DELETEUCB is 


set, the UCB is credited and deleted. 
Inputs: 

RS UCB address 

R2 Channel index (LAST_CHAN only) 
Outputs: 


If appropriate, UCB is deallocated. 


Ciear unused cancel 
Set cance] 


inputs. 
reason code. 


Get active packet address. 
Set cancel reason code. 


Get DDT address. 
Raise to fork IPL. 
Call driver’s cancel 
Lower IPL. 
Branch if still 


I/O routine. 
allocated 


Is this a terminal, remote terminal 
or mailbox? 

Branch if not. 

Else, clear OPR bit. 

This is an implicit operator disable. 
Branch if UCB not to be deleted. 


Elise credit UCB quotas, 
and delete the UCB. 


IOSUBNPAG 
V03-033 


=T1 


53 58 AS 

1B 2A A3 07 
50 4C B3 

50 08 
00000000’ EF 
80 

80 0080 C5 
52 0088 C5 
10 B2 


0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0058 
005D 
0061 
0064 
OO6A 
006B 
0070 
0075 
0078 


276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 


302 
303 
304 
305 


~SBTTL 
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FILL DIAGNOSTIC BUFFER 
.+ 
; IOC$DIAGBUFILL - FILL DIAGNOSTIC BUFFER 
; THIS ROUTINE IS CALLED AT THE END OF AN I/0 OPERATION, BUT BEFORE RELEASING 
; THE I/O CHANNEL, TO FILL THE FINAL DEVICE PARAMETERS INTO AN INTERNAL DIAG- 
; NOSTIC BUFFER IF ONE IS SPECIFIED. 
; INPUTS: 
; R4 = ADDRESS OF DEVICE CSR REGISTER. 
; R5 = DEVICE UNIT UCB ADDRESS. 
; OUTPUTS: 
3 IF A DIAGNOSTIC BUFFER WAS SPECIFIED IN THE ORIGINAL REQUEST, THEN 
; THE COMPLETION TIME, FINAL ERROR COUNTERS, AND DEVICE REGISTERS ARE 
; FILLED INTO THE DIAGNOSTIC BUFFER. 
IOC$DIAGBUFILL: ;FILL DIAGNOSTIC BUFFER 
MOVL UCB$L_IRP(R5),R3 ;GET ADDRESS OF 1/0 PACKET 
BBC #IRP$V_DIAGBUF,IRP$W_STS(R3),10$ ;IF CLR, NO DIAGNOSTIC BUFFER 
MOVL @IRP$L_DIAGBUF(R3) ,RO ;GET ADDRESS OF INTERNAL BUFFER DATA AREA 
ADDL #8,RO0 ;POINT PAST START TIME 
MOVQ EXE$GQ_SYSTIME, (RO)+ ; INSERT COMPLETION TIME 
MOVZWL UCB$B_ERTCNT(RS),(RO)*+ ;INSERT FINAL ERROR COUNTERS 
MOVL UCB$L_DDT(R5S) ,R2 ;GET ADDRESS OF DDT 
JSB @DDT$L_REGDUMP(R2) sCALL DEVICE SPECIFIC REGISTER DUMP ROUTINE 
10$: RSB , 3 
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V03-033 RELEASE I/0 CHANNEL 12-MAR-1982 17:12:23 DISK$VMSMASTER:[SYS.SRC]IOSUBNPAG. (6) 
-1 0079 307 .SBTTL RELEASE 1/0 CHANNEL 
0079 308 ;+ 
0079 309 ; IOC$RELCHAN - RELEASE ALL I/O CHANNELS 
0079 310 ; IOC$RELSCHAN - RELEASE SECONDARY I/O CHANNEL 
0079 311; 
0079 312 ; THIS ROUTINE IS CALLED AT THE END OF AN I/O OPERATION TO RELEASE ALL 
0079 313 ; CHANNELS THE I/O WAS BEING PERFORMED ON. 
0079 314 ; 
0079 315 ; INPUTS: 
0079 316 ; 
0079 317 ; R5 = UCB ADDRESS OF DEVICE UNIT. 
0079 318 ; 
0079 319 ; OUTPUTS: 
0079 320 ; 
0079 321 ; THE CHANNELS ARE RELEASED AND AN ATTEMPT IS MADE TO REMOVE THE NEXT 
0079 322 ; WAITING DRIVER PROCESS FROM EACH CHANNEL QUEUE. IF A DRIVER PROCESS 
0079 323 ; IS WAITING, THEN THE CHANNEL IS ASSIGNED TO THAT DRIVER PROCESS AND 
0079 324 ; IT IS CALLED VIA A JSB TO ITS CHANNEL WAIT RETURN ADDRESS. WHEN THE 
0079 325 ; CALLED DRIVER PROCESS RETURNS, A RETURN IS MADE TO THE DRIVER PROCESS 
0079 326 ; THAT RELEASED THE CHANNEL. IF THERE IS NO DRIVER PROCESS WAITING FOR 
0079 327 ; THE CHANNEL, THEN THE CHANNEL STATUS IS SET TO IDLE. 
0079 328 ; 
0079 329 ; R3 AND R4 ARE PRESERVED ACROSS CALL. 
0079 330 ;- 
0079 331 
0079 332 .ENABL LSB 
0079 333 IOC$RELSCHAN:: ;RELEASE SECONDARY 1/0 CHANNEL 
50 24 AS DO 0079 334 MOVL UCB$L_CRB(R5),RO ;GET ADDRESS OF PRIMARY CRB 
50 20 AO DO OO7D 335 MOVL CRB$L_LINK(RO),RO ;GET ADDRESS OF SECONARY CRB 
10 11 0081 336 BRB 20$ , ; 
0083 337 IOC$RELCHAN:: ;RELEASE I/0 CHANNEL 
50 24 AS DO 0083 338 MOVL UCB$L_CRB(R5),RO ;GET ADDRESS OF PRIMARY CRB 
50 20 AO DO 0087 339 MOVL CRB$L_LINK(RO),RO ;GET ADDRESS OF SECONDARY CRB 
02 13 008B 340 BEQL 10$ ;IF EQL NONE 
04 10 OO8D 341 BSBB 20$ ;RELEASE SECONDARY CHANNEL 
50 24 AS DO OO8F 342 10$: MOVL UCB$L_CRB(RS),RO ;GET ADDRESS OF PRIMARY CRB 
25 O€ AO 00 E1 0093 343 20$: BBC #CRB$V_BSY,CRB$B_MASK(RO),30$ ;IF CLR, THEN CHANNEL NOT BUSY 
51 2C AO DO 0098 344 MOVL CRB$L_INTD+VEC$L_IDB(RO),R1 ;GET ADDRESS OF IDB 
04 Al 55 D1 oogc 345 CMPL R5,IDB$L_OWNER(R1) ;DRIVER PROCESS OWN CHANNEL? 
1B 12 OOAO 346 BNEQ 30$ ;IF NEQ NO 
52 00 BO OF OOA2 347 REMQUE @CRB$L_WQFL(RO),R2 ;GET ADDRESS OF NEXT DRIVER FORK BLOCK 
16 1D OOA6 348 BVS 40$ ;1F VS NO DRIVER PROCESS WAITING 
38 BB O0A8 349 PUSHR #AM<R3,R4,R5> ;SAVE CONTEXT OF CURRENT DRIVER PROCESS 
55 52 DO OOAA 350 MOVL R2,R5 ;COPY ADDRESS OF DRIVER PROCESS FORK BLOCK 
53 10 AS DO OOAD 351 MOVL | UCB$L_FR3(R5),R3 ;LOAD WAITING DRIVER PROCESS CONTEXT 
54 61 DO 0OOB1 352 MOVL IDB$L_CSR(R1),R4 >SET ASSIGNED CHANNEL CSR ADDRESS 
04 Al 55 DO O00B4 353 MOVL R5,I1DB$L_OWNER(R1) ;SET ADDRESS OF OWNER PROCESS UCB 
Oc BS 16 0OB8 354 JSB @UCBS$L_FPC(R5) ;CALL DRIVER AT CHANNEL WAIT RETURN ADDRESS 
38 BA OOBB 355 POPR #AM<R3,R4,R5> ;RESTORE PREVIOUS DRIVER PROCESS CONTEXT 
05 OOBD 356 30$: RSB ; 
04 Al D4 OOBE 357 40$: CLRL IDB$L_OWNER(R1)_ ;CLEAR -OWNER UNIT UCB ADDRESS 
OE AO 01 BA O00Ci 358. BICB #CRB$M_BSY,CRB$B_MASK(RO) ;CLEAR CHANNEL BUSY 
05 0O0C5 359 RSB - ; 


00cé6 360 -DSABL LSB 


ITOSUBNPAG 
V03-033 


-1 


08 


50 
50 


50 
50 


50 


50 


52 
51 
OE 
04 


10 


04 


24 AS 
20 AO 


24 AS 
20 AO 


- NONPAGED I/0 RELATED SUBROUTINES 3-JUN~1984 11:33:30 VAX-11 Macro VO03-01 Page 10 


REQUEST I/O CHANNEL 12-MAR-1982 17:12:23 DISK$SVMSMASTER: [SYS.SRC]IOSUBNPAG. (7) 
00c6é = 362 .SBTTL REQUEST 1/0 CHANNEL 
QOC6 =. 363 =; 
OOC6 364 ; IOC$REQPCHANH - REQUEST PRIMARY I/O CHANNEL HIGH PRIORITY 
O00C6 365 ; IOCS$REQSCHANH - REQUEST SECONDARY I/O CHANNEL HIGH PRIORITY 
O00C6 366 ; IOC$REQPCHANL - REQUEST PRIMARY I/O CHANNEL LOW PRIORITY 
OOC6 367 ; IOC$REQSCHANL - REQUEST SECONDARY 1/0 CHANNEL LOW PRIORITY 
OOC6 368 ; 
00C6 369 ; THESE ROUTINES ARE CALLED TO REQUEST AN I/O CHANNEL TO PERFORM AN 1/0 
00C6 370 ; OPERATION ON. 
00C6 371; 
00C6 372 ; INPUTS: 
00Cc6 = 373 ; 
00C6 374 ; R5 = UCB ADDRESS OF DEVICE UNIT. 
00C6 375 ; 04(SP) = RETURN ADDRESS OF CALLER’S CALLER. 
OOC6 376 ; 
00C6 377 ; OUTPUTS: 
00C6 =. 378 _; 
00C6 379 ; IF THE SPECIFIED I/O CHANNEL IS IDLE, THEN IT IS IMMEDIATELY 
00c6 380 ; ASSIGNED TO THE CURRENT DRIVER PROCESS. ELSE THE DRIVER PROCESS 
00C6 381 ; CONTEXT IS SAVED IN ITS FORK BLOCK, THE FORK BLOCK IS INSERTED 
00C6 382 ; IN THE CHANNEL WAIT QUEUE, AND A RETURN TO THE DRIVER PROCESS’ 
00cC6 383 ; CALLER IS EXECUTED. 
00C6 = 384 ; 
00C6 385 ; WHEN THE CHANNEL IS ASSIGNED, THE CSR ADDRESS OF THE ASSIGNED 
OOC6 386 ; CONTROLLER IS RETURNED TO THE CALLER IN REGISTER R4. 
O0OC6 387 ; 
0OC6 388 ; R3 IS PRESERVED ACROSS CALL. 
00c6 389 ; 
00c6é 390 
o0c6 391 .ENABL LSB 
O0C6 392 IOC$REQSCHANH: : ;REQUEST SECONDARY I/O CHANNEL HIGH PRIORITY 
DO O0C6 393 MOVL UCB$L_CRB(R5),RO ;GET ADDRESS OF PRIMARY CRB 
DO OOCA 394 MOVL CRB$L_LINK(RO) ,RO ;GET ADDRESS OF SECONDARY CRB 
11 OOCE 395 BRB 10$ : 
00D0 396 IOC$REQSCHANL: : ;REQUEST SECONDARY 1/0 CHANNEL LOW PRIORITY 
DO O0D0 397 MOVL UCB$L_CRB(R5) ,RO ;GET ADDRESS OF PRIMARY CRB 
D0 00D4 398 MOVL CRB$L_LINK(RO),RO ;GET ADDRESS OF SECONDARY CRB 
11. 00D8 399 BRB 20$ ; | 
OODA 400 IOC$REQPCHANH: : ;REQUEST PRIMARY I/O CHANNEL HIGH PRIORITY 
DO OODA 401 MOVL UCB$L_CRB(R5),RO ;GET ADDRESS OF PRIMARY CRB 
DO OODE 402 10S: MOVL RO,R2 ;SET ADDDRESS OF WAIT QUEUE LISTHEAD 
11 O0E1 403 BRB 30$ . 
O0E3 404 IOC$REQPCHANL: : ;REQUEST PRIMARY I/O CHANNEL LOW PRIORITY 
DO OO0EF3 405 MOVL UCB$L_CRB(R5),RO ;GET ADDRESS OF PRIMARY CRB 
DO OOE7 406 20S: MOVL CRB$L_WQBL(RO) ,R2 ;GET ADDRESS OF LAST ENTRY IN QUEUE 
DO OOEB 407 30S: MOVL CRB$L_INTD+VEC$L_IDB(RO),R1 ;GET ADDRESS OF 108 
E2 OOEF 408 BBSS #CRB$V_BSY,CRB$B_MASK(RO),40$ ;1F SET, THEN CHANNEL BUSY 
DO OOF4 409 MOVL IDB$L_CSR(R1),R4 ;SET ASSIGNED CHANNEL CSR ADDRESS 
DO OOF7 410 MOVL R5,1DB$L_OWNER(R1) ;SET OWNER UCB ADDRESS 
0S OOFB 411 RSB ; 
DO OOFC 412 40$: MOVL R3,UCB$L_FR3(R5) ;SAVE R3 IN FORK BLOCK 
BEDO 0100 413 POPL UCB$L_FPC(R5) ;SAVE CHANNEL WAIT RETURN ADDRESS 
OE 0104 414 INSQUE UCB$L_FQFL(R5),CRB$L_WQFL(R2) ;INSERT DRIVER PROCESS IN CHANNEL WAIT 
D1 0107 415 CMPL R5, IDBSL_OWNER(R1) ;CURRENT DRIVER PROCESS OWNER? 
12 010B 416 BNEQ 50$ ;1F NEQ, BRANCH TO RETURN 
31 O10D 417 BRW IOC$RELCHAN ;IF EQL BRW TO RELEASE CHANNELS 
0110 418 50$: 
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V03-033 REQUEST I/O CHANNEL 12-MAR-1982 17:12:23 DISKSVMSMASTER: [SYS.SRC]IOSUBNPAG. (7) 


05 0110 419 RSB ; 
0111 420 .DSABL LSB 


IOSUBNPAG 
V03-033 
-4 
53. AO 
55 IC 
70 
15 
38 A3 
;ROWO188 00000000‘ 
~1 
00000000‘ 
;ROWO292 00000000’ 
;ACGO0399 


AS 
A3 
A5 


50 


50 


GF 


63 
FF 


GF 
E3 


- NONPAGED I/O RELATED SUBROUTINES 
I/O Request Completion Processing for Cl 


9E 
DO 
D6 


EQ 


7D 


OE 


05 


16 
11 


ooo0oo0o°co 


oOoo00 


ooo0o0o 


ett at sss ss 


essa ss aes es as aa as at 


oo 


0111 
0111 
0111 
6111 
0111 
0111 
0115 
0115 
0115 
0119 
O11c 
011C 
O11F 
O11F 
O11F 
0123 
0123 
0123 
0123 
0129 
0129 
0129 
0129 
012B 
0130 
0133 
0134 
0134 
013A 


3-JUN-1984 11:33:30 
12-MAR~-1982 


17:12:23 
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DISK$SVMSMASTER: [SYS.SRC] IOSUBNPAG. (8) 


422 .SBTTL 1/0 Request Compietion Processing for Class Drivers 
423 
424 ;+ 
425 ; IOCSALTREQCOM - I/0 Request Complete Alternate Entry. 
426 ; 
427 ; This routine is entered when an I/0 operation is completed on one 
428 ; one of the devices using the disk or tape class drivers. 
429 ; The packet is inserted in the I/0 finish queue for 1/0 post 
430 ; processing. 
431 ; 
432 ; INPUTS: 
433 ; 
434 ; RO = First longword of I/O status 
435 ; R1 = Second longword of I/O status 
436 ; R5 = CDRP address 
437 ; 
438 ; OUTPUTS: 
439 ; 
440 ; The I/0 packet is inserted-in the I/0 Post Processing Queue, 
441 ; a Software interrupt is requested to initiate I/O Post 
442 ; Processing. 
443 ;7- 
444 
445 IOC$ALTREQCOM: : 
446 MOVAB CDRP$L_IOQFL(R5),R3 ; R3 => IRP section of CDRP. This is 
447 ; for compatibility with rest of QIO 
448 ; logic. 
449 MOVL IRP$L_UCB(R3) ,R5 ; RS => UCB. 
450 INCL UCB$L_OPCNT(RS5) ; Increment operations completed 
451 
452 BLBC RO,20$ ; LBC implies 1/0 error, so goto cali 
453 ; MOUNT VERIFICATION just in case. 
454 10$: 
455 MOVQ RO, IRPS$L_MEDIA(R3) ; Save final I/O status in IRP. 
456 
457 .IF DF CA$ _MEASURE_IOT 
458 
Loi JSB GAPMSS$END_10 ; Insert end of 1/0 transaction message 
460 
461 . ENDC 
462 
463 INSQUE (R3),@LAIOC$GL_PSBL ; Insert packet in POST process queue 
464 SOFTINT #IPL$_IOPOST ; Initiate SOFTWARE INTERRUPT 
465 RSB 
466 20$: 
.1 JSB GAEXESMOUNTVER ; If LBC, call MOUNT VERIFICATION. 
2 BRB 10$ ; Go back to normal flow. 
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V03-033 T/O REQUEST COMPLETION PROCESSING 12-MAR-1982 17:12:23 DISK$VMSMASTER: [SYS.SRC]IOSUBNPAG. (9) 
-3 013C 470 -SBTTL 1/0 REQUEST COMPLETION PROCESSING 
013C 471 ;+ 
013C 472 ITOC$REQCOM - I/O REQUEST COMPLETE 
013C 473 
013C 474 THIS ROUTINE IS ENTERED WHEN AN 1/0 OPERATION IS COMPLETED ON A 
013C 475 DEVICE UNIT. THE FINAL I/O STATUS IS STORED IN THE ASSOCIATED 1/0 
013C 476 PACKET AND THE PACKET IS INSERTED IN THE I/O FINISH QUEUE FOR 
013C 477 I/O POST PROCESSING. DEVICE UNIT BUSY IS CLEARED AND AN ATTEMPT 
013C 478 IS MADE TO START ANOTHER I/O REQUEST ON THE DEVICE UNIT. 
013C 479 
013C 480 IF THE I/O REQUEST COMPLETED WITH AN ERROR, AND THE DEVICE IS 
013C 481 A DISK, THEN BRANCH TO THE MOUNT VERIFICATION CODE, WHICH WILL 
013C 482 DETERMINE IF THE SITUATION REQUIRES MOUNT VERIFICATION. 
013C 483 
013C 484 IF MOUNT VERIFICATION IS IN PROGRESS, NO FURTHER I/O REQUESTS WILL 
013C 485 BE INITIATED. THIS HAS A SIDE EFFECT OF KEEPING THE ‘BSY’ BIT IN 
013C 486 WHATEVER STATE IT IS CURRENTLY IN. FOR CONVENTIONAL DISK DRIVERS, 


013C 487 ; THE BSY BIT WILL BE LEFT ON, WHICH WILL BLOCK $QIO FROM INITIATING 


013C 488 ANY NEW I/O ON THE DEVICE. FOR THE DISK CLASS DRIVER, THE BUSY 
013C 489 BIT WILL BE OFF, WHICH WILL ALLOW $QIO TO INITIATE NEW I/O. 
013C 490 
013C 491 INPUTS: 
013C 492 
013C 493 RO = FIRST LONGWORD OF I/0 STATUS. 
013C 494 R1 = SECOND LONGWORD OF 1/0 STATUS. 
013C 495 RS = UCB ADDRESS OF DEVICE UNIT. 
013C 496 
013C 497 OUTPUTS: 
013C 498 
013C 499 THE 1/0 PACKET IS INSERTED IN THE I/O POST PROCESSING QUEUE 
013C 500 AND DEVICE UNIT BUSY IS CLEARED. A SOFTWARE INTERRUPT IS 
013C 501 REQUESTED TO INITIATE I/O POST PROCESSING. 
013C 502 ;- 
013C 503 
013C 504 -ENABL LSB 
013C 505 IOC$REQCOM: : 31/0 DONE PROCESSING 
1C 64 AS 02 ES 013C 506 BBCC #UCBS$V_ERLOGIP,UCB$w_STS(R5),10$ ;1F CLR, ERROR LOG NOT IN PROGRESS 
52 0094 C5 DO 0141 507 MOVL UCB$L_EMB(R5) ,R2 ;GET ADDRESS OF ERROR MESSAGE BUFFER 
1A A2 64 AS BO 0146 508 MOVW UCB$wW_STS(R5) ,EMB$w_DV_STS(R2) ;INSERT FINAL DEVICE STATUS 
0080 C5 BO 014B 509 MOVW UCB$B_ERTCNT(RS),EMB$B_DV_ERTCNT(R2) ;INSERT FINAL ERROR COUNTERS 
10 A2 014F 
12 A? 50 7D 0151 510 MOVQ RO,EMB$Q DV_IOSB(R2) ; INSERT FINAL I/0 STATUS 
50 DD 0155 511 PUSHL RO ; SAVE RO 
FEA6’ 30 0157 512 BSBW ERL$RELEASEMB ;RELEASE ERROR MESSAGE BUFFER 
50 8EDO O15A 513 POPL RO ;sRESTORE RO 
53 58 AS DO O15D 514 10$: MOVL UCB$L_IRP(R5) ,R3 ;GET ADDRESS OF 1/0 PACKET 
70 AS) D6 0161 515 INCL UCB$L_OPCNT(R5) ; INCREMENT OPERATIONS COMPLETED 
2A 50 E9 0164 516 BLBC RO,DISKCHK ;IF 1/0 ERROR, CHECK FOR DISK DEVICE 
0167 517 ; 
0167 518 ; DO NOT SAVE THE I/O STATUS IN THE IRP UNTIL IT HAS BEEN DECIDED THAT 
0167 519 ; MOUNT VERIFICATION IS NOT NECESSARY. THIS IS TO AVOID OVERWRITING THE 
0167 520 ;. PHYSICAL DISK ADDRESS STORED IN THE IRP AT OFFSET IRP$L_MEDIA. 
0167. 521 ; 
38 A3 50 7D 0167 522 20$: MOVQ RO, IRPSL_MEDIA(R3) ;STORE FINAL I/O STATUS 
0168 523 


016B 524 -IF DF CA$ MEASURE_IOT 
0168 525 


ITOSUBNPAG 
V03-033 


;WMCO002 
-4 


;WMCOOO02 
;WMCOO0O02 
;WMCOO002 
;WMCO002 
;wMCO002 
;RLRMAPSP 
;RLRMAPSP 
;RLRMAPSP 
;RLRMAPSP 
;ROWO 188 
;WMCO002 
;WMCOOO02 
;WMCOO002 
;WMCOO0O02 
;WMCO002 
;WMCO002 
;WMCO002 
sWMCO002 
;WMCO002 
;WMCO002 
;WMCOOO02 
;WMCOOO02 
;wMCOO0O02 
;WMCOOO02 
;WMCOOO2 
;wMCOO0O02 
;WMCOO02 
;WMCOOO02 
;WMCOO02 
;WMCOOO2 
;WMCOO002 


00000000’ EF 
36 


63 
00000000‘FF 


OE 

2F 64 AS 
53 4C BS 
4c 

0100 8F 

64 A5 


FEF2 


00 64 AS 
00000000’ GF 
BE 


00000000 ‘GF 
C2 


00000000’ GF 
B7 


~- NONPAGED I/O RELATED 
I/O REQUEST COMPLETION 


DS 
12 


OE 


91 


12 
E5 


E5 


E5 


91 


12 
ES 


0168 
0171 
0173 
0173 
0173 
0173 
0175 
017A 
017D 
O17F 
0182 
0186 
0188 
018C 
018E 
018E 
0191 
0191 
0191 
0191 
0191 
0191 
0191 
0193 
0195 
0197 
0199 
019C 
O19E 
O1A1 
O1A7 
O1A9 
01A9 
01A9 
01A9 
O1AF 
01B1 
01B1 
0181 
01B1 
01B1 
01B1 
01B1 
01B1 
01B1 
01B3 
01B6 
01B8 
O1BA 
O1BC 
O1BE 
01C1 


01C3 


01C9 
01CB 
01CB 


526 
527 
528 
529 
530 
531 


532 
533 


538 
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PROCESSING 12-MAR-1982 17:12:23 DISK$VMSMASTER: [(SYS.SRC]IOSUBNPAG. (9) 
TSTL LAPMS$GL_IOPFMPDB ;DATA COLLECTION ENABLED? 
BNEQ DO_PMS ;BRANCH IF YES 
-ENDC 
PMSEND: INSQUE (R3),@LAIOC$GL_PSBL ; INSERT PACKET IN POST PROCESS QUEUE 
SOFTINT #IPL$_IOPOST ; INITIATE SOFTWARE INTERRUPT 
BBS #UCB$V_MNTVERIP, - ;BRANCH IF MOUNT VERIFICATION IN PROGRESS 
UCB$W_STS(R5),MNTVERPNDCHK ; (NOTE THIS LEAVES ‘BSY’ AS IS) 
NXTIRP: REMQUE @UCB$L_IOQFL(R5),R3 ;REMOVE I/O PACKET FROM DEVICE UNIT QUEUE 
BVC LOC$INITIATE ;IF VC INITIATE NEXT FUNCTION 
BICW #UCB$M_BSY,UCB$W_STS(R5). ;CLEAR UNIT BUSY 
RELEASE: ;RELEASE ALL CHANNELS 
BRW IOC$RELCHAN ; 
IF THIS IS A DISK DEVICE, CALL THE MOUNT VERIFICATION ROUTINE 
; TO DETERMINE IF MOUNT VERIFICATION IS NECESSARY. IF NOT, CONTROL 
; WILL RETURN, AND THE REQUEST WILL BE COMPLETED IN THE NORMAL MANNER. 
DISKCHK: 
CMPB #DC$_DISK,- ;IS THIS DEVICE A DISK? 
UCB$B_DEVCLASS(R5) ; 
BNEQ 20$ ;BRANCH IF NOT 
BBCC #UCB$V_MNTVERPND, - ;CHECK FOR MOUNT VERIFICATION PENDING 
UCB$L_STS(R5) ,30$ ;IF NOT, JUST ENTER MOUNT VERIFICATION. 
BBCC #UCB$V_MNTVERIP, - ;CLEAR IN-PROGRESS BIT BEFORE CALL 
UCB$L_STS(R5) ,30$ ; SO IT WILL REALLY START 
30$: - JSB GAEXE$MOUNTVER >START MOUNT VERIFICATION 
BRB 20$ ;COMPLETE I/O REQUEST 
.IF DF CA$ _MEASURE_IOT 
DO PMS: JSB GAPMS$END_IO ; INSERT END OF 1/0 TRANSACTION MESSAGE 
BRB PMSEND ;REJOIN COMMON CODE 
.ENDC 
) THE MOUNT-VERIFICATION-PENDING BIT IS USED:TO INDICATE THAT A DISK SHOULD GO 
; INTO MOUNT VERIFICATION AS SOON AS THE CURRENT I/O IS DONE. THIS IS INTENDED 
; FOR USE IN A CLUSTER TO STALL I/0 WHEN QUORUM IS LOST. 
MNTVERPNDCHK: 
BBCC #UCB$V_MNTVERPND, - ;CHECK FOR MOUNT VERIFICATION PENDING 
UCB$L_STS(R5),RELEASE ;IF NOT, JUST CLEAN UP 
CMPB #DC$_DISK,- ;IS THIS DEVICE A DISK? 
UCB$B_DEVCLASS(R5) ; 
BNEQ RELEASE ;BRANCH IF NOT 
BBCC #UCB$V_MNTVERIP, -~ ;CLEAR IN-PROGRESS BIT BEFORE CALL 
UCB$L_STS(R5) ,40$ 
40$: CLRL R3 ;NO IRP PASSED TO MOUNT VERIFICATION 
JSB GAEXESMOUNTVER ;TRY TO START MOUNT VERIFICATION 
BRB NXTIRP ;WASN‘T NECESSARY 
.DSABL LSB 


IOSUBNPAG - NONPAGED I/O RELATED SUBROUTINES 3-JUN-1984 11:33:30 VAX-11 Macro VO3-01 Page 15 


V03-033 MOUNT VERIFICATION HELPER 12-MAR-1982 17:12:23 DISKSVMSMASTER: [SYS.SRC]IOSUBNPAG(10) 
-11 01CB 560 .-SBTTL MOUNT VERIFICATION HELPER 

0O1CB 561 ;++ 

01CB 562 ; IOC$MNTVER - Assist driver with mount verification. 

01CB 563 ; 

01CB 564 ; This routine is called by EXE$MOUNTVER to perform some driver-specific 


01CB 565 ; actions necessary for mount verification. This routine is used by non- 
01CB 566 ; CLASS drivers, and is called by default if EXE$MOUNTVER finds the address 
01CB 567 ; of IOC$RETURN in DDTS$L_MNTVER. 


01CB 568 

01CB 569 Inputs: 

01CB 570 

01CB 571 R3 = IRP address or O 
01CB 572 R5 = UCB address 

01CB 573 

01CB 574 Outputs: 

01CB 575 

01CB 576 None. 


01CB 577 


01CB 578 Side effects: 


we Oe ee we ee wh wt ee wk we ee we we te we ee we 


01CB 579 
01CB 580 If R38 contains an IRP address, the IRP will be queued to the 
01CB 581 head of the UCB’s IRP work queue. If R3 contains is zero, then 
01CB 582 remove the IRP from the head of the UCB’s work queue and attempt 
01CB 583 to initiate the 1/0. 
01CB 584 ;-- 
01CB 585 
01CB 586 IOCS$MNTVER:: ;Driver-specific mount verification code 

53 DS O1CB 587 TSTL R3 ;Check IRP address 

B3 13. O1CD 588 BEQL NXTIRP ;Branch if none 

63 OE O1CF 589 INSQUE IRP$L_IOQFL(R3),- ;Requeue the IRP 

4C A5 01D1 590 UCB$L_IOQFL(R5) ; 


05 0103 591 RSB ;Return 


LOSUBNPAG 
V03-033 
- 
58 AS 


- 


78 AS 2C 
0048 
64 

OB 2A A3 
50 4c 


00000000’ 


50 0088 
00 


;ROWO188 00000000’ 


53 


GF 


A3 
8F 
A5 
07 
B3 
EF 
60 
C5 
BO 
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INITIATE I/O FUNCTION ON DEVICE 


DO 


7D 
AA 


E1 


7D 


DO 
17 


01D4 
0104 
01D4 
01D4 
01D4 
01D4 
01D4 
01D4 
01D4 
01D4 
01D4 
01D4 
01D4 
01D4 
0104 
01D4 
01D4 
0104 
01D4 
01D4 
01D4 
01D4 
01D4 
01D8 
01D8 
0108 
01D8 
01DE 
O1DE 
O01DE 
O1DE 
01E3 
01E7 
O1E9 
O1EE 
O1F2 
O1F8 
O1F9 
O1FE 


593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 

-1 
620 
621 
622 
623 
624 
625 


626 
627 


628 
629 


-SBTTL 


+ 


12-MAR-1982 17:12:23 DISKSVMSMASTER: [SYS.SRC]IOSUBNPAG(11) 


INITIATE I/O FUNCTION ON DEVICE 


IOC$INITIATE ~- INITIATE NEXT FUNCTION ON DEVICE 


THIS ROUTINE IS CALLED TO INITIATE THE NEXT FUNCTION ON A DEVICE BY CLEARING 


STATUS BITS, 


SETTING THE OPERATION START TIME IF A DIAGNOSTIC BUFFER IS 


SPECIFIED, AND CALLING THE DRIVER AT ITS START I/O ENTRY POINT. 


INPUTS: 


RS 


OUTPUTS: 


ADDRESS OF I/0 REQUEST PACKET. 
DEVICE UNIT UCB ADDRESS. 


CANCEL I/0, POWERFAIL, AND TIME OUT STATUS BITS ARE CLEARED, THE 
CURRENT SYSTEM TIME IS FILLED INTO THE INTERNAL DIAGNOSTIC BUFFER 
IF ONE IS SPECIFIED, AND THE DRIVER IS CALLED AT ITS START I/0 ENTRY 


POINT. 


’ 
: 
: 
> 
‘ 
’ 
> 
> 
; 
: 
‘7 
’ 
; R3 
; 
’ 
; 
’ 
‘ 
+] 
9 
. 
> 
’ 
’ 


IOCSINITIATE:: 
MOVL 


.IF DF 
JSB 
.ENDC 


MOVQ 
BICW 


BBC 
MOVL 
MOVQ 


10$: MOVL 
JMP 


sINITIATE I/O FUNCTION 
R3,UCB$L_IRP(R5) ;SAVE I/O PACKET ADDRESS 


CA$_MEASURE_IOT 


GAPMS$START_I10 ; INSERT START OF I/O TRANSACTION MESSAGE 


IRP$L_SVAPTE(R3) ,UCB$L_SVAPTE(R5) ;COPY TRANSFER PARAMETERS 
#UCBS$M_CANCEL!UCB$M_TIMOUT,UCB$W_STS(R5) ;CLEAR CANCEL AND TIME OUT 


#IRP$V_DIAGBUF,IRPSW_STS(R3),10$ ;1F CLR, NO DIAGNOSTIC BUFFER 


@IRP$L_ DIAGBUF(R3) ,RO .~GET ADDRESS OF DIAGNOSTIC BUFFER DATA AREA 
EXE$GQ_SYSTIME, (RO) ; INSERT I/0 OPERATION START TIME 
UCB$L_DDT(RS),RO ;GET ADDRESS OF DRIVER DISPATCH TABLE 


@DDT$L_START(RO) 3; START I/O OPERATION 
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3-JUN-1984 
12-MAR- 1982 


.-SBTTL 
+ 


ALLOCATE BUFFERED DATA PATH CODE - 


INPUT: 
R5 => UCB. 


IOCSREQDATAPNW - Entrypoint to call 
unavailable data path. 
INPUT: 
R5 => UCB 


is used as the source of 


ee we ee we we we we we we we we we we we ee ee te we we we we we 


11:33:30 
17:12:23 


IOC$REQDATAP - Entrypoint (called from traditiona) 
wishes to be queued (using UCB fork block) 
is available at the time of the call. 
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Allocate Buffered Data Path 


drivers) where caller 
if no buffered data path 


when caller does not want to wait for 


IOC$REQDATAPUDA - Entrypoint. (called from UDA port driver) where CDRP 
information about the request and where 
the caller does not want to wait for unavailable datapath. 


INPUT: 
R4 => PDT 
R5 => CDRP 
IOCS$REQDATAP: : 
BSBB IOCSREQDATAPNW 3; Try to alloc. and get control after. 
BLBS RO,10$ ; LBS implies allocation success. 
MOVQ R3,UCB$L_FR3(R5) ; Save driver context in UCB fork block. 
POPL UCB$L_FPC(RS5) ; Save caller’s return point. 
INSQUE UCB$L_FQFL(R5),- ; Queue fork block to resource wait queue. 
@ADP$L_DPQBL(R1) ; Assumes IOC$ALODATAP saves R1=>ADP. 
10$: RSB ; Return to caller or caller’s caller. 
IOCS$REQDATAPNW: : 
MOVL UCB$L_CRB(R5),RO ; RO=>CRB. 
MOVL. CRB$L_INTD+VEC$L_ADP(RO),R1 ; R1I=>ADP (pass to IOC$ALODATAP) 
MOVAB CRB$L_INTD+VEC$W_MAPREG(RO),R2 ; R2=>UBMD u ¢ 
BRB IOC$ALODATAP ; NOWAIT, RSB from IOC$ALODATAP 
3 returns to our caller. 
IOC$REQDATAPUDA:: 
MOVL PDT$L_ADP(R4),R1 ; R1=>ADP (pass to IOCS$ALODATAP) 
MOVAB CDRP$L_UBARSRCE(R5),R2 ; R2=>UBMD " 
BSBB IOCZALODATAP Call to allocate a data path. 
BLBS RO,20$ LBS means: we got one. 
BLBC LBC means, user buffer is on an 


CDRP$W_BOFF(RS) , 20$ 


can continue processing. 
datapath. 


we we we we 


CPUDISP <<780,10$>,- ; 


even byte address so we can use 
the Direct Data Path. 


Here we have a transfer to a user buffer located at an odd byte address. 
On those processors which support Byte Offset on the Direct Datapath, we 
On other processors, we must wait for a buffered 


On 11-780 we wait. 
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7D 
BEDO 
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OE 


05 
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0233 
0233 
0233 
0233 
0233 
024D 
024D 
0251 
0255 
0258 
025A 
O025C 
025C 
025D 
025D 


20$: 


30$: 


MOVQ R 
POPL Cc 
INCW @ 
INSQUE C 


@ 
RSB 


BUG_CHECK 


3-JUN-1984 11 
12-MAR-1982 17: 


<750,20$>,- 
<730,20$>, 
<790,10$>,- 


<8SS,10$> 
<8NN, 10$> 
<UV1,30$>> 


3,CDRP$L_FR3(R5) 
DRP$L_FPC(R5) 
CDRP$L_RWCPTR(RS) 
DRP$L_FQFL(R5),- 
ADP$L_DPQBL(R1) 


IVBYTEALGN, FATAL 


ee we we we we we 


we we we we we 


2:33:30 
12:23 


On 
On 
On 
On 
On 
On 
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11-750 we continue. 
11-730 we continue. 
11-790 we wait. 
SCORPIO we wait. 
NAUTILUS we wait. 
MicroVAX we bugcheck. 


Save driver context in CDRP fork block. 
Save caller’s return point. 

Increment RWAITCNT. 

Queue fork block to resource wait queue. 
Assumes IOC$ALODATAP saves R1=>ADP. 


Return to caller or caller’s caller. 
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-9 0261 681 ; IOC$ALODATAP - Common subroutine called by above routines to allocate 
0261 682 ; a UNIBUS buffered datapath. 
0261 683 ; 
0261 684 ; INPUTS: 
0261 685 ; R1 => ADP wherein the datapath allocation bit map is stored. 
0261 686 ; R2 => UBA mapping descriptor in user’s data structure. 
0261 687 ; 
0261 688 ; OUTPUTS: 
0261 689. ; RO LBS - implies allocation success 
0261 630 ; datapath field in R2 => UBA mapping descriptor is set to the 
0261 691 ; number of the datapath allocated. 
0261 692 ; appropriate bit in datapath allocation bit map is cleared. 
0261 693 ; RO LBC - implies allocation failure. 
0261 694 ; 
0261 695 
0261 696 IOC$ALODATAP: 
07 EQ 0261 697 BBS #VEC$V_PATHLOCK,— ; If this user has a permanently allocated 
17 03 A2 0263 698 UBMD$B_DATAPATH(R2),10$ ; datapath, branch around to success. 
0266 699 
0266 700 ASSUME ADP$C_NUMDATAP EQ 16 
00 EA 0266 701 FFS #0,- ; Find first available datapath, 
10 0268 702 #ADP$C_NUMDATAP, - ; according to bit map. Note failure 
60 Al 0269 703 ADP$W_DPBITMAP(R1),- ; leaves RO with the value "16", an 
50 026B 704 RO 3; even number with the low bit clear. 
12 13. O26C 705 BEQL 20$ ; EQL implies failure. 
O26E 706 
50 FO O26E 707 INSV RO,- ; Upon success, RO has number of the 
0270 708 #VEC$V_DATAPATH, - 7 available datapath to allocate. 
05 00 0270 709 #VEC$S DATAPATH,~— ; So we update the user’s datapath 
03 A2 0272 710 UBMD$B_DATAPATH(R2) ; descriptor pointed at by R2. 
0274 711 
04 60 Al 50 E4 0274 712 BBSC RO,ADP$W_DPBITMAP(R1),10$; And we update the bit map. 
0279 713 BUG CHECK INCONSTATE ; We shouldn’t be here obviously. 
027D 714 
50 01 DO 027D 715 10$:; MOVL SA#SS$_ NORMAL ,RO ; Indicate allocation success. 


05 0280 716 20$: RSB ; And we return to our caller. 
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0281 718 -SBTTL Release Buffered Data Path 
0281 719 ; 
0281 720 ; RELEASE BUFFERED DATA PATH CODE - 
0281 721 =; 
0281 722 ; IOC$RELDATAPUDA - Entry point called from UDA port driver in response 
0281 723 =; to an UNMAP call. Here the data as to the buffered data path 
0281 724 ; is in the CDRP. 
0281 725 ; 
0281 726 ; INPUTS: 
0281 -lo; R4 => PDT 
0281 727 =; RS => CDRP 
0281 728 ; 
0281 729 ; IOCGRELDATAP - Entry point called from traditional drivers to release 
0281 730 ; the buffered datapath described in CRB$L_INTD+VEC$B_ DATAPATH. 
0281 731~=; 
0281 732 ; INPUTS: 
0281 733 =; R5 => UCB 
0281 734 ; 
0281 735 ; OUTPUTS: 
0281 736 ; Datapath re-allocated (if any waiters). RO, R1, and R2 modified. 
0281 737 =; Since calls to IOC$REQDATAPUDA are NOWAIT, fork blocks dequeued 
0281 738 =; here from ADP$L_DPQFL are guaranteed to be UCB’s. 
0281 739 ; 
0281 740 
0281 741 IOC$RELDATAPUDA: : 
DO 0281 2a MOVL POT$L_ADP(R4),R1 ; R1 => ADP. 
9E 0286 ~2 MOVAB CORP$L_UBARSRCE(R5),R2 ; R2 => UBMD. 
11 O28A .3 BRB RELDATAP_COMMON 
0Q28C -4 IOCGRELDATAP:: 
DO O28C 5 MOVL UCB$L_CRB(R5S),RO ; RO => CRB. 
9E 0290 6 MOVAB CRB$L_INTD+VECSW_MAPREG(RO),R2 ; R2 => UBMD. 
DO 0294 ot MOVL CRB$L_INTD+VEC$L_ADP(RO),RI1 ; Ri => ADP. 
0298 -8 RELDATAP_COMMON: 
98 0298 751 CVTBL UBMD$B_DATAPATH(R2) ,RO ; Get datapath designator. 
15 0O29C 752 BLEQ 10$ ; If LSS permanent assignment. 
O29E 753 ; If EQL we had NO datapath to 
O29E 754 ; release. 
FO O29E 755 INSV #0,- ; Zero datapath number. 
O2A0 756 ¥#VECS$V_DATAPATH, #VEC$S DATAPATH,— 
O2A2 757 UBMD$B_DATAPATH(R2) 
EF O2A4 1 EXTZV #VEC$V_DATAPATH, -— ; Extract datapath number. 
O2A6 a2 #VEC$S DATAPATH,RO,R2 : 
OF O2A9 3 REMQUE @ADP$L_DPQFL(R1),RO ; RO => next driver fork block 
1D O2AD 4 BVS 20$ ; If VS no driver process waiting 
O2AF 5 
7D O2AF 6 MOVQ R3,-(SP) ; Save R3, R4, R5 
DD 02B2 7 PUSHL R5 
DO 02B4 8 MOVL RO,R5 ; RS => driver fork block. 
91 02B7 .9 CMPB #DYN$C_UCB,- ; See if we dequeued a UCB or a CDRP. 
02B9 .10 UCB$B_TYPE(RS) 
12 O2B8 11 BNEQ 30$ ; NEQ implies a CDRP. 
O2BD 12 
02BD -13 =; Here we have R5 => UCB. 
02BD 14 
DO O2BD 15 MOVL UCB$L_CRB(R5),R1 ; Rl => CRB. 
02C1 16 
FO 0O2C1 17 INSV R205 ; Store assigned datapath ¢ 
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#VEC$V DATAPATH, -— : in CRB. 


#VEC$S_DATAPATH, - 


CRB$L_INTD+VEC$B_ DATAPATH(R1) 


UCB$L_FR3(R5),R3 
@UCB$L_FPC(R5) ; 


RS ; 
(SP)+,R3 ; 


R2,- 
ADP$W_DPBITMAP(R1),10$_ ; 


BUG _ CHECK INCONSTATE ; 


RSB < 


; Here we have R5 => CDRP. 


30$: 


INSV 


JSB 


BRB 


R2,- : 
#VECS$V_DATAPATH, — : 
#VEC$S DATAPATH, — 


Restore driver context. 
Call back waiting driver. 


Restore deallocator’s R5,R4,R3 
Return to deallocator. 


Set datapath bit and exit 
Inconsistent state. 


Store assigned datapath # 
in CDRP field. 


CDRP$L_UBARSRCE+UBMD$B_DATAPATH(RS) 


SCSSRESUMEWAITR 


5$ ; 


Resume waiting thread and any backed 
up IRP’s. 

Branch back to resume deallocator’s 
thread. 


ITOSUBNPAG 
V03-033 


-20 


10 AS 


OF 
28 
OC 


34 


25 


50 
BS 
AS 


65 
B2 


- NONPAGED I/O RELATED SUBROUTINES 
REQUEST AND ALLOCATE UNIBUS MAP REGISTER 


10 


E8 
Bo 


BEDO 
OE 


05 


O2ED 
O2ED 
O2ED 
O2ED 
O2ED 
O2ED 
O2ED 
O2ED 
O2ED 
O2ED 
O2ED 
O2ED 
O2ED 
O2ED 
O2ED 
O2ED 
O2ED 
O2ED 
O2ED 
O2ED 
O2ED 
O2ED 
O2ED 
O2ED 
O2ED 
O2ED 
O2ED 
O2EF 
O2EF 
O2EF 
O2EF 
O2EF 
O2EF 
O2F2 
O2F6 
O2F9 
O2F9 
O2FD 
O2FF 
0301 


778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 


12-MAR-1982 


3-JUN-1984 11:33:30 VAX-11 Macro V0O3-01 Page 22 


17:12:23 DISKSVMSMASTER: [SYS.SRC]IOSUBNPAG(15) 


.SBTTL REQUEST AND ALLOCATE UNIBUS MAP REGISTERS FOR CLASS DRIVER 


- REQUEST AND ALLOCATE UNIBUS MAP REGISTERS FOR CLASS DRIVER 


Allocate UBA map registers for class drive 
Cali to allocate map registers if availabl 
Returns R2 => ADP. 

we were successful .in the allocation 
Branch around if successful. 

Save driver process context 

One more CDRP, on this UCB, awaiting 


Save map register wait return address 


Insert process in map register wait queue 


3+ 
3; IOC$SREQMAPUDA 
; THIS ROUTINE IS CALLED TO ALLOCATE UBA MAP REGISTERS AND TO MARK THE ALLOCATION 
; IN THE UBA MAP REGISTER ALLOCATION DATA STRUCTURES. 
; INPUTS: 
; R4 = ADDRESS OF PORT DESCRIPTOR TABLE. . 
: R5 = ADDRESS OF CLASS DRIVER REQUEST PACKET (CDRP). 
; OUTPUTS: 
; IF MAP REGISTERS ARE ALLOCATED FOR THE CORP, THE APPROPRIATE FIELDS 
; IN THE CDRP ARE MODIFIED TO INDICATE WHICH REGISTERS, AND THE NUMBER 
; OF REGISTERS THAT HAVE BEEN ALLOCATED. ALSO THE ALLOCATION DATA 
; STRUCTURE IN THE ADP IS MODIFIED. 
: IF MAP REGISTERS CANNOT BE ALLOCATED AT THIS TIME, THE CDRP IS 
; QUEUED ONTO THE RESOURCE WAIT LIST AND THE UCB$W_RWAITCNT IS 
3 INCREMENTED. 
ITOC$REQMAPUDA: : 3 

BSBB TOCSALOMAPUDA : 
; If here, low bit of RO tells us whether 
3 attempt. 

BLBS ROQ,10$ 3 

MOVQ R3,CDRP$L_FR3(R5) : 

INCW @CDRP$L_RWCPTR(R5) 3 

: resources. 
POPL CDRP$L_FPC(R5) ; 
INSQUE CDRP$L_FQFL(R5),- 
@ADP$L_ MRQBL (R2) : 

10$: RSB ; 
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TOCSREQMAPREG: : 


10$: 
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.SBTTL REQUEST UNIBUS MAP REGISTERS 


IOCSREQMAPREG ~ REQUEST UNIBUS MAP REGISTERS 


THIS ROUTINE IS CALLED TO REQUEST UNIBUS MAP REGISTERS TO PERFORM AN 
I/O TRANSFER. 


INPUTS: 


RS = UCB ADDRESS OF DEVICE UNIT. 
O4(SP) = RETURN ADDRESS OF CALLER’S CALLER. 


IT IS ASSUMED THAT THE CALLER OWNS THE [/0 CHANNEL ON WHICH THE 
TRANSFER IS TO OCCUR ON. 


OUTPUTS: 


IF MAP REGISTERS HAVE BEEN PERMANENTLY ASSIGNED TO THE ASSOCIATED 
T/O CHANNEL, THEN CONTROL IS IMMEDIATELY RETURNED TO THE CALLER. 
ELSE AN ATTEMPT IS MADE TO ALLOCATE THE REQUESTED NUMBER OF MAP REG- 
ISTERS. IF SUFFICIENT CONTIGUOUS MAP REGISTERS ARE FOUND, THEN THEY 
ARE ASSIGNED TO THE ASSOCIATED I/O CHANNEL AND CONTROL IS RETURNED 
TO THE CALLER. ELSE THE DRIVER PROCESS CONTEXT IS SAVED IN ITS FORK 
BLOCK, THE FORK BLOCK IS INSERTED IN THE MAP REGISTER WAIT QUEUE, 
AND A RETURN TO THE DRIVER PROCESS’ CALLER IS EXECUTED. 


;REQUEST UNIBUS MAP REGISTERS 
BSBB ITOCSALOUBAMAP ; ALLOCATE UBA MAP REGISTER 


BLBS RO,10$ ;IF LBS SUCCESSFUL ALLOCATION 
MOVQ R3,UCB$L_FR3(R5) ;SAVE DRIVER PROCESS CONTEXT 
POPL UCB$L_FPC(R5) ; SAVE MAP REGISTER WAIT RETURN ADDRESS 


INSQUE UCB$L_FQFL(RS) ,@ADP$L_MRQBL(R2) ; INSERT PROCESS IN MAP REGISTER WAIT 
RSB ; 
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-14 0314 862 .SBTTL ALLOCATE UNIBUS MAP REGISTERS 

0314 863 ;+ 

0314 864 IOC$ALOUBAMAP - ALLOCATE UBA MAP REGISTERS (CRB DATABASE SPECIFIED) 


0314 865 ; IOCSALOUBAMAPN - ALLOCATE UBA MAP REGISTERS (ARGUMENT SPECIFIED) 


0314 866 IOC$SALOMAPUDA - ALLOCATE UBA MAP REGISTERS (FOR CLASS DRIVER(S)) 
0314 867 ; 
0314 868 ; This routine is called to allocate uba map registers and to mark the allocation 
0314 869 ; in the map register allocation structure located in the ADP. The state 
0314 870 ; of the @NIBUS map registers is maintained in a set of descriptors 
0314 871 ; that describe contiguous extents of allocatable (i.e. free) map 
0314 872 ; registers. A map register descriptor consists of the 
0314 873 ; corresponding elements of two distinct arrays (of one word items) 
0314 874 ; located in the ADP. These arrays, ADP$W_MRNREGARY and ADP$W_MRFREGARY, 
0314 875 ; contain the number of map registers and the first map register in each 
0314 876 ; contiguous extent of free map registers. These arrays are each 
0314 877 ; preceeded by a one word field containing all 1’s (-1) so that compares 
0314 878 ; made against the “previous” descriptor fail when the current desciptor 
0314 879 ; is the one whose index is zero. 
0314 880 ; 
0314 881 ; ADP$L_MRACTMDRS maintains the number of active descriptors, i.e. the 
0314 882 ; number of elements of each array which contain valid data. 
0314 883 ; 
0314 884 ; INPUTS: (FOR IOC$ALOUBAMAP AND ALOUBAMAPN) 
0314 885 ; R3 = NUMBER OF MAP REGISTERS TO ALLOCATE (IOC$ALOUBAMAPN. only 
0314 886 ; R5 = DEVICE UNIT UCB ADDRESS. 
0314 887 ; 
0314 888 ; INPUT: - (FOR IOC$ALOMAPUDA) 
;RLRPDTADP 0314 wh 3 R4 => PDT 
0314 889 ; RS => CDRP 
0314 890 ; 
0314 891 ; OUTPUTS: 
0314 892 ; RO = SUCCESS INDICATION. 
0314 893 ; R2 => ADP 
0314 894 ;- 
0314 895 .enab] Isb 
0314 896 IOCSALOMAPUDA: 
TE 53 7D 0314 897 MOVQ R3,-(SP) 3 Save R3,R4,R5 
55 DDB 0317 898 PUSHL R5 ; 
0319 899 
;RLRPDTADP 52 OOEO C4 DO 0319 | MOVL PDT$L_ADP(R4) ,R2 ; R2 => ADP before we modify R4. 
;RLRPDTADP O31E w2 
;RLRPDTADP 53 D2 A5 DO O31E .3 MOVL CORP$L_BCNT(R5),R3 ; Get transfer byte count 
;RLRPDTADP 54 DO AS 3C 0322 oH MOVZWL CDORP$W_BOFF(R5),R4 ; Get byte offset in page 
;RLRPDTADP 53 O3FF C344 9E 0326 5 MOVAB AX3FF(R3)[R4],R3 ; Calculate highest relative byte and round 
;RLRPDTADP 53 F7 8F 78 O32C .6 ASHL #-9,R3,R3 ; Calculate number of.map registers required 
53 0330 
-8 0331 908 
51 3C AS 9E 0331 909 MOVAB CDRP$L_UBARSRCE(R5) ,R1 > R1 => UBMD. 
2F 11 0335 910 BRB COMMON_ALOUBAMAP ; Branch to common code. 
0337 911 
0337 912 IOCSALOUBAMAPN: : ;ALLOCATE UBA MAP REGISTERS ARGUMENT SPECIFI 
7E 53 7D 0337 913 MOVQ R3,-(SP) ; Save R3,R4,R5 
55 DDB O33A 914 PUSHL R5 3 
18 11. O33C 915 BRB 5$ 7 
O33E 916 
O33E 917 IOC$ALOUBAMAP: : ; ALLOCATE UBA MAP REGISTERS CRB SPECIFIED 


7E 53 7D O33E 918 MOVQ R3,-(SP) ; Save R3,R4,R5 
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02 Al 53 

64 A245 53 
05 

0129 

06 

O1SE C245 53 
50 01 

55 

53 BE 


- NONPAGED I/O RELATED SUBROUTINES 3-JUN-1984 11:33:30 VAX-11 Macro VO03-01 Page 25 
ALLOCATE UNIBUS MAP REGISTERS 12-MAR-1982 17:12:23 DISK$VMSMASTER: [SYS.SRC]IOSUBNPAG(17) 
DDB QO341 919 PUSHL R5 ; 
0343 920 

3C 0343 921 MOVZWL UCB$W_BCNT(R5) ,R3 ;GET TRANSFER BYTE COUNT 

3G 0347 922 MOVZWL UCB$W_BOFF(R5),R4 ;GET BYTE OFFSET IN PAGE 

9E 0348 923 MOVAB AX3FF(R3)[R4],R3 ;CALCULATE HIGHEST RELATIVE BYTE AND ROUND 

78 O351 924 ASHL #-9,R3,R3 ;CALCULATE NUMBER OF MAP REGISTERS REQUIRED 
0355 
0356 925 5$§: 

DO 0356 926 MOVL UCB$L_CRB(R5),RI1 ; R1 => CRB. 

DO O35A 927 MOVL CRB$L_INTDO+VECS$L_ ADP(R1),R2 ; R2 => ADP. 

9E O35E 928 MOVAB CRB$L_INTD+VEC$W_MAPREG(R1),R1 ; Ril => UBMD. 

EO 0362 929 BBS #VEC$V_MAPLOCK, - ; If SET, already permanently 
0364 930 UBMD$W_MAPREG(R1) , 404 ; allocated, so branch around. 
0366 931 ? 

0366 932 ; Here: 

0366 933 ; R1 => UBMD ~- caller’s structure where we record registers allocated 
0366 934 ; R2 => ADP 

0366 935 ; R3 = number of map registers to allocate 

0366 936 ; 

0366 937 

0366 938 COMMON_ALOUBAMAP: 

DS 0366 1 TSTL ADP$L_MRACTMDRS(R2) ; Test for zero active descriptors. 

13 0369 -2 BEQL 15$ ; EQL implies no registers available. 

D6 O36B 939 INCL R3 ; Round up request to next multiple 

BA O36D 940 BICB #1,R3 ; of 2. 

D4 0370 941 CLRL R5 ; Establish loop variable. 

0372 942 10$: 
Bi 0372 943 CMPW R3,ADP$W_MRNREGARY(R2)[(R5] ; See if enough regs described here. 
15 0377 944 BLEQ 20$ | ; LEQ implies YES. 

0379 945 

F2 0379 946 AOBLSS ADPS$L_MRACTMDRS(R2),R5,10$ ; Else branch back and continue 
O37E -1 15$: 

D4 O37E 947 CLRL RO 3; If here, allocation failure. 

11 O380 948 BRB 50$ ; Branch around to return. 

0382 949 20$: 

BO 0382 950 MOVW ADP$W_MRFREGARY(R2)[R5],- ; Allocate from low end of extent 
0388 951 UBMD$W_MAPREG(R1) ; by copying ist map reg. #. 

90 0388 952 MOVB R3,UBMD$B_NUMREG(R1) ; Set # of map regs allocated. 

A2 0O38C 953 SUBW R3,ADP$W_MRNREGARY(R2) [RS] ; Subtract out # regs allocated. 

12 0391 954 BNEQ 30$ ; NEQ implies extent not empty, 
0393 955 7 branch around deallocate. 

30 0393 956 BSBW DEALLOC DESCRIP ; Call to deallocate descriptor. 

11 O396 957. BRB ' 40$ ; And branch back to return. 
0398 958 30$: 

AO 0398 959 ADDW R3,ADP$W_MRFREGARY(R2)[R5] ; Bump descriptor past 
O39E 960 ; allocated registers. 

DO O39E 961 40$: MOVL SA#SS$_NORMAL ,RO ; Indicate success. 

BEDO O3Al 962 50$: POPL R5 ; Restore R5,R4,R3 

7D O3A4 963 MOVQ CSP)+,R3 mee 

05 O83A7 964 RSB 
O3AB8 965 -dsabl lsb. 
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-4 O3A8 967 .SBTTL Allocate a specific set of UNIBUS Map Registers 
O3A8 968 ;+ 
O3A8 969 ; IOCSZALOUBAMAPSP 
03A8 970 ; 
O03A8 971 ; This routine is called to allocate a specific set of UNIBUS Map Registers. 
O03A8 972 ; 
O3A8 973 ; INPUTS: 
O3A8 974 ; R3 = # of map registers to allocate 
O3A8 975 ; R4 = ¥# of first map register to allocate 
O3A8 976 ; R5 => UCB 
O3AB 977 ; 
O3A8 978 ; OUTPUTS: 
O3A8 979 ; RO = Success or failure indication 
O3A8 980 ; Note RO, R1 and R2 modified. 
O03A8 981 ;- 
03A8 982 
03A8 983 IOCSALOUBAMAPSP: : ; 
7E 53 7D O3A8 984 MOVQ R3,-(SP) ; Save R3,R4,R5 
55 DD O3AB 985 PUSHL R5S 3 
O3AD 986 
50 24 A5 DO OQOS3AD 987 MOVL UCB$L_CRB(R5),RO ; RO => CRB. 
52 38 AO DO O3B1 988 MOVL CRB$L_INTDO+VEC$L_ADP(RO),R2 ; R2 => ADP. 
51 34 AO 9E O3B5 989 MOVAB CRB$L_INTD+VEC$W_MAPREG(RQ),R1 ; R1 => UBA mapping descriptor. 
03B9 990 
;RLROOOS 5C A2 DS 0389 1 TSTL ADP$L_MRACTMDRS(R2) ; Test for zero active descriptors. 
;RLROOO3 2C 13 O3BC -2 BEQL 30$ ; EQL implies no registers available. 
05 54 E9 O3BE 991 BLBC R4,10$ ; Prepare to round DOWN to even boundary. 
54 01 BA OQ3Ci 992 BICB #1,R4 ; Clear low bit if set and 
53 D6 O3C4 993 INCL R3 ; then increment #¥ of registers to allocate 
O3C6 994 10$: : ‘ 
53 D6 O3C6 995 INCL R3 ; Prepare to round UP to even # of registers 
53 01 8A O3C8 996 BICB #1,R3 3 
O3CB 997 
55 D4 O3CB 998 CLRL R5 ; RS will be index register. 
O03CD 999 20$: 
O15E C245 54 B1 O3CD 1000 CMPW R4,ADP$W_MRFREGARY(R2) [R5] ; Are registers we want.in 
03D3 1001 3; current extent? 
15 19 O3D3 1002 BLSS 30$ LSS means current extent is beyond the 
03D5 1003 desired registers. Therefore they are 


03D5 1004 7 not availiable and we have failed. 


46 13° O3D5 1005 BEQL 50$ EQL means they are at the beginning 
03D7 1006 of the current extent. 
O03D7 . 1007 
03D7 1008 ; Here the registers we want are either within the middie of the current 
03D7 1009 ; extent or else beyond the current extent. 
O03D7 1010 
O15E C245 Al 03D7 1011 ADDW3 ADPS$W_MRFREGARY(R2)[R5] ,- ; RO = 1st register beyond 
50 64 A245 O3DC 
O3EO 1012 ADP$W_MRNREGARY(R2)[R5] ,RO ; current extent. 
50 54 Bi O3EO 1013 CMPW R4,R0O ; Are we in current extent? 
09 19 O3E3 1014 BLSS 40$ ; LSS means YES, in current. 
E3 55 5C A2 F2 O3E5 1015 AOBLSS ADP$iL=MRACTMDRS(R2),R5,20$ ; Loop thru all extents. 
O3SEA 1016 30$: ; Failure if we fall thru. 
50 D4 OSEA 1017 CLRL RO ; Set failure code. 
52 11 O3EC 1018 BRB BO0$ ; And branch to return. 


O3EE 1019 40$: 
OSEE 1020 
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A2 
BI 
19 


BO 
90 


Bi 
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BO 
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O3SEE 
O3EE 
OSEE 
O3EE 
OSEE 
O3EE 
O3EE 
OSEE 
O3F 1 
OSF4 
O3F6 
O3F6 
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OSFD 
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042B 
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1021 
1022 
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1027 
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1030 
1031 

1032 
1033 
1034 
1035 
1036 
1037 
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.1 
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1045 
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1055 
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1060 
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1062 
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1064 
1065 
1066 
1067 
1068 
1069 
1070 
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60$: 


70$: 
803: 
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is greater than the first register of 

current extent (defined by R5 = index) and is less. than or equal to 

the last register of the extent. RO contains the # of the register just 
beyond the current extent. In other words, 


ADP$W_MRFREGARY(R2)[R5] < R4 < RO 
SUBW R4,RO0 ; RO = length of subextent based at R4. 
CMPW RO,R3 ; Compare to # of registers needed. 
BLSS 30$ ; LSS means failure. 
MOVW R4,UBMD$W_MAPREG(R1) ; Success. Fill in user’s descriptor 
MOVB R3,UBMD$B_NUMREG(R1) : with base register and # of registers. 
SUBW3 ADP$W_MRFREGARY(R2)[R5],R4,- ; Distance from beginning of 
ADP$W_MRNREGARY(R2)[R5] ; extent to R4 is new length. 
SUBW RO, ADP$W_ MRNREGARY(R2) [R5] ; Equivalent result. 
SUBW R3,RO ; RO = # regs. left in sub-extent. 
BEQL 70$ ; EQL means we do not have to allocate 
; and fill a new extent descriptor. 
INCL R5 ; R5 = index of new extent descriptor. 
MOVW RO,-(CSP) ; Save length of new extent. 
BSBW ALLOC_DESCRIP ; Call to allocate a new descriptor. 
ADDW3 R4,R3,ADP$W_MRFREGARY(R2)[(R5] ; Fill in new descriptor with 
MOVW (SP)+,ADP$W_MRNREGARY(R2)[R5] 3 Ist register and # registers. 
70$ ; Branch around to success. 


BRB 


Here the first register we want is equal to the first register of the current 


extent (defined by index register R5). In other words, 


R4 = ADPSW_MRFREGARY(R2)[R5] 
CMPW R3,ADP$W_MRNREGARY(R2)[R5] ; See if. we have enough registers. 
BGTR 30$ ; GTR implies failure. 
MOVW R4,UBMD$W_MAPREG(R1) ; Success. Fill in user’s descriptor 
MOVW R3,UBMD$B_ NUMREG(R1) 3 with 1tst register and # allocated. 
SUBW R3,ADP$W_MRNREGARY(R2)[R5] ; Update current descriptor. 
BEQL 60$ ; EQL means current extent now 
; empty. Go to deallocate. 
ADDW R3,ADP$W_MRFREGARY(R2) [RS] ; If not empty, update ist register. 
BRB 70$ ; Branch around deallocate. 
BSBwW DEALLOC_ DESCRIP ; Deallocate system descriptor. 
MOVL SA#SS$ NORMAL ,RO ; Set success indicator. 
POPL R5 ; Restore R5,R4,R3 
MOVQ CSP)+,R3 ; : : 
RSB ; And return to caller. 
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V03-033 Permanently Allocate UNIBUS Map Register 12-MAR-1982 17:12:23 DISK$VMSMASTER: [SYS.SRC]IOSUBNPAG( 19) 
=4 0447 1074 .SBTTL Permanently Allocate UNIBUS Map Registers 
0447 1075 ;+ 
0447 1076 ; IOC$ALOUBAMAPRM - Permanently Allocate UBA Map Registers (CRB Database Specified) 
0447 1077 ; IOC$ZALOUBAMAPRMN - Permanently Aljiocate UBA Map Registers (Argument Specified) 
0447 1078 ; 
0447 1079 ; This routine is called to permanently allocate UNIBUS map registers. 
0447 1080 ; Here we allocate the map registers from the highest numbered 
0447 1081 ; available registers. 
0447 1082 ; 
0447 1083 ; INPUTS: 
0447 1084 ; R3 = # Registers to allocate (IOC$ALOUBAMAPRMN only) 
0447 1085 ; R5 => UCB 
0447 1086 ; 
0447 1087 ; OUTPUTS: 
0447 1088 ; RO = Success indication 
0447 1089 ; 
0447 1090 ;- 
0447 1091 
0447 1092 .enabl LSB 
0447 1093 IOC$ALOUBMAPRMN: : ;ALLOCATE UBA MAP REGISTERS ARGUMENT: SPECIFI 
7E 53 7D 0447 1094 MOVQ R3,-(SP) ; Save R3,R4,R5 
55 DD O44A 1095 PUSHL R5 ;: 
044C 1096 
18 11 O44C 1097 BRB 5$ ; 
044E 1098 IOCZALOUBMAPRM: : ;ALLOCATE UBA MAP REGISTERS CRB SPECIFIED 
7E 53 7D QO44E 1099 MOVQ R3,-(SP) ; Save R3,R4,R5 
55 DDB 0451 1100 PUSHL R5 ; 
0453 +1101 
53 7E AS 3C 0453 1102 MOVZWL UCB$W_BCNT(R5),R3 ;GET TRANSFER BYTE COUNT 
54 7C AS 3C 0457 1103 MOVZWL UCB$W_BOFF(RS),R4 ;GET BYTE OFFSET IN PAGE 
53 OSFF C344 9E O45B 1104 MOVAB AX3FF(R3)[R4],R3 ;CALCULATE HIGHEST RELATIVE BYTE AND ROUND 
53 F7 8F 78 0461 1105 ASHL #-9,R3,R3 ;CALCULATE NUMBER OF MAP REGISTERS REQUIRED 
53 0465 
0466 1106 5$: 
51 24 AS DO O466 1107 MOVL UCB$L_CRB(R5),R1 ; R1 => CRB 
52 38 Al DO O46A 1108 MOVL CRB$SL_INTD+VEC$L_ADP(R1),R2 ; R2 => ADP 
51 34 Al 9E O46E 1109 MOVAB CRB$L_INTD+VEC$W_MAPREG(R1),R1 ; R1 => UBMD. 
OF EO 0472 1110 BBS #VEC$V_MAPLOCK, — ; If SET, already permanently 
38 61 0474 1111 UBMD$W_MAPREG(R1) ,30$ ; allocated, so branch around. 
0476 1112 . 
53 D6 0476 1113 INCL R3 ; Round up request to next multiple 
53 01 BA 0478 1114 BICB #1,R3 . Of “2. 
55 5C A2 DO O47B 1115 MOVL ADP$L_MRACTMDRS(R2),R5 ; RS = index beyond last MRD. 
;RLROOOS OA 13. O47F 2a] BEQL 15$ ; EQL implies no registers available. 
;RLROOO2 0481 .2 10$: 
;RLROOO2 62 A245 53 B1 0481 3 CMPW R3,ADP$W_MRNREGARY-2(R2)[R5] ; See if enough regs described here. 
;RLROOO2 O07 15 0486 .4 BLEQ 20$ ; LEQ implies YES. 
;RLROOO2 0488 .5 
;RLROOO2 FE 55 F5 0488 6 SOBGTR R5,10$ ; Else branch back and continue 
;RLROOO3 048B -7 15$: 
-5 50 D4 O48B) 1121 CLRL RO ; If here, allocation failure. 
22 11 O48D 1122 BRB 40$ ; Branch around to return. 
O48F 1123 20$: 
015C C245 Al O48F 1124 ADDW3 ADP$W_MRFREGARY-2(R2)[R5],- ; Calculate register # beyond 
50 62 A245 0494 
0498 1125 ADP$W_MRNREGARY-2(R2) [R5],RO0 3 last extent. 


50 53 A2. 0498 1126 SUBW R3,RO ; We allocate from high end.. RO 
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V03-033 Permanently Allocate UNIBUS Map Register 12-MAR-1982 17:12:23 DISK$VMSMASTER: {SYS.SRC]IOSUBNPAG( 19) 
049B 1127 ; contains Ist reg. to alloc. 
61 50 BO 049B 1128 MOVW RO,UBMD$W_MAPREG(R1) ; Record 1st register allocated. 
61 8000 8F AB O49E 1129 BISW #AVECSM _MAPLOCK,UBMD$W_MAPREG(R1); and mark it permanent. 
O02 Al 53 90 O04A3 1130 MOVB R3,UBMD$B_NUMREG(R1) ; Set # of map regs allocated. 
62 A245 53 A2 O4A7 1131 SUBW R3,ADP$W_MRNREGARY-2(R2)[R5] ; Subtract out # regs allocated. 
OA 13. O4AC 1132 BEQL 50$ ; EQL implies descriptor not 
O4AE 1138 ; valid; branch to deallocate. 
O4AE 1134 30$: 
50 01 DO O4AE 1135 MOVL SA#SS$_ NORMAL ,RO ; Indicate success. 
04B1 1136 40$: 
55 B8EDO O4B1- 1137 POPL R5 ; Restore R5,R4,R3 
53 BE 7D 0484 1138 MOVQ (SP)+,R3 ; 
05 0487 1139 RSB 
0488 1140 50$: 
55 D7 O4BB 1141 DECL R5 ; RS = index of descriptor to deallac. 
0002 30 O4BA 1142 BSBW DEALLOC_ DESCRIP ; Call to deallocate descriptor. 


EF 11 O4BD 1143 BRB 30$ ; And branch back to return. 
O4BF 1144 .dsab] lsb 
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DEALLOC_ DESCRIP - Common 


internal 
a UBA Map Register descriptor. 


INPUTS: 

R2 => ADP 

R5 = index of descriptor to deallocate. 
OUTPUTS: 


subroutine called to deallocate 


The UBA Map Allocation structures are updated by contracting 
descriptors over the deallocated one. 


Register R5 is modified. 


DEALLOC_DESCRIP: 


10$: 


+ 


we we we we we we ee et we we we we 


ALLOC_ DESCRIP —- Common internal 


DECL ADP$L_MRACTMDRS(R2) : 
MOVW ADP$W_MRNREGARY+2(R2)[R5] ,- 
ADP$W_MRNREGARY (R2)[R5] 
MOVW ADP$W_MRFREGARY+2(R2)[R5],- 
ADP$W_MRFREGARY(R2){R5] 
AOBLSS ADP$L_MRACTMDRS(R2),R5,10$ 
RSB 


. 
> 


> 


Decrement # active descriptors. 


Move data towards lower index 


to fill up hole. 


Loop thru rest of active MDRS. 


subroutine to allocate a UBA map register 


descriptor in the middle of the range of descriptors. 


Allocation 
by moving descriptor 


Note RO is modified. 


ALLOC_DESCRIP: 


10$: 


20$: 


MOVL ADP$L_MRACTMDRS(R2) ,RO 

CMPL RO,R5 

BLEQ 20$ 

MOVW ADP$W_MRNREGARY-2(R2) [RO] ,- 
ADP$W_MRNREGARY(R2) [RO] 

MOVW ADP$W_MRFREGARY-2(R2) [RO] ,- 
ADP$W_MRFREGARY(R2) [RO] 

SOBGTR RO,10$ 

INCL ADP$L_MRACTMDRS(R2) 

RSB 


is accomplished by creating a hole 
items to the next higher element. 


INPUTS: 

R2 => ADP 

R5 = index of where we must allocate descriptor 
OUTPUTS: 


in each of the arrays 


RO = # active descriptors. 


Have we finished? 
LEQ implies YES. 
Starting from ends of arrays, 


copy #* register items. 


And loop back until we reach 

the hole we have created. 
Increment # active descriptors. 
Return to caller 


IOSUBNPAG 
V03-033 
-1 
; RLRPDTADP 
7E 
7E 
; RLRPDTADP 52  OOEO 
; RLRPDOTADP 56 
-4 
53 3C 
54 
53 02 
51 24 
3D 34 
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Release UNIBUS Map Registers 12-MAR-1982 17:12:23 DISKSVMSMASTER: [SYS.SRC]IOSUBNPAG(21) 
O4F8 1197 .SBTTL Release UNIBUS Map Registers 
O4F8 1198 ;+ 
O4F8 1199 ; IOC$RELMAPUDA - RELEASE UNIBUS MAP REGISTERS (CALLED FROM UDA PORT DRIVER) 
O4F8 1200 ; IOC$RELMAPREG - RELEASE UNIBUS MAP REGISTERS 
O4F8 1201 ; 
O4FB8 1202 ; This routine is called to release UNIBUS map registers that were previously 
O4F8 1203 ; assigned for an 1/0 transfer. 
O4F8 1204 ; 
O4F8 1205 ; INPUTS: 
O4F8 1206 ; (For IOCSRELMAPUDA only) 
O4F8 1207 ; 
O4F8 ak 3s R4 => PDT 
O4F8 1208 ; R5 => CORP 
O4F8 1209 ; 
O4F8 1210 ; (For IOC$RELMAPREG call only) 
O4F8 1211 =; 
O4F8 1212 ; R5 = UCB ADDRESS OF DEVICE UNIT. 
O4F8 1213 =; 
O4F8 1214 ; It is assumed that the caller still owns the I/O channel on which 
O4F8 V2VS7-3 the transfer took place. 
O4F8 1216 ; 
O4F8B8 1217 ; OUTPUTS: 
O4F8 1218 ; 
O4F8 1219 ; If the mapping registers have been permanently assigned to the asso- 
O4F8 1220 ; ciated I/0 channel (only possible for IOC$RELMAPREG), then control 
O4F8 1221 ; is immediately returned to the caller. Else the mapping registers are 
O4F8 1222 ; released (via a call to IOC$DALOCUBAMAP) and we then go into a loop 
O4F8 1223 ; removing waiting driver processes from the Map Register Wait Queue 
O4F8 1224 ; until either the Queue is completely drained or we run out of map 
O4F8 1225 ; registers to satisfy the needs of a given waiting driver process. 
O4F8 1226 ; Driver processes waiting here have their context stored in either 
O4F8 1227 ; a UCB fork block or a CDRP fork block and the processing required to 
O4F8 1228 ; resume each of these types of driver process is slightly different. 
O4F8 1229 ; What is done for each is to allocate the required map registers 
O4F8 1230 ; (via a call to IOC$ALOUBAMPA for UCB. threads and via a call to 
O4F8 1231 ; IOC$ALOUBAMAP for CDRP threads) and to resume the waiting driver 
O4F8 1232 ; process. Resuming a UCB thread is done by restoring register 
O4F8 1233 ; context and JSB’ing to the saved PC. Resuming a CDRP thread is 
O4F8 1234 ; accomplished by calling SCS$RESUMEWAITR. 
O4F8 1235 ;- 
O4F8 1236 .enab] lsb 
O4F8 1237 IOC$RELMAPUDA:: 
7D O4F8 1238 MOVQ R3,-(SP) ; Save R3-R6 
7D QO4FB 1239 MOVQ R5,-(SP) 7 
O4FE 1240 
DO O4FE oa MOVL PDT$L_ADP(R4),R2 ; R2 => ADP. 
DO 0503 .2 MOVL R2,R6 ; R6 => ADP also. 
0506 1245 
9E 0506 1246 MOVAB CDRP$L_UBARSRCE(R5),R3 .; RB => UBMD. 
3C O50A . 1247 MOVZWL UBMD$W_MAPREG(R3),R4 ; R4 has ist mapreg #. 
94 O050D 1248 MOVZBL UBMD$B_NUMREG(R3),R3 ; R3 has # of mapregs. 
11 0511 1249 BRB 104 ; Branch to common code. 
0513 1250 
0513 1251 IOC$RELMAPREG: : ; Release unibus map registers 
DO 0513 1252 MOVL UCB$L_CRB(R5),R1 ; Ri => CRB. 
EO 0517 1253 BBS #VECSV_MAPLOCK,~— ; If SET, permanent allocation so branch. 
0519 1254 CRB$L_INTD+VEC$W_MAPREG(R1) ,50$ 
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53 


55 


53 
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7E 
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56 


53 


53 
55 


38 Al 


34 Al 
36 Al 


0034 


30 B6 
19 


10 
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FDFB 
09 50 
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65 
8E 
BE 


FDB7 
EF 50 


00000000’ EF 


cc 
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7D 
70 


DO 
DO 
3C 
9A 
30 


OF 
1D 


91 


30 
EQ 


16 


O51C 
O51F 
0522 
0522 
0526 
0529 
052D 
0531 
0531 
0534 
0534 
0538 
O53A 
053A 
O53C 
O53E 
0540 
0540 
0543 
0546 
O54A 
054D 
O54F 
0553 
0556 
0559 
O55A 
OSSA 
OSSA 
OS5A 
O55D 
0560 
0560 
0566 
0566 
0568 
0568 


1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 


12-MAR-1982 17:12:23 DISK$VMSMASTER: [SYS.SRC]IOSUBNPAG(21) 


MOVQ R3,-(SP) ; Save R3-R6 
MOVQ R5,-(SP) ; 
MOVL CRB$L_INTO+VEC$L_ADP(R1),R2 ;GET ADDRESS OF ADP 
MOVL R2,R6 ;SAVE ADDRESS OF ADP 
MOVZWL CRB$L_INTD+VEC$W_MAPREG(R1),R4 ;GET STARTING MAP REGISTER NUMBER 
MOVZBL CRB$L_INTD+VEC$B_NUMREG(R1),R3 ;GET NUMBER OF REGISTERS TO DEALLOC 
10$: 
BSBW IOC$DALOCUBAMAP ; Free up UBA map resources. 
20$: 
REMQUE @ADP$L_MRQFL(R6),R5 ;GET ADDRESS OF NEXT DRIVER FORK BLOCK 
BVS 40$ . ;IF VS NO DRIVER PROCESS WAITING 
CMPB #DYN$C_UCB,- ; See if we dequeued a UCB or a CORP. 
UCB$B_TYPE(R5) 
BNEQ REALLOC_ CD MAPREGS ; NEQ implies a CDRP. 
BSBW IOC$SALOUBAMAP ; SEARCH MAP REGISTER BITMAP AND ALLOCATE 
BLBC RO,30$ ; ;IF LBC ALLOCATION FAILURE 
MOVQ UCB$L_FR3(R5) ,R3 ;RESTORE DRIVE PROCESS CONTEXT 
JSB @UCB$L_FPC(R5) ;CALL DRIVER AT MAP REGISTER WAIT RETURN ADD 
BRB 20$ 7 
30$: INSQUE UCB$L_FQFL(R5),ADP$L_MRQFL(R6) ;REINSERT DRIVER PROCESS AT FRONT OF 
40$: MOVQ (SP)+,R5 ; Restore R3-R6 
MOVQ (SP)+,R3 : 
50$: RSB ; 
REALLOC_CD_ MAPREGS: Reallocate mapregs to a class driver 


BSBW 
BLBC 


JSB 


BRB 


.dsabl 


process. 


we we we we 


IOCSALOMAPUDA Allocate map registers if we can. 
RO,30$ . LBC implies allocation failure, branch 
SCS$RESUMEWAITR ; Resume waiting thread and any backed 

; up IRP‘s. 
20$ ; Branch back to try and allocate more 

; UNIBUS map registers. 
isb 
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V03-033 Release UNIBUS Map Registers 12-MAR-1982 17:12:23 DISK$VMSMASTER: [SYS.SRC]IOSUBNPAG(22) 
be Ree 0568 1293 ;+ ; , 
0568 1294 ; IOC$DALOCUBAMAP - Common interna! subroutine to update the UBA Map allocation 
0568 1295 ; structures to include the map registers specified here among the 
0568 1296 ; available map registers. 
0568 1297 ; 
0568 1298 ; INPUTS: 
0568 1299 ; R2 => ADP 
0568 1300 ; R3 = # map registers to free. 
0568 1301 ; R4 = first map register to free. 
0568 1302 ; 
0568 1303 ; OUTPUTS: 
0568 1304 ; The UBA Map Allocation structures are updated. 
0568 1305 ; 
0568 1306 ; Registers RO, R1 and R5 are modified. 
0568 1307 ; 
0568 1308 ;- 
0568 1309 
0568 1310 IOCZDALOCUBAMAP: 
55 D4 0568 1311 CLRL RS ; Initialize loop variable. 
51 53 54 C1 O56A 1312 ADDL3 R4,R3,R1 ; R1l = map register beyond extent. 
;ROWO 140 53 D5 O56E .1 TSTL R3 ; Is the # of regs. to deallocate zero? 
;ROWO140 62 13 0570 wi BEQL 90$ ; Branch to bugcheck if zero. 
;RLROOOS 5C A2 D5 0572 .3 TSTL ADP$L_MRACTMDRS(R2) ; Test for zero active descriptors. 
;RLROOOS 4E 13 0575 .4 BEQL 50$ ; EQL implies no registers available. 
0577 1313 10$: 
O15E C245 51 B1 OS77 1314 CMPW R1,ADP$W_MRFREGARY(R2)[R5] ; See if map registers to free 
0570 1315 ; are before those described 
O57D 1316 ; by current descriptor. 
07 15 O57D 1317 BLEQ 20$ ; LEQ implies yes. 
O57F 1318 
F3 55 5C A2 F2 O57F 1319 AOBLSS ADP$L_MRACTMDRS(R2),R5, 10$ Else branch back and try next. 
2B 11. O584 1320 BRB 40$ If here, registers to free 
0586. 1321 beyond those described by 


0586 1322 7 last descriptor. So branch 


0586 1323 to try and absorb at end of 
0586 1324 last descriptor. 
0586 1325 20$: 

29 12 0586 1326 BNEQ 40$ ; NEQ implies that although we alloca- 
0588 1327 ; registers before the current des- 
0588 1328 ; criptor, we are not contiguous with 
0588 1329 3 it. So we branch to try and absorb 
0588 1330 ; these registers in the previous one. 
0588 1331 
0588 1332 ; Here we can absorb the registers in the current descriptor. 
0588 1333 

62 A245 Al 0588 1334 ADDW3 ADP$W_MRNREGARY-2(R2) [R5],- ; Calculate end of previous 
50 015C C245 O58C 
0591 1335 ADP$W_MRFREGARY-2(R2)(R5],RO ; extent and move to RO. 
54 50 B1 0591 1336 CMPW RO,R4 ; Does it coincide with start 

0594 1337 ; of this extent? 

oc 13 0594 1338 BEQL 30$ ; EQL implies yes. 
0596 1339 
0596 1340 ; Here we have the most likely case. The map registers that we are freeing can 
0596 1341 ; be absorbed into the top of the current descriptor but not also in the 
0596 1342 ; previous descriptor. 
0596 1343 


O1SE C245 54 BO O596 1344 MOVW R4,ADP$W_MRFREGARY(R2)[R5] ; First register freed becomes 
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059C 1345 first register of current 


OS59C 1346 ; descriptor. 
64 A245 53 AQ O59C 1347 ADDW R3,ADP$W_MRNREGARY(R2)[R5] ; Number of registers is sum of 
O5A1 1348 ; registers freed and registers 
OSA1 1349 ; previously described here. 
05 O5A1 1350 RSB 
O5A2 1351 
O5A2 1352 ; Here we have the case where the map registers being freed fall between two 
O5A2 1353 ; discontiguous blocks and exactly span the difference. We then can 
OSA2 1354 ; describe the entire group with one descriptor, and so we also 
O5A2 1355 ; deallocate the current descriptor. Note new combined descriptor 
OS5A2 1356 ; will still begin at same map register number so we do NOT alter 
OSA2 1357 ; this item. , 
O5A2 1358 
O5A2 1359 30$: 
62 A245 53 AO OSA2 1360 ADDW R3,ADP$W_MRNREGARY-2(R2)[R5] ; Partial sum of registers 
O5SA7 1361 ; being freed and previous ones. 
64 A245 AO O5A7 1362 ADDW ADP$W_MRNREGARY(R2)[(R5],- ; Now add in registers described 
62 A245 OSAB 
O5AE 1363 ADP$W_MRNREGARY-2(R2)[R5] ; in current descriptor. 
OSAE 1364 
FFOE 31 O5AE 1365 BRW DEALLOC_DESCRIP ; BRW to subroutine and let it 
05B1 1366 ; return to our caller. 
05B1 1367 
05B1 1368 ; Here we cannot absorb the freed map registers in the current descriptor. 
05B1 1369 =; We test to see if we can absorb them in the previous descriptor. 
05B1 1370 
O5B1 1371 40$: 
62 A245 Al 05B1 1372 ADDW3 ADP$W_MRNREGARY~2(R2)[(R5],- ; Calculate end of previous 
50 015C C245 0585 , 
O5BA 1373 ADP$W_MRFREGARY-2(R2)(R5],RO ; extent and move to RQ. 
54 50 B1 O5BA 1374 CMPW RO,R4 ; See if contigous with previous. 
06 12 O5BD 1375 BNEQ 50$ ; NEQ implies NO. 
O5SBF 1376 
62 A245 53 AO OSBF 1377 ADDW R3,ADP$W_MRNREGARY-2(R2)[R5] ; Sum # of registers in extent. 
05 O5C4 1378 RSB 
05C5 1379 
05C5 1380 ; Here we must allocate a new descriptor to describe the map registers we 
O5C5 1381 ; are freeing. Conditions at this time are as follows: 
O05C5 1382 ; 
05C5 1383 ; R2 => ADP 
05C5 1384 ; R3 = # registers to free 
O5C5 1385 ; R4 = first register to free 
O5C5 1386 ; R5 = index of where we must allocate descriptor 
O5C5 1387 ; 
O5C5 1388 ; Allocation is accomplished by calling subroutine ALLOC_ DESCRIP 
O5C5 1389 ; 
O05C5 1390 
05C5 1391 50$: 
FF10 30 O5C5 1392 BSBW ALLOC DESCRIP ; Alloc RS = index of descriptor. 
64 A245 53 BO O5C8 1393 MOVW R3,ADP$W_MRNREGARV(R2)[R5] ; Fill in allocated descriptor. 
Q015E C245 54 BO O5CD 1394 MOVW R4,ADP$W_MRFREGARY(R2) [RS] : 
05 O5D3 1395 RSB 
;ROWO 140 05D4 i 
;ROWO140 05D4 .2 90$: BUG_CHECK INCONSTATE ; Non-fatal bugcheck on zero map 
;ROW0O140 05D8 .3 ; registers deallocation attempts. 
;ROWO140 05 0O5D8 4 RSB ; Then ignore deallocate request. 
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-] , O5D9 1397 .SBTTL RETURN TO CALLER 

05D9 1398 ;+ 

O05D9 1399 ; IOC$RETURN - RETURN TO CALLER 

O5D9 1400 ; 

O5D9 1401 ; THIS ROUTINE IS CALLED AS A RESULT OF A DDT DISPATCH TO A NULL ENTRY. ITS 

O5D9 1402 ; FUNCTION IS MERELY TO RETURN TO ITS CALLER. 

O5D9 1403 ; 

O05D9 1404 ; INPUTS: 

O5SD9 1405 ; 

O5D9 1406 ; NONE. 

0509 1407 ; 

05D9 1408 ; OUTPUTS: 

O05D9 1409 ; 

0509 1410 ; NONE. 

O5D9 1411 ;- 

O5D9 1412 

O5D9 1413 IOC$RETURN:: ; ;RETURN TO CALLER 


05 O5D9 1414 RSB : 
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-1 OSDA 1416 .-SBTTL WAITFOR INTERRUPT OR TIMEOUT AND KEEP CHANNEL 

O5DA 1417 3+ 

OSDA 1418 IOC$WFIKPCH - WAITFOR INTERRUPT OR TIMEOUT AND KEEP CHANNEL 

O5DA 1419 

OSDA 1420 THIS ROUTINE IS CALLED TO SOFTWARE ENABLE INTERRUPTS AND TIMEOUT ON 

OSDA 1421 A DEVICE UNIT AND TO KEEP THE CHANNEL. THIS ROUTINE CAN BE CALLED AT 

OSDA 1422 EITHER FORK OR DEVICE INTERRUPT LEVEL. 

OSDA 1423 

OSDA 1424 INPUTS: 

O5DA 1425 

OSDA 1426 OO(SP) = RETURN ADDRESS OF CALLER. 

O5DA 1427 O4(SP) = TIMEOUT VALUE IN SECONDS. 

OSDA 1428 O8(SP) = IPL TO LOWER TO AFTER SETTING WAIT. 

O5DA 1429 12(SP) = RETURN ADDRESS OF CALLER’S CALLER. 


OSDA = 1430 


OSDA 1431 R5 = UCB ADDRESS OF DEVICE UNIT. 


ee Oe we ee we we we et ee we ee we we we ee we we we we we we 


O5DA 1432 
O5DA 1433 OUTPUTS: 
O5SDA 1434 
O5DA 1435 THE TIMEOUT VALUE IS COMPUTED AND STORED IN DUE TIME, REGISTERS R3 AND 
O5DA_~ 1436 R4 ALONG WITH THE RETURN PC ARE SAVED IN THE FORK BLOCK, INTERRUPTS AND 
OSDA 1437 TIMEOUT ARE ENABLED, AND A RETURN TO THE CALLER’S CALLER IS EXECUTED. 
O5DA 1438 ;- 
O5DA 1439 
OSDA 1440 IOC$WFIKPCH: : ;WAITFOR INTERRUPT/TIMEOUT AND KEEP CHANNEL 
6E 02 .CO O5DA 1441 ADDL #2,(SP) ;CALCULATE OFFSET TO NORMAL RETURN 
10 AS 53 7D OQOS50D 1442 MOVQ R3,UCB$L_FR3(R5) ;SAVE REGISTERS R3 AND R4 
OC AS BEDO O5E1 1443 POPL UCB$L_FPC(R5) - ;SAVE INTERRUPT RETURN ADDRESS 
64 A5 03 AB O5E5 1444 BISW #UCB$M_INT!UCB$M_TIM,UCB$W_STS(R5) ;ENABLE INTERRUPT AND TIMEOUT 
BE Ci OS5SE9 1445 ADDL3 (SP)+,LAEXE$GL_ABSTIM,UCB$L_DUETIM(R5) ;SET TIMEOUT TIME 
00000000’ EF O5EB 
6C AS O5SFO 
0040 8F AA OS5F2 1446 BICW #UCBSM_TIMOUT,UCB$W_STS(RS) ;CLEAR UNIT TIMED OUT 
64 AS OSF6 
OSF8B 1447 ENBINT ;ENABLE INTERRUPTS 


05 O5FB 1448 RSB 3 
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-1 OS5SFC 1450 .SBTTL WAITFOR INTERRUPT OR TIMEOUT AND RELEASE CHANNEL 
O5FC 1451 ;+ 
OSFC 1452 ; IOC$WFIRLCH - WAITFOR INTERRUPT OR TIMEOUT AND RELEASE CHANNEL 
O5FC 1453 ; 
O5FC 1454 ; THIS ROUTINE IS CALLED TO SOFTWARE ENABLE INTERRUPTS AND TIMEOUT ON A DEVICE 
O5FC 1455 ; UNIT AND TO RELEASE THE CHANNEL. THIS ROUTINE CAN ONLY BE CALLED AT FORK LEVEL. 
O5FC 1456 ; 
OSFC 1457 ; INPUTS: 
OSFC 1458 ; 
OSFC 1459 ; OO(SP) = RETURN ADDRESS OF CALLER. 
O5FC 1460 ; 04(SP) = TIMEOUT VALUE IN SECONDS. 
O5FC 1461 ; 08(SP) = IPL TO LOWER TO AFTER SETTING WAIT. 
O5FC 1462 ; 12(SP). = RETURN ADDRESS OF CALLER’S CALLER. 
OSFC 1463 ; 
O5SFC 1464 ; R5 = UCB ADDRESS OF DEVICE UNIT. 
O5FC 1465 ; 
O5FC 1466 ; OUTPUTS: 
O5SFC 1467 ; 
O5FC 1468 ; THE TIMEOUT VALUE IS COMPUTED AND STORED IN DUE TIME, REGISTERS.R3 AND 
OS5FC 1469 ; R4 ALONG WITH THE RETURN PC ARE SAVED IN THE FORK BLOCK, INTERRUPTS AND 
O5FC 1470 ; TIMEOUT ARE ENABLED, THE CHANNEL IS RELEASED, AND A RETURN TO THE CALLER’S 
O5SFC 1471 ; CALLER IS EXECUTED. 
O5FC 1472 ;- 
O5SFC 1473 
OSFC 1474 IOC$WFIRLCH: : ;WAITFOR INTERRUPT/TIMEOUT AND RELEASE CHANN 
6E 02 CO OS5FC 1475 ADDL #2, (SP) ;CALCULATE OFFSET TO NORMAL RETURN 
10 AE 53 7D OSFF 1476 MOVQ R3,UCB$L_FR3(R5) ;SAVE REGISTERS R3 AND R4 
OC AS BEDO 0603 1477 POPL UCB$L_FPC(RS5) ;SAVE INTERRUPT RETURN ADDRESS 
64 AS 03 AB O607 1478 BISW #UCB$M_INT!UCB$M_TIM,UCB$W_STS(R5) ;ENABLE INTERRUPT AND TIMEOUT 
8E C1 060B 1479 ADDL3 (SP)+,LAEXE$GL_ABSTIM,UCB$L_DUETIM(RS) ;SET TIMEOUT TIME 
00000000’ EF o60D 
6C AS 0612 
0040 8F AA 0614 1480 BICW #UCB$M_TIMOUT ,UCB$W_STS(R5) ;CLEAR UNIT TIMED OUT 
64 AS 0618 
O61A 1481 ENBINT ;ENABLE INTERRUPTS 
FA63 31 O61D 1482 BRW IOC$RELCHAN ;RELEASE ALL CHANNELS AND RETURN TO CALLER 

0620 1483 


0620 1484 
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~1 0620 1486 .SBTTL ALLOCATE SYSTEM PAGE TABLE 
0620 1487 ;+ 
0620 1488 ; IOC$ALLOSPT - ALLOCATE SYSTEM PAGE TABLE 
0620 1489 ; 
0620 1490 ; THIS ROUTINE ALLOCATES SYSTEM PAGE TABLE (SPT) ENTRIES. 
0620 1491 ; 
0620 1492 ; INPUTS: 
0620 1493 ; 
0620 1494 ; R1 = NUMBER OF SPT ENTRIES TO BE ALLOCATED 
0620 1495 ; 
0620 1496 ; BOO$GL_SPTFREL = LOWEST FREE VPN 
0620 1497 ; BOO$GL_SPTFREH = HIGHEST FREE VPN 
0620 1498 ; 
0620 1499 ; IT IS ASSUMED THAT THE CALLER IS RUNNING AT IPL$_SYNCH. 
0620 1500 ; 
0620 1501 ; OUTPUTS: 
0620 1502 ; 
0620 1503 ; RO = SUCCESS INDICATION. 
0620 1504 ; R2 = STARTING PAGE NUMBER ALLOCATED (SVPN). 
0620 1505 ; R3 = ADDRESS OF BASE OF SYSTEM PAGE TABLE (MMG$GL_SPTBASE). 
0620 1506 ; 
0620 1507 ; R1 IS PRESERVED ACROSS CALL. 
0620 1508 ;- 
0620 1509 IOC$ALLOSPT:: ;ALLOCATE SYSTEM PAGE TABLE. 
50 D4 0620 1510 CLRL RO ; ASSUME FAILURE 
00000000‘EF DO 0622 1511 MOVL LABOO$GL_SPTFREL,R2 ;GET NEXT AVAILABLE SYSTEM VPN 
52 0628 
53 52 51 C1 0629 1512 ADDL3 =R1,R2,R3 | ;COMPUTE NEXT WITH THIS ALLOCATION 
53. Di O062D 1513 CMPL R3,LABOO$GL_SPTFREH ;ARE THERE ENOUGH AVAILABLE? 
00000000'EF 062F 
10 1E£ 0634 1514 BGEQU 10$ ;BR IF NO 
53 DO 0636 1515 MOVL R3,LABOO$GL_SPTFREL ;MARK THE ENTRIES ALLOCATED 
00000000’EF 0638 . 
OO0000000’EF DO O063D 1516 MOVL LAMMG$GL_SPTBASE,R3 ;GET ADDR OF BASE OF SPT 
53 0643 
50 D6 0644 1517 INCL RO ;SET SUCCESS 


0646 1518 10$: 
05 0646 1519 RSB ‘ 


IOSUBNPAG 


V03-033 


-1 


;RASO300 
;RASO300 
3;RASO300 
;RASO300 
sRASO3O00 
;RASO300 
;RASO300 
;RASO300 
;RASO300 
;RASO300 
;RASO300 
;RASO300 
;RASO300 
;RASO300 
;RASO300 
;RASO300 
;RASO300 
;RASO300 


;RASO300. 


;RASO300 


;ROWO234 
;ROWO0234 
-3ROWO0234 
;ROW0234 
;ROWO234 
;ROW0O234 
;KPLOOO1 
;KPLOOO1 
;RASO300 
3;RASO300 
;RASO300 
sRASO300 
s;RASO300 
s;RASO30O0 
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0647 1521 .SBTTL CONVERT DEVICE NAME AND UNIT 

0647 1522 ; 

0647 1523 ; IOC$CVT_DEVNAM - Convert device name and unit 

0647 1524 ; 

0647 1525 ; This routine is called to-convert a device name and unit number to a physical 

0647 1526 ; device name string. 

0647 1527 ; 

0647 1528 ; Inputs: 

0647 1529 ; 

0647 1530 ; The caller is assumed to have PROBEd the output buffer for write access. 

0647 1531 ; The I/O data base is locked for read access. This means that the caller 

0647 1532 ; owns the I/O data base mutex and/or is at IPL SYNCH or higher. 

0647 1533 ; 

0647 1534 ; RO = length of output buffer. 

0647 1535 ; Ri = address of output buffer. 

0647 edit 3 R4 = name string formation mode, one of: 

0647 S24 -1 (DVI$_DEVNAM) -- a name suitable for displays 

0647 3:3 for non-local devices, return node$ddcn 

0647 os for local devices: 

0647 oo ae if in cluster and file oriented device, return node$ddcn 

0647 .6 ; otherwise, return ddcn 

0647 .7 3 O (DVI$_FULLDEVNAM) -- a name with appropriate node information 

0647 > Ue if allocation class not zero and file oriented device, return 

0647 9 ;3 $allocliass$ddcn 

0647 .10 =; otherwise, return node$ddcn 

0647 ~11°5; | (DVI$. ALLDEVNAM) -~ a name with allocation class information 

0647 12 ; if allocation class not zero, return $alloclass$ddcn 

0647 13 ; otherwise, return node$ddcn 

0647 14 ; 2 (no GETDVI item code) -- an old fashioned name 

0647 15. ; return ddcn 

0647 16 ; 3 (no GETDVI item code) -- a secondary path name for displays 

0647 17; same as ~-1 except secondary path name returned 

0647 18 ; 4 (no GETDVI item code) -- path controller name for displays 

0647 19 ; same as ~1 except no unit number is appended 

0647 .20 ; Note: if the node name string is null, node$ is not returned. 

0647 1536 ; R5 = address of device UCB. 

0647 1537 ; 

0647 1538 ; Outputs: 

0647 1539 ; 

0647 1540 ; The device name and unit number are converted and stored in the specified 

0647 1541 =; output buffer. The following register values are returned: 

0647 1542 ; 

0647 1543 ; RO = Final conversion status. 

0647 A ae SS$_NORMAL or 

0647 w2: 3 SS$_BUFFEROVF (an alternate success status which 

0647 Apc ae indicates that the supplied buffer could not 

0647 -4 ; hold the device name string) 

0647 De R1 = Length of conversion string. R1 = 0 if the alternate 

0647 .6 3 path name was requested but none exists. 

0647 ne ao 

0647 .8 

0647 9 ;3 

0647 .10 ; Working storage (offsets from R7) 

0647 211~=; 

0647 12 $OFFSET O,POSITIVE,< - 

0647 13 <BINNUM,8>, - ;Binary value to convert to ASCII 

0647 14 = 


; add new working storage cells before this line 
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0647 15 <RESRO>, —- ;Result RO 
0647 16 <RESR1I>, - ;Result R1 
0647 17 <SCRLEN,O> - s;amount of working storage 
0647 18 <RESR2>, - ;saved R2 
0647 19 <RESR3>, - ;saved R3 
0647 .20 <RESR4>, - ;saved R4 
0647 .21 > 
0000 BINNUM: 
0008 RESRO: 
OOO0C RESR1: 
0010 SCRLEN: 
0010 RESR2: 
0014 RESR3: 
0018 RESR4: 
0647 .22 
0647 23 IOC$CVT DEVNAM:: ;Convert device name and unit 
0647 24 = 

BB 0647 25 PUSHR #AMK<R2,R3,R4,R5,R6,R7> ;Save registers 
064B 26 ; 
064B 27 ; Push a quadword onto the stack. The quadword will land 
064B 28 ; on the stack so that when the POPR at the end of the routine 
064B 29 ; is executed, RO will contain the routine value, and R1 will 
064B .30 ; contain the length of the formatted device name. 
064B -31 ; 

7D 064B .32 MOVQ #SS$_ NORMAL, ~-(SP) ;Put a 1 and a O on the stack 

7C O64E .33 CLRQ -(SP) ;Init binary number working area. 
0650 .34 ASSUME SCRLEN EQ 16 

DO 0650 35 MOVL SP, R7 ;Setup result RO and R1 pointer in R7. 
0653 .36 ; 
0653 .37 ; Precede the device name with a "_“ (underscore character) to 
0653 38 ; indicate that this is a physical device name. 
0653 39 ; 

9A 0653 .40 MOVZBL #AA/_/,R3 ;Put underscore character in R3 

30 0657 41 BSBW PUTCHAR ;Put it in the output buffer 
OG5A 42 ; 
O65A -43 ; Check for a possible nodename. If it exists, determine which format 
O65A -44 ; of name was requested by the caller. 
O65A -45 ; 

DO O65A -46 MOVL UCB$L_DDB(R5) ,R6 ;Get DDB address 

DO O65E .47 MOVL DDB$L_SB(R6) ,R2 ;Get System Block address 

13 0662 48 BEQL LOCAL_NAME © ;None, leave 

E1 0664 49 BBC #DEV$V NNM,— ;Branch if nodename not wanted 
0666 .50 UCB$L_DEVCHAR2(R5) , LOCAL_NAME 
0669 .51 CASE R4, - ;Dispatch on type of output requested: 
0669 .52 limit=¥-1, displist=< - 
0669 .53 DISPLAY_NAME, — ; -1 ==> node$dev: for disks, else dev: 
0669 54 FULL NAME, - ; O ==> $allocis$dev: or node$dev: 
0669 55 ALLOC_NAME, - ; 1 ==> $allocis$dev: or node$dev: 
0669 56 LOCAL _NAME, - ; 2 ==> just dev: 
0669 .57 SECONDARY_NAME, —- ; 3 ==> secondary path 
0669 .58 DISPLAY _NAME — ; 4 ==> same as -1 sans unit number 
0669 .59 > , 

11 O67B .60 BRB EXDVNM ; All others are NOPs. 
067D .61 . 
067D .62 FULL NAME: 

Et 0670 .63 BBC #DEVS$V_FOD, - 3;A file oriented device? 
0682 .64 UCB$L_DEVCHAR(RS5), - 
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0682 -65 ADD_NODE ;Branch if not file oriented device. 
0682 . 66 
0682 -67 ALLOC_NAME: 
0682 .68 
SA 0682 .69 MOVZBL DDB$L_ALLOCLS(R6), - ;Setup allocation class value 
0686 .70 BINNUM(R7) ; for conversion. 
13 0686 71 BEQL ADD_NODE ;If none return nodetdevice name. 
30 0688 .72 BSBW PUTDOLLAR ;Prepend allocation class with a ‘$’ 
10 O68B 73 BSBB PUTNUM ;Convert allocation class number ta 
O068D .74 sASCII and put it in the buffer 
11 O68D .75 BRB ADD_DOLLAR ;Append dollar sign to alloc. class 
O68F :76 3; and add device name to buffer. 
O68F .77 
O68F .78 SECONDARY _NAME: 
El O68F 79 BBC #DEV$V_2P,- ;Branch if device not dual-~pathed. 
0691 .80 UCB$L_DEVCHAR2(R5) ,- ; (I.E. there is no secondary path to 
0693 .81 NO_SECONDARY ; return.) 
DO 0694 82 MOVL UCB$L_DP_DDB(R5) ,R6 ;Get secondary DDB. 
13 0699 .83 BEQL NO SECONDARY ;Branch to no sec. path if none. 
DO O069B .84 MOVL DDB$L_SB(R6) ,R2 ;Get alternate SB. 
O69F .85 
O69F .86 DISPLAY_NAME: 
D1 O69F .87 CMPL R2,#SCS$GA_LOCALSB ;Is it the perm local system block? 
06A1 
12 QO6A6 .88 BNEQ ADD_NODE ;Return nodetdevnam for non-local devs. 
O6A8 .89 IFNOCLSTR LOCAL_NAME ;Return devnam if not part of a cluster. 
Ei 0680 90 BBC #DEV$V_FOD, - ;A file oriented device? 
06B5 91 UCB$L_DEVCHAR(R5), - 
O6B5 .92 LOCAL _NAME ;Branch if not a file oriented device. 
06B5 .93 ;Its a local disk in a cluster: return 
O6B5 .94 ;nodet+device name format. , 
06B5 .95 ; 
O6B5 -96 ; Return node name plus device name. Copy node name to buffer and 
O6B5 -97 3; suffix with a "$" before moving in rest of device name. 
O06B5 -98 ; 
0685 .99 ADD NODE: 
9E O6BS  .100 MOVAB SB$T_NODENAME(R2) ,R2 ;Point to name field 
95 O6B89 .101 TSTB (R2) ;Is the node name null? 
13° O6BB .102 BEQL LOCAL NAME ;Skip inserting node name, if its null. 
10 O6BD .103 BSBB PUTASCIC ;Copy counted ASCII str. to output buf. 
O6BF .104 ADD DOLLAR: 
10 O6BF' .105 BSBB PUTDOLLAR ;Append dollar sign to node name 
06C1 -106 ; 
O6C1 .107 ; Copy device name to buffer. 
06C1 .108 ; 
06C1 - 109 LOCAL_NAME: 
9E 0O6C1 110 MOVAB DDB$T_NAME(RG) ,R2 ;Get address of ASCIC device name. 
10 O6C5~ .111 BSBB PUTASCIC ;Copy counted ASCII str. to output buf. 
Bi O6C7 .112 CMPW RESR4(R7) , #4 ;Do0 we want the unit number? 
13 O6CB .113 BEQL EXDVNM ;Nope 
3C O6CD .114 MOVZWL UCB$W_UNIT(R5), -— ;Setup device unit number for 
06D1 115 BINNUM(R7) ; converstion to ASCII. 
10 O6D1 116 BSBB PUTNUM ;Convert unit number to ASCII. 
0603 .117 ; 
0603 .118 ; Terminate the device name with a ":" (colon). 
O6D3 .119 ; 
9A Q6D3. .120 MOVZBL #AA/:/,R3 ;Put a "“:" in RB 
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;RASO300 36 10 O6D6 .121 BSBB PUTCHAR ;Put the ":" in output buffer 

;RASO300 O6D8 .122 ; 

;RASO3O00 O6D8 .123 ; Clean up the stack and exit. The stack has been set up so that 

;RASO300 O6D8 .124 ; the proper values will be stored in RO and R1 by the POPR. 

;RASO300 O06D8 .125 ; 

;RASO300 5E 08 CO O6D8 .126 EXDVNM: ADDL #RESRO,SP ;Remove everything upto result RO 

;RASO300 O6DB- .127 ;from the stack 

;RASO300 OOFF 8F BA. O6DB- .128 POPR #AMKRO,R1,R2,R3,R4,R5,R6,R7> ;Restore registers 

;RASO300 05 O6DF .129 RSB ;Return 

;RASO300 O6EO .130 

;RASO300 O6EO .131 ; 

.;RASO300 O6EO .132 ; Come here when the secondary device name was requested but none exists. 

;RASO300 O6EO .133 ; 

;RASO300 O6EO .134 NO_ SECONDARY: 

3;RASO300 OC A7 D4 O6EO .135 CLRL RESR1(R7) ;Clear count of characters 

;RASO300 F3 11 OG6E3 .136 BRB EXDVNM sand return. 

;RASO3OO Q6E5 .137 

;RASO300 O6ES .138 

;RASO300 O6E5 .139 ;++ 

;RASO300 O6E5 .140 ; The following code is a local subroutine to convert binary to ASCII and 

;RASO300 O6GES .141 ; put the ASCII equivalent in the output name buffer. 

;RASO300 O6E5 -142 ; 

;RASO300 O6E5 -143 ; Inputs: 

;RASO300 O6E5 .144 ; 

;RASO3OO0 O6E5 .145 ; BINNUM(R7) binary number to be converted (a quadword with high 

sRASO3OO O6E5 .146 ; longword zeroed 

;RASO300 O6E5 .147 ; 

;RASO300 O6E5 .148 ; Outputs: 

;RASO300. O6E5 .149 ; The number at BINNUM(R7) is converted to ASCII and stored in the 

;RASO300 O6E5 .150 ; device name buffer. 

;RASO300 O6ES .151 ;-- 

;RASO3O00 O6ES .152 PUTNUM: 

;RASO300 53 01 8E O6ES  .153 MNEGB #1, R3 ;Get end-of-number marker. 

;RASO300 7E 53 90 O6EB .154 10$: MOVB R3, -(SP) ;Move digit/marker to scratch. 

sRASO300 67 67 OA 7B O6EB~ .155 EDIV #10, BINNUM(R7), - ;Divide number by 10, overwrite number 
53 OGEF 

;RASO300 O6FO .156 BINNUM(R7), R3 swith quotient, put remainder in R3. 

;RASO300 F6 12 O6FO .157 BNEQ 10$ ;If quotient not.zero, go save this 

;RASO300 O6F2 .158 . ; digit and get the next one. 

;RASO3O0O O6F2 .-159 ; : 

;RASO300 O6F2 .160 ; Get digits -- most significant first (then saved ones), convert them to 

3;RASO300 O6GF2 .161 ; ASCII, and put them in the output buffer 

;RASO300 OQO6F2 -162 ; 

:;RASO3O00 53 30 80 O6F2 .163 50$: ADDB #¥AA/O/, RB ;Convert binary digit to ASCII 

;RASO300 17 10 O6F5 .164 BSBB PUTCHAR ;Copy digit to output buffer 

;RASO300 53 BE 90 O6F7 .165 MOVB (SP)+, R3 ;Get another digit 

;RASO300 F6 18 O6FA .166 BGEQ 50$ ;Branch if the end 

;RASO300 05 O6FC .167 RSB 

;RASO300 O6GFD .168 

;RASO300 OGFD .169 ;++ 

;RASO300 O6FD .170 ; The following code is a local subroutine to copy a counted ASCII string 

;RASO3O00 OGFD .171 3; to the output name buffer. 

;RASO300 O6FD .172 ; 

;RASO300 O6FD .173 3; Inputs: 

;RASO300. OGFD .174 ; 

;RASO300 O6FD .175 ; R2 Beginning address of a counted ASCII string 


;RASO300 OGFD .176 
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O6FD .177 ; Outputs: 
QO6FD  .178 ; The counted ASCII string pointed to by R2 is cepied to the device 
O6FD  .179 ; name buffer. 
O6FD .180 ;-- 
O6FD .181 PUTASCIC: 
9A O6FD- .182 MOVZBL (R2)+, R4 ;Get counted string length. 
13 0700 . 183 BEQL 90$ ;If no characters, leave. 
90 0702 .184 5§: MOVB (R2)+, RB ;Move one byte to output buffer. 
10 0705 .185 BSBB PUTCHAR ;Put the character in the output buffer. 
F5 0707 .186 SOBGTR R4, 5$ ;Branch if more to copy. 
05 O70A~ .187 90$: RSB ;All done, return. 
070B 1603 
O070B 1604 ;++ 
0708 1605 ; 
070B 1606 ; The following code is a local subroutine to place a given 
070B 1607 ; byte in the output buffer. A count is kept of all characters 
0708 1608 ; placed in the output buffer. If the output buffer is full, 
070B -1 ; the byte is not copied, the count is not increased, and the 
070B .2 ; return status for IOC$CVT_DEVNAM is changed to SS$_BUFFEROVF 
070B .3 ; (an alternate success status). 
070B .4 =; 
0708 -5 3; Inputs 
070B .6 3; RO Count of unstored character slots remaining in output buffer 
070B wt 3 R1 Address of next unused character siot in output buffer 
070B .8 ; R3 Character to be placed in the buffer 
070B 9 ; 
070B .10 ; Implicit inputs: 
070B ay ee RESRO(R7) longword holding final IOC$CVT_DEVNAM status 
070B 12 ; RESR1(R7) longword holding final IOC$CVT_DEVNAM count of 
070B 13; characters stored in the buffer (to be 
070B 14 =; returned in R1 ; 
070B 15 + 
070B 16 ; Outputs: 
070B 17; None. 
0708 18 =; 
070B 19 ; Implicit outputs: 
0708 .20 ; If RO >= zero: 
070B .271 =; RO <== RO - 1 
070B .22 3 (R1) <== R3 
0708 23 =; R1 <== R1 + 1 
070B 24 ; : RESR1(R7) <== RESR1(R7) + 1 
070B 25 ; otherwise: 
070B .26 ; RESRO(R7) <== SS$_BUFFEROVF 
070B .27 3++ 
070B 28 ; PUTDOLLAR is an internal routine which is the equivalent of: 
070B .29 ; 
070B .30 ; MOVB #AA/$/, RB 
070B .31°>; BSBB . PUTCHAR 
070B .32 37-7 
070B .33 PUTDOLLAR: 
90 0708 .34 MOVB #AA/G/, RB ;Setup to put "$" in output buffer. 
O70E .35 PUTCHAR: 
D7 O7OE .36 DECL RO ;Decrease characters remaining count. 
19 0710 .37 BLSS 904 ;Branch if no more characters remaining. 
90 0712 .38 MOVB R3, (R1)+ ;Copy character to output buffer 
D6 0715 .39 INCL. RESR1(R7) ;Count characters stored 
05 0718 .40 RSB ;Return 
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;Set buf fer overflow status 
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-14 0720 1623 .SBTTL BROADCAST TO A TERMINAL 
0720 1624 ;++ 
0720 1625 ; IOC$BROADCAST 
0720 1626 ; 
0720 1627 ; This routine will allow driver fork processes to broadcast a 
0720 . 1628 ; given message to given terminal. The broadcast request is 
0720 1629 ; dispatched to the proper terminal and control returns immediately 
0720 1630 ; to the caller. Some time later the broadcast will complete, and 
0720 1631 ; at that time ail the necessary post-processing will be done. 
0720 1632 ; 
0720 1633 ; This routine does not implement all the features of the $BRDCST system 
0720 1634 ; service, but only the bare minimum necessary to send a message to a 
0720 1635 ; single terminal. For more information about the terminal broadcast 
0720 1636 ; mechanism, see the module SYSBRDCST. 
0720 1637 ; 
0720 1638 ; Input: 
0720 1639 ; 
0720 1640 ; R1 = Message length 
0720 1641 ; R2 = Message address 
0720 1642 ; R5 = Address of target terminal’s UCB 
0720 1643 ; 
0720 1644 ; Implicit input: 
0720 1645 ; 
0720 1646 ; IPL$_ASTDEL <= CURRENT_IPL <= UCBS$B_FIPL(RS5) 
0720 1647 ; 
0720 1648 ; Output: 
0720 1649 ; 
0720 1650 ; None. The contents of R1 .. RS are preserved across the call. 
0720 1651 ; 
0720 1652 ; Routine value: 
0720 1653 ; 
0720 1654 ; SS$_ NORMAL - The broadcast completed successfully. 
0720 1655 ; SS$_INSFMEM - Insufficient dynamic nonpaged pool for the request. 
0720 1656 ; SS$_DEVOFFLINE - The target terminal has rejected the request. 
0720 1657 ; SS$_ILLIOFUNC - The specified UCB does not belong to a terminal. 
0720 1658 ; (Therefore a BROADCAST is an illegal I/O function.) 
0720 1659 ;-- 
0720 1660 
00000000 0720 1661 SAVED RO = O ; 
00000004 0720 1662 SAVED_R1 = 4 ; 
00000008 0720 1663 SAVED_R2 = 8 So ad 
Oo00000C 0720 1664 SAVED_R3 = 12 ; . Symbolic offsets to saved registers 
00000010 0720 1665 SAVED_R4 = 16 ; 
00000014 0720 1666 SAVED_RS = 20 ; 
0720 1667 
0720 1668 IOCS$BROADCAST:: ; Broadcast to a terminal 
50 OOF4 8F 3C 0720 1669 MOVZWL #SS$_ILLIOFUNC,RO ; Assume device not a terminal 
02 E1 0725 1670 BBC #DEVS$V_TRM,-— ; Branch if not a terminal 
56 38 A5 0727 1671 UCB$L_DEVCHAR(R5),14$ ; 
3F BB O72A 1672 PUSHR #AM<RO,R1,R2,R3,R4,R5> 3; Save RO .. RS 
; TCMO003 51 30 cO O72C .1 ADDL2 #TTYSK_WB_LENGTH,R1 ; Calculate the total pool required 
~1 6E 0124 8F 3C O72F 1674 MOVZWL. #SS$_INSFMEM,SAVED RO(SP); Assume allocation failure 
F8C9Q’ 30 0734 1675 BSBW EXESALONONPAGED ; Allocate the pool 
44 50 EQ9 0737 1676 BLBC RO,13$ ; Exit if error 
O73A 1677 3 
073A 1678 ; Fill in the Terminal Write Packet (TWP). 
O73A 1679 ; Note that EXESALONONPAGED the pool size 
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08 A2 51 


10 A2 01 


50 55 
F86F’ 
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BROADCAST TO A TERMINAL 


BO 
90 


90 


DO 
QE 


C1 


QE 
D4 


28 


DO 
31 


073A 
073A 
073A 
O73E 
0740 
0742 
0744 
0746 
074A 
074D 
O74F 
0752 
0754 
0756 
0759 
075B 
O75E 
0760 
0763 
0765 
0767 
0767 
0767 
0767 
0767 
0767 
0767 
0767 
0767 
0767 
0767 
0767 
0767 
O76A 
O76E 
0771 
0774 
0777 
O77A 
077C 
O77E 
0780 
0781 
0785 
0786 
0789 
0788 
078B 
078B 
078B 
078B 
0788 
078B 
078B 
O78E 


1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 


13$: 
14$: 
69$: 


80$: 


[Th oe oo we we we 


3; in R1 


movw 
MOVB 


MOVB 


MOVL 
MOVAB 


ADDL3 


MOVAB 


CLRL 
PUSHL 
MOVC3 


ee we we we we ee we we we we we 


3-JUN-1984 
12-MAR-1982 17: 
and the pool address in 
R1,TTYSW_WB_SIZE(R2) 
#DYN$C_TWP,-~ 
TTY$B_WB_TYPE(R2) 
#IPL$_QUEUEAST, - 
TTY$B_WB_FIPL(R2) 
#1,TTY$L_WB_FR3(R2) 
TTY$L_WB_DATA(R2) ,- 
TTY$L_WB_NEXT(R2) 
SAVED_R1(SP),- 
TTY$L_WB_NEXT(R2),7- 
TTY$L_WB_END(R2) 

BAEND_ BROADCAST, - 
TTY$L_WB_RETADDR(R2) 
TTY$L_WB_IRP(R2) 

R2 

4+SAVED_R1(SP),- 
@4+SAVED_R2(SP),- 
TTY$L_WB_DATA(R2) 


TWP is no longer needed, 
field of the TWP will contain 
System address: request 
1: request 
2: request 
MOVL (SP) ,R3 
MOVL 4+SAVED_R5(SP),R5 
BSBw EXESALTQUEPKT 
POPL RO 
MOVZWL #SS$ NORMAL, SAVED _RO(SP) 
TSTL TTY$L_WB_END(RO) 
BEQL 695 
BGTR 80$ 
POPR #AMK<RO,R1,R2,R3,R4,R5> 
RSB 
MOVZWL #SS$ DEVOFFLINE,- 
SAVED_RO(SP) 
BSBw COM$DRVDEALMEM 
BRB 13$ 


The following code performs all 


ND BROADCAST: 


MOVL 
BRW 


is the TWP. 


R5,RO 
EXE$DEANONPAGED 


> 
> 
> 
s 
> 
s 
. 
> 
. 
> 
. 
, 
. 
> 
. 
, 
. 
% 
’ 
’ 
’ 
3 
. 
? 
. 
> 
, 


or is rejected outright, 
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R2. 

Set TWP size 

Set TWP structure type 

Set the TWP fork IPL (for later use) 
Request refresh of read prompt 


Set address of message start 


Set address of message end 


Set callback address 


Clear pointer to associated IRP 
Save TWP address 

Copy the message text to the TWP 
(note the stack depth changed) 


Queue the broadcast request to the terminal. 
The disposition of the broadcast request will 
by the contents of TTY$L_WB_END. 
accepted by a remote terminal, 
and may be deallocated. 


be determined 

if the request is 

the 

The TTY$L_WB_END 


Note that 


one of the following values: 


accepted by TTDRIVER 
accepted by RTTDRIVER 3 
rejected 


Oe ee ee ee et we ee we we we ee ee we we 


’ 
% 


‘J 


Put TWP address in R3 

Restore UCB address 

Queue the request to the terminal 
Remove TWP address from the stack 
Assume success 

Check for rejection 

Branch if request rejected 
Branch if remote terminal 
Restore the registers 
Return 

Set broadcast rejection status 


accepted 


Deallocate the TWP 
Take common exit path 


of the necessary broadcast post-processing. 
This entry point is FORKed to at IPL IPL$ _QUEUEAST from the terminal 
The fork block 


driver. 


Post-processor for broadcast requests 
Copy TWP address 
Deallocate the TWP and return 
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3; ACGO0399 
;ACGO399 
3; ACGO0399 
':ACGO399 
3; ACGO0399 
:ACGO0399 
3; ACGO399 
;ACGO0399 
;ACGO0399 
3; ACGO0399 
3; ACG0399 
;ACG0399 
;ACGO0399 
3;ACGO0399 
3; ACGO0399 
:ACGO399 
;ACG0399 
3; ACGO399 
3;ACGO0399 
;ACGO399 
;ACGO0399 
;ACGO0399 
3; ACGO0399 
3; ACGO0399 
3; ACG0399 
;ACGO399 
3; ACG0399 
;ACG0399 
;ACGO0399 
;ACGO0399 
3; ACGO0399 
;ACGO399 
3; ACGO0399 
;ACGO0399 
;ACGO0399 
;ACGO399 
3; ACGO399 
3; ACGO0399 
;ACGO399 
3; ACGO0399 
;ACGO399 
;ACGO399 
;ACGO0399 
; ACGO399 
3; ACGO399 
;ACGO399 
;ACGO0399 
;ACGO0399 
;ACGO399 


;ACGO0399 
;ACG0399 
;ACGO399 
3; ACGO399 
;ACGO0399 


;ACGO399 


00000000’ 8F 
OA 
50 


00000000'9F 
5B 
54 AB 
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SCAN THE I/O DATA BASE 12-MAR-1982 17:12:23 DISKSVMSMASTER: [SYS.SRC] IOSUBNPAG( 29) 
0791 ~2 .SBTTL SCAN THE 1/0 DATA BASE 
0791 23 3F 
0791 -4 ; IOCS$SCAN_IODB - Scan the 1/0 data base and return next block. 
0791 27> 4 
0791 -6 ; This routine is called to scan the device lists in the IO data base and 
0791 .7 ; return a pointer to the next block in the list. Context is kept in R11 
0791 -8 ; and by using back pointers. 
0791 9 ; 
0791 -10 ; Inputs: 
0791 -11 = =3 
0791 12 ; The I/O data base is locked for read access. This means that the caller 
0791 13; owns the I/O data base mutex and/or is at IPL SYNCH or higher. 
0791 14 ; 
0791 15 ; Rii = QO implies first call 
0791 16 ; R11 <> O indicates that R11 is pointer to current DDB 
0791 17; Ri0 = O implies end of UCB chain 
0791 18 ; R10 <> 0 indicates that R10 is pointer to current UCB 
0791 19 ; 
0791 .20 ; Outputs: 
0791 21 =; 
0791 22 3 RO = Success status. 
0791 23 ; R10 = Pointer to UCB 
0791 24 ; R11 = Pointer to DDB 
0791 25 ; 
0791 .26 3 All other registers preserved. 
0791 e27 «3 
0791 28 3- 
0791 29 
0791 -30 IOC$SCAN_IODB:: 
0791 -31 
DO 0791 .32 MOVL #1,R0 ; Success 
D5 0794 33 TSTL R11 ; Initial condition? 
13 0796 .34 BEQL 50$ ‘+; Ves 
D5 0798 .35 TSTL R10 ; End of chain? 
13 O79A .36 BEQL 10$ ; Yes 
DO O79C 37 MOVL UCB$L_LINK(R10),R10 ; Get next UCB 
13. O7AO .38 BEQL 10$ ; None 
05 O7A2 39 RSB 
O7A3 .40 
D5 QO7A3 -41 #10$: TSTL DDB$L_LINK(R11) ; At end of DOB chain? 
13. O7AS -42 BEQL 30$ ; Yes 
DO O7A7 -43 MOVL DDB$L_LINK(R11),R11 ; No, get next one 
DO O7AA -44 20$: MOVL DDB$L_UCB(R11),R10 ; Pick up first UCB 
13 O7AE .45 BEQL 10$ ; None, get next DDB 
05 0O7B0 .46 RSB 
07B1 -47 
DO 0O7B1 -48 30$: MOVL DDB$L_SB(R11),R11 ; Get back to parent system block 
DO 0O7B5 49 40$: MOVL SB$L_FLINK(R11),R11 ; Get next system block 
D1 QO7B8 50 CMPL R11,#SCS$GQ_ CONFIG ; End of chain? 
O7BA : 
12 O7BF .51 BNEQ 60$ ; No 
D7 O7Ci -52 DECL RO 
05 0o7C3 .53 RSB 
07C4 .54 
DO O7C4 .55 50$: MOVL @#SCS$GQ_ CONFIG,R11 3; Pick up first system block 
O7CA 
DS O7CB 56 60$: TSTL SB$L_DDB(R11) ; Is there a DDB chain? 
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V03-033 


;ACGO399 
;ACGO399 
;ACGO399 
; ACGO399 


ES 
5B 54 AB 


~ NONPAGED I/O RELATED SUBROUTINES 
THE I/O DATA BASE 


SCAN 


13 
DO 
11 


O7CE 
07D0 
07D4 
07D6 


.57 
.58 
.59 
.60 


BEQL 
MOVL 
BRB 


3-JUN- 1984 
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40$ 
SB$L_DDB(R11),R11 
20$ 


11:33:30 
17:12:23 
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; No, go try next SB 


> 


Yes, 


get the first DDB 
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V03-033 SCAN THE I/O DATA BASE BOTH PRIMARY & SE 12-MAR-1982 17:12:23 DISK$VMSMASTER: [SYS.SRC]IOSUBNPAG(30) 
3; ACGO399 07D6 -62 -SBTTL SCAN THE I/0 DATA BASE BOTH PRIMARY & SECONDARY PATHS 
;ACGO399 07D6 .63 ;++ 
3;ACGO0399 07D6 -64 ; IOC$SCAN_IODB_2P 
;ACGO0399 07D6 -65 ; 
;ACGO0399 07D6 .66 ; This routine is called to scan the device lists in the I0 data base and 
“3; ACGO399 07D6 .67 ; return a pointer to the next block in the list. Context is kept in R10 
;ACGQ399 07D6 .68 ; and R11 and by using back pointers. 
;ACG0399 07D6 .69 ; 
3ACGO399 0706 -70 ; SCAN _IODB_2P differs from SCAN_IODB in that it will scan both the primary 
sACGO0399 07D6 -71 3; and secondary UCB chain for each DDB. This means that if a device is 
;ACGO399 0706 .72 ; dual-pathed, SCAN _IODB_2P will return the address of its UCB twice, once in 
;ACGO0399 07D6 .73 3; the context of the primary controller and once in the context of the 
3; ACGO0399 07D6 .74 ; secondary. 
3;ACGO0399 0706 75 3; 
;ACG0399 0706 -76 ; Inputs and Outputs are identical to IOC$SCAN_IODB. 
;ACGO0399 07D6 .77 377 
3;ACGO0399 07D6 .78 
;ACGO0399 0706 .79 ITOCSSCAN IODB_ 2P:: 
;ACGO399 0706 .80 
;ACGO399 50 01 DO 07D6 .81 MOVL #1,R0 ; Success 
3; ACGO399 5B DS 0709 .82 TSTL R11 ; Initial condition? 
3; ACGO399 41 13 O7DB .83 BEQL 60$ ; Yes 
;ACGO399 5A DS o7DD .84 TSTL R10 ; Caller signalled end of chain? 
;ACGO399 1C 13 O7DF .85 BEQL 30$ ; Yes, done with this DDB 
;ACGO399 O7E1 .86 ; 
;ACGO399 O7E1  .87 ; At this point we must decide if we’re following the primary or secondary 
s:ACGO399 O7E1 -88 ; chain of UCBs on this DDB. 
:ACGO399 O7E1 .89 ; 
;ACGO0399 5B 28 AA D1 O7E1 .90 CMPL UCB$L_DDB(R10),R11 ; Are we traversing the primary chain? 
;ACG0399 07 12) O7ES -91 BNEQ 10$ ; Branch if we’‘re following secondary 
:ACGO399 5A 30 AA DO O7E7 .92 MOVL UCB$L_LINK(R10),R10 ; Get next UCB on primary chain 
3;ACGO0399 09 13 O7EB .93 BEQL 20$ ; Branch if none to try secondary chain 
;ACGO399 05 OQO7ED .94 RSB ; Else return UCB address to caller 
;ACGO399 O7EE .95 ; 
;ACGO399 O7EE -96 ; Get next UCB on secondary chain. 
;ACGO399 O7EE .97 ; 
;ACGO399 5A O0A4 CA DO O7EE .98 10$: MOVL UCB$L_DP_LINK(R10),R10 ; Get next UCB on secondary chain 
sACGO399 08 13 O7F3 .99 BEQL 30$ ; Branch if none left 
;ACGO399 OS O7FS5 - 100 RSB ; Else return UCB address to caller 
;ACGO0399 O7F6  .101 ; 
3;ACGO399 O7F6 .102 ; No UCBs left on primary chain; traverse secondary chain if present. 
;ACGO399. O7F6 .103 ; 
3ACGO399 5A 40 AB DO O7F6 .104 20$: MOVL DDB$L_DP_UCB(R11),R10 ; Get first UCB on secondary chain 
3;ACGO399 01 13 O7FA .105 BEQL 30$ ; Branch if none to try next DDB 
;ACGO399 OS O7FC .106 RSB ; Else return UCB address to caller 
;ACGO0399 O7FD .107 ; 
;ACGO399 O7FD .108 ; Step to next DDB. 
3;ACGO0399 O7FD 109 ; 
3;ACGO0399 6B DS O7FD -110 30§$: TSTL DOB$L_LINK(R11) ; At end of DDB chain? 
;ACGO0399 OA 138 O7FF .111 ; BEQL 40$ ; Yes, try next system block 
3ACGO0399 5B 6B DO 0801 .112 MOVL DDB$L_LINK(R11),R11 ; No, get next one 
;ACGO399 5A 04 AB DO 0804 .113 35$: MOVL DOB$L_UCB(R11),R10 ; Pick up first UCB on primary chain 
3ACGO0399 EC 13 0808 .114 BEQL 20$ ; None, try for UCB on secondary chain 
_ ~ACGO399. 05 O80A .115 RSB ; Else return UCB address to caller 
;ACGO0399 O80B .116 
_;ACGO399 0808 .117 ; 


;ACGO399 O80B .118 ; Step to next system block. 
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V03-033 SCAN THE I/O DATA BASE BOTH PRIMARY & SE 12-MAR-1982 17:12:23 DISK$VMSMASTER: [SYS.SRC]IOSUBNPAG(30) 
;ACGO399 O080B .119 ; 
3;ACGO399 5B 34 AB DO O80B .120 408: MOVL DDB$L_SB(R11),R11 ; Get back to parent system block 
;ACGO0399 5B 6B DO O80F  .121 SO: MOVL SBSL_FLINK(R11),R11 ; Get next system block 
;ACGO399 5B Di 0812 .122 CMPL R11,#SCS$GQ_ CONFIG ; End of chain? 

O0O0000000’ 8F 0814 
;ACGO399 OA 12 0819 .123 BNEQ 70$ ; No 
;ACGO399 50 D7 0O81B .124 DECL RO ; Signal end of IO scan 
;ACG0399 05 081D .125 RSB 
;ACGO399 O81E .126 
3;ACGO0399 00000000‘ 9F DO O8i1E .127 60$: MOVL @#SCS$GQ_CONFIG,R11 ; Pick up first system block 

5B 0824 

;ACGO0399 54 AB D5 0825 .128 70$: TSTL SB$L_DDB(R11) ; Is there a DDB chain? 
;ACGO0399 ES 13. 0828 .129 BEQL 50$ ; No, go try next SB 
;ACGO0399 5B 54 AB DO O82A~ .130 MOVL SB$L_DDB(R11),R11 ; Yes, get the first DDB 
;ACGO399 D4 11 O82E .131 BRB 35$ ; Try for UCB on primary chain 


TOSUBNPAG 
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;ACGO399 
3;ACGO399 


;ACGO399 | 


;ACGO399 
;A4CGO399 
;ACGO0399 
;ACGO0399 
3; ACGO399 
;ACG0399 
;ACGO399 
;ACGO0399 
;ACG0399 
;ACGO399 
;ACGO399 
3; ACGO399 
3; ACGO399 
;ACGO399 
3; ACGO399 
;ACG0399 
3;ACGO0399 
;ACG0399 
;ACG0399 
;ACGO399 
;ACG0399 
;ACGO399 
;ACGO399 
;ACGO399 
';ACGO0399 
;ACG0399 
;ACGO399 
;ACGO399 
;ACGO399 
;ACGO0399 
;ACGO399 
;ACGO399 
;ACGO399 
;ACGO399 
;ACGO399 
;ACG0399 
;ACGO399 
;ACG0399 
;ACGO399 
;ACGO0399 
;ACGO399 
;ACGO399 
;ACGO399 
;ACGO399 
;ACGO399 
;ACGO399 
;ACGO0399 
;ACGO399 
;ACGO399 
;ACGO399 
;ACGO399 
;ACGO399 
;ACGO399 
;ACGO399 


56 14 A5 
OE A6 01 


56 66 

50 54 
00000000’ GF 
OE 50 
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0830 .133 
0830 .134 
0830 .135 
0830 .136 
0830 .137 
0830 .138 
0830 .139 
0830 .140 
0830 .141 
0830 .142 
0830 .143 
0830 .144 
0830 .145 
0830 .146 
0830 .147 
0830 .148 
0830 .149 
0830 .150 
0830 .151 
0830 .152 
0830 .153 
0830 .154 
0830 .155 
0830 .156 
0830 .157 
0830 .158 
0830 .159 
0830 .160 
0830 .161 
0830 .162 
0830 .163 
0830 .164 
0830 .165 
0830 .166 
0830 .167 
0830 .168 
0830 .169 
0830 .170 
0830 .171 
0830 .172 
0830 .173 
0830 .174 
0834 .175 
0836 .176 
0839 .177 
083B .178 
O83E .179 
0840 .180 
0840 .181 
0844 .182 
0846 .183 
O844 .184 
O084C .185 
O84F .186 
0852 .187 
0858 .188 
085B .189 


++ 
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++ 


driver controller in 12-MAR-1982 17:12:23 DISK$VMSMASTER: [SYS.SRC]IOSUBNPAG(31) 


.SBTTL IOC$CTRLINIT - Calli driver controller init. routine 


FUNCTIONAL DESCRIPTION: 


For UNIBUS devices, the device CSR is tested for existance. If this 
test fails, a no routine call occurs and failure status is returned in 
RO. Input values for a device driver’s controller initialization 
routine are loaded into the proper registers, the routine starting 
address is located, and if a routine exists, it is called. 


INPUTS: 


OUTPUTS: 


R1 CSR address to use if IDB contains zero 

R8 CRB address (primary) 

R11 DDB address 

RO Status (success, or failure ==> UNIBUS CSR non-existant) 


R1-R6 Destroyed 


Controller initialization routine parameters: 


; INPUTS: 
; R4 CSR address (for UNIBUS and MASSBUS devices) 
; SCSSYSTEMID address (for class drivers during SYSGEN driver 
; loading) 
‘ zero for all others, including class drivers during power 
; failure recovery 
; R5 IDB address (or zero if none exists) 
3 R6 DDB address 
; R8 CRB address 
; OUTPUTS: 
: Must preserve all registers except RO through R4. 
IOCS$CTRLINIT:: 
MOVL CRB$L_INTD+VEC$L_ IDB(R8), R5 ; Get IDB address. 
BGEQ 10$ ; Branch if none. 
MOVL IDB$L_CSR(R5), R4 ; Get CSR address. 
BLSS 20$ ; Branch if really a CSR. 
10$: MOVL Ri, R4 ; Else, use supplied value, 
BRB 40$ ; and skip CSR testing. 
20$: MOVL IDB$L_ADP(R5), R6 ; Get ADP address. 
BGEQ 40$ ; If none, skip CSR test. 
CMPwW. #AT$ _UBA, ADP$W_ADPTYPE(R6) ; Is this a UBA? 
BNEQ A0$ ; If not a UBA, skip CSR test. 
MOVL ADP$L_CSR(R6), RE ; Get adapter config reg addr. 
MOVL R4, RO ; Setup CSR for test. 
JSB GAEXESTEST_CSR ; Test UNIBUS CSR. 
BLBC RO, 90$ ; Branch if no CSR present. 
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V03-033 IOC$CTRLINIT - Call driver controller in 12-MAR-1982 17:12:23 DISKSVMSMASTER: [SYS.SRC]IOSUBNPAG(31) 
3; ACG0399 50 30 A8 DO O85B .190 40$: MOVL CRB$L_INTD+VEC$L_INITIAL(R8), RO ; Get ctrl init rout addr. 

;ACGO399 05 18 O85F .191 BGEQ 80$ ; Branch if none. 

;ACGO399 56 5B DO 0861 .192 MOVL Rii, R6 ; Get DDB address. 

3; ACGO0399 60 16 0864 .193 JSB (RO) ; Call ctrl init routine. 

3; ACGO0399 0866 .194 

3; ACGO399 50 01 DO O866 .195 80$: MOVL #1, RO ; Set success status. 


;ACGO399 05. 0869 -196 90$: RSB ; Return w/ status. 
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V03-033 IOCSUNITINIT - Call driver unit init. ro 12-MAR-1982 17:12:23 DISK$VMSMASTER: [SYS.SRC]IOSUBNPAG(32) 
:;ACGO399 O86A .198 -SBTTL IOC$UNITINIT - Call driver unit init. routine 

;ACG0399 O8B6GA .199 ;++ 

;ACGO0399 O86A .200 ; FUNCTIONAL DESCRIPTION: 

;ACG0399 O86A .201 ; 

;ACGO0399 O86A .202 ; Input values for a device driver’s unit initialization routine are 
3;ACGO399 O86A .203 ; loaded into the proper registers, the routine starting address is 

3; ACGO0399 O86A .204 ; located, and if a routine exists, it is called. 

;ACGO399 O86A .205 ; 

;ACGO399 O86GA .206 ; INPUTS: 

;ACGO399 O86A .207 ; R5 UCB address 

;ACGO0399 O86A .208 ; R8 CRB address (primary) 

3;ACGO0399 O86A’ .209 ; 

;ACGO399 O86A .210 ; OUTPUTS: 

3;ACGO399 O86A .211 ; RO-R4 Destroyed 

;ROWO0221 O86A .212 ; 

;ROWO221 O86A .213 ; NOTES: 

;ROWO221 O86GA .214 ; 

;ROW0221 O86A -215 ; There are two unit initialization routine addresses in the I/0 data 
;ROWO0221 OB6GA .216 ; base; CRB$L_INTD VEC$L_UNITINIT and DDT$L_UNITINIT. Normally,.only 
;ROWO221 OB6A .217 ; one of these two places should contain a unit initialization routine 
;ROWO221 O86A -218 ; address. However, for the console block storage device, the both 
3;ROWO221 O86A .219 ; locations contain an address, and the DDT contains the address which 
;ROW0221 O86A .220 ; must be used. 

sROWO221 O86A .221 ; 

;ROWO221 O86A -222 ; In this case, the CRB is shared by the console terminal and console 
;ROWO221 O8B6A . .223 ; block storage devices. The CRB contains the address of the unit 
sROWO221 OB86GA .224 ; initialization routine for the console terminal, and the console 
s;ROWO221 O86A .225 ; terminal DDT contains no unit initialization routine address. Thus 
;ROWO0221 O86A .226 ; the console terminal device "fits" the "normal" case. However, the 
3ROWO221 O8GA .227 ; console block storage device DDT contains a unit initialization 
;ROWO221 O86A .228 ; routine which differs from the console terminal unit initialization 
;ROWO221 O86A’ .229 ; routine and whose address is stored in the DDT. 

;ROWO0221 O86A .230 ; 

:ROWO221 O86A .231 ; Since the CRB is shared and contains the wrong unit initialization 
;ROW0221 O8GA .232 ; routine address for the console block storage device, the DDT must be 
;ROWO221 O86A .233 ; inspected first. Initialization for the console terminal will be 
;ROWO221 OBGA .234 ; accomplished correctly regardless of which address is checked first. 
;ROWO203 O86GA .235 ; 

;ROWO203 O86A .236 ;-- 

;ROWO203 O86A .237 

sROWO203 O86A .238 ;++ 

;ROWO203 O86A .239 3; Unit initialization routine parameters: 

;ROWO203 O86A .240 ; 

- ;ROWO203 OB6GA .241 ; 4#x.INPUTS: 

;ROWO203 O86A .242 ; R3 CSR address (primary) 

;ROWO203 O86A .243 ; R4 CSR address (secondary, same as primary if no secondary exists) 
;ROWO203 O86A .244 ; R5 UCB address 

;ROWO203 O86GA ~.245 ; 

;ROWO203 O86A .246 ; OUTPUTS: 

;ROWO203 O86GA .247 ; Must preserve all registers except RO through R4. 

;ROW0203 O8GA .248 ; 

;ROWO203 O86A .249 ;-- 

;ROWO203 O86A .250 

;ROWO203. OB86GA .251 

sROWO203 O86GA .252 IOC$UNITINIT:: ; 

3; ROWO203 O86A~ .253 


;ROWO221 50 0088 C5 DO O86A~- .254 | MOVL UCB$L_DDT(R5), RO ; Get ODT address. 


IOSUBNPAG 


V03-033 


;ROWO0221 
;ROWO221 


;ROWO221 
;ROWO221 
;ROWO221 
;ROWO203 
;ROWO203 
;ROWO203 
;ROW0203 
;ROWO203 
;ROWO203 
;ROWO0203 
;ROW0203 
;ROW0203 
;ROWO203 
;ROW0203 
;ROWO0203 
;ROWO203 
;ROW0221 
;ROWO221 
;ROWO221 


50 18 


O00005D9 ’ 


50 3C 


53 2C 
53 


54 
51 20 


54 2C 


AO 
50 
8F 
06 
A8 
1A 


- NONPAGED I/O RELATED SUBROUTINES 
driver unit 


IOCS$UNITINIT - Call 


DO 
01 


12 
DO 
18 


D4 
DO 
18 
DO 
DO 
DO 
18 


DO 


17 


05 


O86F 
0873 
0875 
O87A 


_O087C 


0880 
0882 
0882 
0884 
0888 
088A 
088D 
0890 
0894 
0896 
0896 
O89A 
089A 
089C 
O89C 
O89C 
089D 


.255 
. 256 


.257 
. 258 
.259 
. 260 
.261 
.262 
. 263 
. 264 
. 265 
. 266 
.267 
. 268 
. 269 
.270 
.271 
.272 
.273 
.274 
.275 


10$: 


50$: 


90$: 


MOVL 
CMPL 


BNEQ 
MOVL 
BGEQ 


CLRL 
MOVL 
BGEQ 
MOVL 
MOVL 
MOVL 
BGEQ 
ASSUME 
MOVL 


JMP 


RSB 


3-JUN-1984 11:33:30 


init. ro 12-MAR-1982 17:12:23 


DDT$L_UNITINIT(RO), RO 
RO, #IOC$RETURN 


10$ 


CRB$L_INTD+VEC$L_UNITINIT(R8), 


90$ 


R4 

CRB$L_INTD+VEC$L_IDB(R8), R3 
50$ 

IDB$L_CSR(R3), R3 

R3, R4 

CRB$L_LINK(R8), R1 

50$ 

IDB$L_CSR EQ 0 
@CRB$L_INTD+VEC$L_IDB(R1), R4 


(RO) 
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RO 


7 


we we we we we we we 


Get DDT unit 


Null unit 


Branch if 
: Get CRB 
Branch if 


Assume no 
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init rout addr. 
init routine? 


unit init rout. 
init rout addr. 
init rout. 


real 
unit 
no unit 


IDB exists. 


Get IDB address. 


Branch if 


none. 


Get primary CSR. 


Assume no 


sec. CRB exists. 


Get secondary CRB addr. 


Branch if 


none. 


Get secondary CSR addr. 


Call unit 
return to 
No unit 
return to 


init routine, and 
caller. 


init routine to call: 


caller. 


TOSUBNPAG 


V03-033 


3;ACG0414 
3;ACG0414 
3;ACG0414 
;ACG0414 
;ACG0414 
3;ACG0414 
3;ACG0414 
3;ACG0414 
;ACG0414 
3;ACG0414 
3;ACGO0414 
3;ACG0414 
3;ACG0414 


sACGO0414. 


;ACG0414 
;ACGO0414 
;ACG0414 
sACG0414 
;ACG0414 
3;ACG0414 
;ACG0414 
3;ACG0414 
3;ACGO0414 
;ACG0414 
3ACG0414 
3;ACG0414 
3;ACG0414 
3;ACG0414 
3;ACGO0414 
;ACGO0414 
3;ACG0414 
;ACG0414 
3;ACG0414 
3;ACG0414 
s;ACGO0414 
3;ACG0414 
s;ACG0414 
3;ACG0414 
;ACGO0414 
3;ACG0414 
:ACG0414 
3;ACG0414 
3;ACG0414 
3;ACG0414 
.3;ACG0414 
3;ACG0414 
;ACG0414 
3;ACG0414 
3;ACGO0414 
;ACG0414 
;ACG0414 
3;ACG0414 
;ACG0414 
;ACG0414 
s;ACGO0414 
;ACG0414 
;ACG0414 


56 


69 


0070 8F 

58 

28 

54 58 

59 01 

58 24 

03 

56 51 

52 

50 65 

11 50 06 
50 20 

5A BF 50 
77 

41 8F 50 
37 

6F 
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BB 
D5 
13 


C3 


089D 
089D 
089D 
089D 
o8s9gD 
089D 
089D 
089D 
089D 
089D 
089D 
089D 
o8s9D 
o0s9gD 
089D 
089D 
089D 
089D 
089D 
089D 
0890 
089D 
089D 
089D 
089D 
089D 
089D 
089D 
o089D 
O89D 
089D 
089D 
O89D 
089D 
089D 
089D 
O8A1 
08A3 
O8A5 
O8A8 
OBAC 
OBAC 
OBAC 
08B0 
08B2 
O8B5 
08B7 
OBBA 
O8BE 
08Cl 
08cs 
O8C7 
O08CB 
O8CD 
O8CF 
O8CF 


-O8CF 


-277 
.278 
.279 
. 280 
.281 
-282 
.283 
. 284 
.285 
. 286 
. 287 
- 288 
. 289 
. 290 
-291 
-292 
.293 
.294 
.295 
. 296 
. 297 
. 298 
299 
. 300 
301 
- 302 
. 303 
. 304 
305 


3-JUN- 1984 
12-MAR-1982 


11:33:30 
17:12:23 
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.SBTTL Parse Device Name String 


; IOC$PARSDEVNAM - parse device name string 
; This routine parses a device name string, checking syntax and 
; extracting node name, allocation class number, and unit number. 
; If device type format is specified, it is converted into the internal 
; compressed format. 
; INPUTS: 
3 R8 = size of name string 
$ RQ = address of name string 
: R10 = flags 
: OUTPUTS: 
; RO = SS$_NORMAL - valid name string 
; = SS$_IVDEVNAM - invalid device name string 
; R2 = unit number 
: R3 = length of SCS node name at head of name string 
: or allocation class number 
; or device type code 
: R8 = size of name string 
; RQ = address of name string 
: R10 = flags 
; R4 - R7, R11 preserved 
-ENABLE LSB 
IOC$PARSDEVNAM: : 
PUSHR #AM<R4,R5,RE> ; Save working registers 
TSTL R8 ; check name string length 
BEQL 30$ ; branch if null - error _ 
MOVQ R8,R4 ; copy name string descriptor 
SUBL3 #1,R9,R6 ; default is no node no allocation 
; Class, set pointer before beginning 
; of the string 
LOCC #AA‘S’ ,RB, CRO) ; scan name for a "§$" 
BEQL 10$ ; failed to find one ~- no nodename 
MOVL R1,R6 ; found it, save pointer 
10$: CLRQ R2 ; init unit number and node name 
20$: MOVZBL (R5),RO ; get next character 
BBC #6,R0,40$ ; br if code O-AX3F - numeric or §$ 
BICB #AX20,RO0 ; collapse lower case to upper case 
CMPB RO,#AA’Z’ ; possible alphabetic? 
BGTRU 150$ ; br if not 
CMPB RO,#A4A' A’ ; possible alphabetic? 
BGEQU 70$ ; branch if OK - store it 
30$: BRB 150$ 3; Mo - error 
; Non alphabetic - may be numeric or "§" 
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;ACG0414 
3;ACG0414 
;ACGO414 
;ACG0414 
;ACGO0414 
;ACG0414 
3;ACG0414 
;ACGO414 
;ACG0414 
;ACG0414 
3;ACG0414 
3;ACG0414 
;ACG0414 
;ACG0414 
;ACG0414 
;ACG0414 
3;ACG0414 
;ACG0414 
;ACG0414 
3;ACGO0414 
;ACG0414 
s;ACGO0414 
;ACGO0414 
;ACGO0414 
3;ACG0414 
;ACG0414 
3;ACG0414 
;ACG0414 
:ACG0414 
:ACGO0414 
3;ACGO0414 
;ACGO0414 
;ACGO0414 
;ACGO0414 
3;ACG0414 
;ACGO0414 
:ACG0414 
;ACG0414 
;ACGO0414 
3;ACG0414 
;ACG0414 
;ACG0414 
;ACG0414 
:ACGO414 
;ACG0414 
;ACGO0414 
;ACG0414 
;ACG0414 
;ACG0414 
;ACGO0414 
;4CG0414 
;ACG0414 
;4CG0414 
;ACGO0414 
;ACGO0414 
;ACG0414 
;ACGO414 


53 


21 


37 


56 55 


39 50 


30 50 


55 59 


53 52 


5A 04 


58 54 


85 50 
AD 54 


58 54 


55 56 


25 SA 
5A 06 


SA 01 


SA 01 
50 01 
0070 8F 
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O8CF 
08D2 
O08D4 
O8D6 
O8D9 
08DB 
O8DE 
O8E0 
O8E2 
O8E2 
OB8E2 
O8E2 
O8E6 
O8E8 
O8E8 
O8E8 
O8E8 
O8EA 
O8EC 
OB8EE 
O8F1 
O8F3 
O8F6 
O8F9 
O8FB 
O8FE 
0900 
0902 
0904 
0904 
0907 
O90A 
O9S0A 
O90A 
O90A 
090D 
O90F 
0911 
0914 
0916 
0919 
091D 
O91F 
O91F 
O91F 
O91F 
0921 
0923 
0925 
0928 
092A 
092C 
O92E 
0930 
0934 
0937 


093B ~ 


.334 
335 
. 336 
337 
. 338 
339 


340 


.341 
.342 
- 343 
- 344 
. 345 
. 346 
.347 
.348 
.349 
-350 
.351 
.352 
.353 
.354 
.355 
.356 
.357 
358 
. 359 
. 360 
.361 
.362 
363 
. 364 
.365 
. 366 
.367 
. 368 
.369 
.370 
371 
.372 
.373 
.374 
.375 
.376 
.377 
.378 
.379 
. 380 
.381 
382 
. 383 
.384 
-385 
. 386 
387 
- 388 
. 389 
. 390 


3-JUN- 1984 


40$: CMPL R5,R6 ; 
BEQL 50$ : 
BGTRU 80$ : 
CMPB RO, #AA'9 3 
BGTRU 150$ ; 
CMPB RO,#AA‘0’ ; 
BGEQU 70$ ; 
BRB 150$ 7 


. 
> 


11:33:30 
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hit the “$" yet? 

yes, deal with it 

past it, digits are unit number 

legal? 

no, error 

legal? 

yes, accept it as alpha 


no, error 


; $ in device name - either node name or allocation class. 


50$: SUBL3 


BNEQ 


R9,R5,R3 ; 
70$ H 


. 
> 


; Process allocation class number. 


60$: 


INCL RS 3 
DECL R4 ; 
BSBB GETNUMBER 7 
MOVL R2,R3 : 
BLEQ 150$ 3 
BISB #IOCEM_CLASS,R10 3 
CMPB #AA'$’ ,RO ; 
BNEQ 150$ 3 
MOVQ R4,R8 : 
TSTL R4 : 
BGTR 20$ 3 
BRB 150$ : 
70$: MOVB RO,(R5)+ © 3 
SOBGTR R4,20$ ; ; 


. 
’ 


; End of alpha scan. 


BOS: 


SUBL R4,R8 ; 
BEQL 150$ 4 
INCL R6— 3 
CMPL R6,R5 ; 
BLSSU 90$ 3 
BLBS R10,150$ : 
BBC #I10C$V_ANY,R10,150$ ; 
BRB 100$ ; 


’ 


; Process unit number and make sure there’ 


90$: 


CLRL R2 ; 
TSTL R4 ; 
BLEQ 110$ ; 
BISB #10C$M_PHY,R10 ; 
BSBB GETNUMBER ; 
INCL R4 ; 
100$: TSTL R4 ; 
BGTR 150$ : 
110$: BBS #IOC$V_TYPE,R10, 190$ : 
120$:  MOVL #SS$_NORMAL,RO ; 
130%:  POPR #AM<KR4,R5,RE> ; 
RSB ; 


Make sure we actually got a non-null 


compute 
branch 


length of node name 
if non-null - process the §$ 


move over "“$" to allocation 
class digits. 

convert allocation class. 

store requested allocation class. 
leq zero is not legal. 

set allocation class flag 

was terminator a "$"? 

if not, invalid device name. 
reset device name - unit size. 
check remaining string count 

if characters remain, process them. 
else, invalid device name. 


store potentially upcased character 
any more characters to scan? 


device name. 
subtract unit number from string 


if eql no device name specified 
point past $ in node name 


see if we’ve processed any more chars 
branch if yes 
branch if physical - not valid 


or if not generic search for any 
node name only - verify end of string 


Ss no trailing junk. 


init unit number to 0O 
see if there’s anything 
branch if not 

set physical flag 
convert unit number 
return terminator to string count 
reached end of string? 

branch if not - error 

branch if name is a device type 
successful parse 

restore registers 

and return 


left 


ITOSUBNPAG 


V03-033 


3;ACG0414 
:;ACGO0414 
:ACG0414 
;ACG0414 
3;ACGO0414 
3;ACG0414 
:ACG0414 
3ACGO0414 
3ACG0414 
3ACG0414 
3ACG0414 
3;ACG0414 
3;ACGO0414 
3;ACG0414 
3ACG0414 
;ACG0414 
3;ACG0414 
3ACG0414 
3;ACG0414 
3;ACG0414 
3;ACG0414 
;ACG0414 
3ACG0414 
3;ACG0414 
3;ACG0414 
sACG0414 
3;ACG0414 
3ACG0414 
3;ACG0414 
3;ACG0414 
3;ACGO0414 
:ACG0414 
3;ACG0414 
3;ACG0414 
3ACG0414 
;ACG0414 
s;ACG0414 


3;ACG0414 
;ACG0414 
;ACG0414 
3;ACG0414 
3;ACG0414 
3A4CG0414 
3;ACG0414 
3;ACG0414 
3;ACG0414 
3;ACG0414 
3ACGO0414 
3;ACG0414 
;ACG0414 
3ACG0414 
3;ACG0414 
3;ACG0414 
3ACGO0414 
;ACG0414 


50 0144 


50 
50 


09 


52 
52 


EA 


50 FF 


00008000 


50 55 
50 
02 


55 
02 


85 40 


BE 
8F 
F2 


85 
30 
10 
50 
OB 
OA 
50 


54 
04 


AS 
52 
8F 
D2 


53 
CF 
59 
58 
50 
C3 
59 
58 
BB 
BF 
50 
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DS 


3C 
11 


9A 
82 
1F 


1A 
C4 
co 


F4 
11 


9A 
D1 


1E 
05 


DS 
12 
C3 
C2 
DI 


DO 
D1 
1F 
83 


093C 
093C 
093C 
093C 
O93E 
0943 
0945 
0945 
0945 
0945 
0945 
0945 
0945 
0945 


0945, 


0945 


0945 . 


0945 
0945 
0945 
0945 
0945 
0945 
0945 
0945 
0948 
094B 
094D 
0950 
0952 
0955 
0958 
0958 
0958 
095D 
095D 
0961 
0963 
0968 
096A 
096B 
0968 
O96B 
0968 
096B 
096B 
096B 
096D 
OO6F 
0973 
0976 
0979 
0978 
O97E 
0981 
0983 
0987 


.391 
.392 
393 
- 394 
395 
. 396 
- 397 
- 398 
.399 
- 400 
-401 
-402 
-403 
-404 
-405 
- 406 
-407 
-408 
-409 
-410 
~411 
-412 
-413 
-414 
-415 
-416 
-417 
-418 
-419 
-420 
»421 
-422 
-423 
-424 
425 
-426 
-427 


-428 
-429 
- 430 
-431 
-432 


- 434 
-435 


-437 
- 438 
-439 
- 440 
441 


.443 
.444 
.445 


3-JUN- 1984 
12-MAR- 1982 


11:33 
17:12 


; Invalid device name 


140$: TSTL 


(SP)+ ; 
150$: MOVZWL #SS$_IVDEVNAM,RO : 
BRB 130$ 


Routine to convert ASCII to integer 


; Inputs: 

3 R2 assumed zero 

3 R4 size of string 

; R5 starting address of string 

; Outputs 

$ RO terminator character 

; R2 converted number 

; R4 size of string with number 

: R5 address of first character 

160$ MOVZBL (R5)+,RO ; 
SUBB #AA‘O'’ ,RO 3 
BLSSU 170$ 3 
CMPB RO,#9 : 
BGTRU 170$ ; 
MULL #10,R2 ; 
ADDL RO,R2 ; 

GETNUMBER: 
SOBGEQ R4,160$ ; 
BRB 180$ 3 

170$: MOVZBL -1(R5),RO ; 

180$: CMPL R2,#32768 3 
BGEQU 140$ 7 
RSB : 


Parse device type name. We do this last 
name validation is necessary anyway. Now 
additional 


wed 8 we we wee we 


90$: TSTL R3 ; 
BNEQ 150$ ; 
SUBL3 R9,R5S,RO ; 
SUBL R8,RO 3 
CMPL RO, #2 ; 
BNEQ 150$ ; 
MOVL RQ9,R5 : 
CMPL RB, #2 ; 
BLSSU 150$. ; 
SUBB3 HAA‘A’-1,(R5)+,RO ; 
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pop GETNUMBER return address from stack 
set invalid device name 


and terminator character removed 
after number terminator character 


get next character. 


base it at decimal digits. 
branch if not a decimal digit. 
is it a digit? 

branch if not a decimal digit. 


scale current unit number by 10 
add new digit to accumulation. 


count off a character 
branch if no more characters 


restore terminator character. 
check number value 


branch if not valid 


return to caller. 


because all the regular device 
we just have to do the 


checks and pack the characters. 


check if we saw node or alloc class 
branch if so - not valid 

compute total length of string 
compute length of unit number string 
must. be two digits 


branch if not - not valid 


copy name address again 

check minimum name length 

too short - out 

get char and convert to compressed 


IOSUBNPAG 
VO03-033 


3;ACG0414 
;ACG0414 
3;ACGO0414 
;ACG0414 
;ACG0414 
3;ACG0414 
3;ACG0414 
;ACGO0414 
;ACG0414 


;ACGO0414 
;ACG0414 


05 11 50 
85 40 8F 
05 OC 50 
03 58 


85 40 8F 


05 07 50 
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FO 


83 


FO 


co 
BA 
31 


0988 
098C 
098D 
0991 
0992 
0996 
0997 
099A 
099C 


“O99E 


O9A2 
O9A3 
O9A7 
O9A8 
O9AB 
O9AE 


.446 
.447 
.448 
.449 - 
.450 
.451 
.452 
.453 
.454 


-455 
-456 


200$: 


INSV 
SUBB3 
INSV 
CMPL 
BGTRU 
BLSSU 
SUBB3 
INSV 
ADDL 


BICB 
BRW 
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RO,#17,#5,R3 
FAA‘A‘-1,(RS)+,RO 
RO,#12,#5,R3 
R8,#3 

150$ 

200$ 
#FAA‘A‘-1,(R5)+,RO 
RO, #7,#5,R3 

R2,R3 


#IOC$M_PHY,R10 
120% 


11 


17: 


2:33:30 VAX-11 Macro V03-01 Page 58 
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, 


. 
: 


we we we we 


store compressed code 

get char and convert to compressed 
store compressed code 

check how many chars left 

string was longer than 5 - error 
short - don’t take 3rd alpha 

get char and convert to compressed 
store compressed code 

add in unit number 


clear physical flag 
done 


TOSUBNPAG 
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;ACG0414 
;ACG0414 
;ACG0414 
3ACG0414 
;ACGO414 
3;ACG0414 
3;ACGO0414 
;ACG0414 
3;ACG0414 
;ACGO0414 
;ACG0414 
;ACG0414 
3;ACG0414 
;ACG0414 
;ACG0414 
3;ACG0414 
;ACG0414 
;ACG0414 
3;ACG0414 
3;ACG0414 
3;ACGO0414 
s;ACG0414 
3;ACG0414 
;ACG0414 
3;ACG0414 
;ACG0414 
;ACG0414 
;ACG0414 
3;ACGO0414 
3;ACG0414 
3;ACGO0414 
3;ACG0414 
;ACG0414 
;ACG0414 
;ACGO0414 
3;ACG0414 
;ACG0414 
;ACGO414 
3;ACG0414 
3;ACG0414 
;ACG0414 
sACG0414 
;ACGO0414 
3;ACGO0414 
;ACGO0414 
;ACG0414 
;ACGO0414 
3;ACG0414 
;ACG0414 
3;ACGO414 
3;ACG0414 
;ACGO0414 
;ACG0414 
;ACG0414 
3;ACG0414 
3;4CG0414 
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09B1 . 458 -SBTTL Search I/0 Database for Device 
0O9B1 459 
09B1 -460 ; 
09B1 -461 ; 
09B1 -462 ; IOC$SEARCHINT - internal I/O database search 
09B1 -463 ; 
09B1 -464 ; This routine searches the I/O database for the specified device, using 
09B1 -465 ; the specified search rules. Depending on the search, a lock may or may 
09B1 -466 ; not be taken out on the device when it is found. 
09B1 -467 ; 
09B1 -468 ; Note! While this routine is non-paged and therefore may be called at 
09B1 -469 ; elevated IPL, the device locking code it calls is not. Therefore, only 
0981 -470 ; searches with IOC$V_ANY may be called from elevated IPL. 
09B1 -471 = ; 
09B1 -472 ; INPUTS: 
O9B1 -473 ; 
O9B1 .474 ; R2 = unit number 
09B1 -475 3; R3 = length of SCS node name at head of name string 
O9B1 .476 ; or allocation class number 
09B1 -477 ; or device type code 
09B1 -478 ; RB = size of name string 
09B1 .479 ; RQ = address of name string 
09B1 -480 ; R10 = flags 
09B1 -481 ; R11 = address to store lock value block 
O9B1: .482 ; I/O database mutex held, IPL 2 
09B1 -483 ; 
09B1 -484 ; OUTPUTS: 
09B1 -485 ; 
09B1 -486 ; RO = SS$_ NORMAL - device found 
09B1 -487 ; = SS$ NOSUCHDEV - device not found 
O9B1 .488 ; = SS$_NODEVAVL - device exists but not available according to rules 
O09B1 .489 ; = SS$_DEVALLOC - device allocated to other user 
O9B1 .490 ; = SS$_NOPRIV - failed device protection 
09B1 -491 ; = SS$_TEMPLATEDEV - can’t allocate template device 
O9B1 .492 ; = SS$_DEVMOUNT - device already mounted 
09B1 -493 ; = SS$_DEVOFFLINE - device marked offline 
09B1 494 ; R5 = UCB 
09B1 -495 ; R6 = DOB 
09B1 -496 ; R7 = system block 
09B1 .497 ; R10 - R4, R8 - R11 preserved 
09B1 -498 ; : 
09B1 .499 ; Note: If failure, R5 - R7 point to the last structures looked at. 
09B1 .500 ; 
09B1 .501 ; 
09B1 .502 
O09B1 .503 ; 
09B1 .504 ; Stack use: 
O9B1 -505 ; 
00000000 09B}1 -506 SAVR2 = 0 
00000004 098681 -507 SAVR3 = 4 
00000008 09B1 -508 SAVR4 = 8 
OOO00000C 09B1 .509 SAVRB = 12 
00000010 0O9B1 -510 SAVRO9 = 16 
09B1 .511 
09B1 -512 
09B1 -513 .ENABLE LSB 
09B1 .514 
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V03-033 Search I/0 Database for Device 12-MAR-~1982 17:12:23 DISK$VMSMASTER: [SYS.SRC]IOSUBNPAG(34) 
3;ACG0414 09B1 -515 IOCS$SEARCHINT:: 
;ACGO0414 O31C 8F BB O9B1 -516 PUSHR #AMKR2,R3,R4,R8B,RO> ; save registers 
;ACG0414 09B5 .517 ; 
3;ACG0414 09B5 .518 ; Search the system biocks for a suitable node. If we are doing a search 
3;ACG0414 09B5 .519 ; by allocation class, generic device type, or no node name is given, 
;ACG0414 09B5 .520 ; all system blocks qualify. 
;ACG0414 O09B5 .521 ; 
3;ACG0414 | 00000000’ EF DE O9B5 ..522 MOVAL SCS$GQ_CONFIG,R7 ; get head of SCS SB list 
57 09BB 
;ACG0414 50 67 DO O9BGC .523 10$: MOVL SB$L_FLINK(R7),RO ; get next system block 
3;ACG0414 50 D1 O9BF .524 CMPL RO,#SCS$GQ_ CONFIG ; are we back at list head? 
00000000’ 8F 09C1 
;ACGO0414 78 13 O9C6 .525 BEQL 50$ ; branch if yes - all done 
;ACG0414 O09CB .526 
3;ACG0414 57 50 DO O9CB 527 MOVL RO,R7 
3;ACGQ0414 56 54 A7 DE - 09CB .528 MOVAL SB$L_DDB-DDB$L_LINK(R7) ,R6 ; pick up DDB listhead 
3;ACG0414 55 56 DO O9CF- .529 MOVL R6,R5 ; make sure UCB is non-zero 
;ACGO0414 09D2 .530 ; if allocation class or generic dev, 
;ACG0414 5A 06 93 O09D2 -531 BITB #IOCSM CLASS! IOC$M_TYPE,R10 
;ACG0414 27 12 O9SD5 -532 BNEQ 30$ ; check every system block 
3;ACG0414 58 OC AE 7D  Q9D7~ .533 MOVQ SAVR8B(SP) ,R8 ; get orig dev name descriptor 
;ACGO0414 53 O04 AE DO O9DB~ .534 MOVL SAVR3( SP) ,R3 ; get node name length 
;ACG0414 1D 13 OSDF .535 BEQL 30$ ; branch if none - go ahead 
;ACGO0414 44 A7 53 91 O9E1 536 CMPB R3,SBS$T_NODENAME (R7 ) 3; check node name length 
;ACG0414 D5 12 Q9E5 -537 BNEQ 10$ ; branch if not 
;ACG0414 45 Al 53 29 O9E7 .538 CMPC3 R3,SBS$T_NODENAME+1(R7), (RO) 3; node names match? 
69 O9SEB 
;ACG0414 CE 12 O9EC .539 BNEQ 10%. ; branch if not 
;ACG0414 OSEE .540 ; 
;ACG0414 O9EE .541 ; Found a suitable system block. Search its DDB list. 
;ACGO0414 OSEE -542 ; 
3;ACG0414 50 01 3C O9EE -543 20$: MOVZWL #SS$ NORMAL,RO 
;ACG0414 04 AE 01 C1 O9F1 -544 ADDL3 #1,SAVR3(SP),R3 3; include the "$" 
; 53 O9F5 
;ACGO0414 59 53 CO OS9F6 545 ADDL R3,R9 ; skip over the nodename 
;ACG0414 58 53 C2 O9FQ9 .546 SUBL R3,R8 ; adjust the length 
;ACG0414 52 15 O9FC  .547 BLEQ 60$ ; if no device name, just return SB 
;ACG0414 OSFE .548 
;ACG0414 50 66 DO -O9FE -549 30$: MOVL DDB$L_LINK(R6),RO ; get address of next DDB 
3;ACG0414 5A 13 OAO1 -550 BEQL 80$ ; if eql end of list 
3;ACG0414 56 50 DO OAOQ3. .551 MOVL RO,R6 ; 
;ACG0414 55 D4 A6 DE OAO6 ~552 MOVAL <DDB$L_UCB-UCB$L_LINK>(R6),R5 ; initialize primary UCB address 
;ACGO0414 5A 20 BA OADA .553 BICB #IOCSM 2P,R10 ; new DDB - clear secondary flag 
;ACG0414 5E SA 01 EO OadgDdD 554 BBS #IOCEV_TYPE,R10,100§$ . ; branch if generic type search 
;ACG0414 07 5A 02 El -OAI1.. <855 BBC #IOC$V_CLASS,R10,40$ ; branch if no class to check 
3;ACG0414 3C A6 O04 AE D1 OA15 .556 CMPL SAVR3(SP) ,DDB$L_ALLOCLS(R6) ; else, is allo. class right? 
3;ACG0414 E2 12 OAIA .557 BNEQ 30$ ; branch if not, try next DDB 
3ACG0414 69 58 29 OAIC .558 40$: CMPC3 R8,(RQ9),ODBST_NAME+1(R6) ; check device name 
15 A6 OAI1F 
;ACG0414 DB 12 OA21 .559 BNEQ 30$ ; if mo match, try next DDB 
;ACG0414 50 14 A6 9A O0A23 .560 MOVZBL DDB$T NAME(R6),RO ; get length of name in DDB 
;ACG0414 50 58 D1 OA27 -561 CMPL R8,RO ; check name lengths 
;ACG0414 43 13 OA2A .562 BEQL 100$ ; if they match - OK 
;ACG0414 50 D7 OA2C -563 DECL RO ; try subtracting out controller letter 
3;ACG0414 50 58 D1 OAZE .564 CMPL R8,RO ; and see if this matches 
;ACG0414 CB 12 OA31 .565 BNEQ 30$ ; if not, keep trying 
;ACGO0414 39 5A EQS. 0A33 .566 BLBC R10,100$ ; branch if not physical search - OK 
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DISK$VMSMASTER: [SYS.SRC]IOSUBNPAG(34) 


CMPB DDB$T_NAME+1(R6) [RO] ,#AA‘A’ is this controller A? 
BEQL 100$ ; if so, search it 
BRB 30$ ; if not, keep looking 
; End of search - no suitable device has been found 
50$: MOVZWL #SS$ NOSUCHDEV,RO ; no device found 
BBC #IOC$V_EXISTS,R10,140$ ; branch if not seen 
MOVZWL #SS$ NODEVAVL,RO otherwise status is not available 
BRB 140$ 
; To here if we’re just returning a system block, with no device specified. 
60$: MOVL (R6) ,RE ; get first DDB 
MOVL DDB$L_UCB(R6),R5 ; and first UCB 
BRB 140$ ; and return 
; To here when all UCB’s on a DDB have been searched. 
70$: BBS #IOC$V_TYPE,R10,30$ ; if generic type search, try next DDB 
; To here when allt DDB’s on a system block have been searched. 
BO0$: BITB #IOC$M_CLASS!IOC$M_TYPE,R10 ; if generic type or alloc class 
BNEQ 90$ ; keep searching system blocks 
BITB #IOC$M_PHY!IOCS$M_LOCAL,R10 ; if physical or local only 
BNEQ . 50$ ; we’re done 
TSTL ~ SAVR3(SP) ; if there was an explicit node 
BNEQ 50$ ; we’re done 
90$: BRW 10$ ; else go try next system block 
; Found a suitable DDB. Search both its UCB lists for the right UCB. 
100$: MOVQ SAVR2(SP),R2 ; get unit mumber and device type 
MOVL SCHSGL_CURPCB,R4 ; get PCB address 
NEXTUCB: ; re-entry for next UCB 
110$: BBC #TIOC$V_2P,R10,120$ ; branch if on primary path 
MOVL UCB$L_2P_LINK(R5S),R5 ; link to next secondary unit. 
BRB 130$ 
120$: MOVL UCB$L_LINK(RS) ,R5 ; link to next primary unit. 
130$: BEQL 150$ ; branch if no more units. 
BSBB IOC$TESTUNIT ; is this unit ok? 
BLBS RO, 140$ ; branch if successful 
BBC #1O0C$V_EXISTS,R10,110$ ; keep going if we haven’t seen it yet 
BLBC R10,110$ ; or if not physical search 
140$: POPR FAMKR2,R3,R4,R8,RO> ; restore registers 
RSB ; ; and return 
150$: BBSS #IOC$V_2P,R10,70$ ; branch if secondary path already searched 
; MOVAL <DDB$L_2P_UCB - ; ; initialize secondary UCB address. 
-UCB$L_2P_LINK>(R6) ,R5 
BRB 110$ ; go search secondary path 
.DOISABLE LSB 
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V03-033 Continue 1/0 Database Search 12-MAR-1982 17:12:23 DISK$VMSMASTER: [SYS.SRC]IOSUBNPAG(35) 
3;ACG0414 OAA5 .622 -SBTTL Continue I/0 Database Search 

;ACGO0414 OAAS .623 

;ACG0414 OAAS .624 ;+ 

;ACG0414 OAAS .625 ; 

3;ACG0414 OAAS .626 ; IOCSSEARCHCONT - internal I/O database search 

;ACG0414 OAAS -627 ; 

>ACGO414 OAAS .628 ; This routine continues a search started with a call to IOC$SEARCHINT. 
;ACG0414 OAAS .629 ; It uses IOC$SEARCHINT’s outputs as the starting point at which to 
;ACG0414 OAAS .630 ; resume. 

;ACG0414 OAAS .631 ; 

3;ACG0414 OAAS .632 ; INPUTS: 

;ACGO414 - OAAS .633 ; 

3;ACG0414 OAAS~ .634 ; R2 = unit number 

;ACG0414 OAAS .635 ; R3 = length of SCS node name at head of name string 

3;ACG0414 a OAAS . .636 ; or allocation ciass number 

3;ACG0414 OAAS~ .637 ; or device type code 

3; ACGO0414 OAAS -638 ; RS = last UCB 

3;ACGO0414 OAAS .639 ; R6 = last DDB 

3;ACGO414 OAAS~ .640 ; R7 = last system block 

3;ACG0414 OAA5S .641 ; R8 = size of name string 

3;ACGO0414 ; OAA5S .642 ; RQ = address of name string 

;ACG0414 OAAS .643 ; R10 = flags 

3;ACG0414 OAAS .644 ; Rii = address to store lock value block 

3;ACG0414 OAA5 .645 ; I/O database mutex held, IPL 2 

3;ACG0414 OAA5 -646 ; 

3;ACG0414 . OAAS -647 ; OUTPUTS: 

;ACGO0414 OAAS -648 ; 

3;ACG0414 OAAS .649 ; RO = SS$ NORMAL - device found 

;ACG0414 OAA5 -650 ; = SS$_NOSUCHDEV - device not found 

;ACG0414 OAA5S~ .651. ; = SS$_NODEVAVL - device exists but not available according to rules 
;ACG0414 OAAS .652 ; = SS$_DEVALLOC - device allocated to other user 

;ACGO0414 OAAS-~ .653 ; = SS$_NOPRIV - failed device protection 

3;ACG0414 OAAS .654 ; = SS$_TEMPLATEDEV - can’t allocate template device 

;ACG0414 OAAS .655 ; = SS$_DEVMOUNT - device already mounted 

3ACG0414 OAAS .656 ; = SS$_DEVOFFLINE - device marked offline 

3;ACG0414 OAAS -657 ; RS = UCB 

;ACG0414 OAA5S~ .658 ; R6 = ODB 

s;ACGO0414 OAA5 .659 ; “R7 = system block 

3;ACG0414 OAAS~  .660.; R10 - R4, R8B - R11 preserved 

;ACG0414 QAA5 .661 ; 

;ACG0414 OAAS .662 ; Note: If failure, RS - R7 point to the ltast structures looked at. 
;ACG0414 OAA5 .663 ; 

3;ACG0414 OAA5 -664 ;- 

;ACGO0414 OAAS- .665 

3;ACG0414 OAAS .666 IOCSSEARCHCONT: : 

3;ACG0414 O31C 8F BB OAAS5 - 667 PUSHR #AM<R2,R3,R4,R8,R9> ; Save registers 

;ACG0414 O05 5A 08 E5 OAAQ_ .668 BBCC #TOC$V_ALT,R10,10$ ; check if alternate UCB in use 
3ACG0414 55 OOA8 C5 DO OAAD- .669 MOVL UCB$L_DP_ALTUCB(R5),R5 ; link back to-other to continue 
3;ACG0414 C5 11 OAB2 .670 10$: BRB NEXTUCB ; continue search 


TOSUBNPAG 


V03-033 


3;ACG0414 
3;ACG0414 
:ACG0414 
;ACG0414 
;ACG0414 
3;ACG0414 
3;ACG0414 
3;ACG0414 
3;A4CG0414 
3;ACG0414 
;ACG0414 
3;ACG0414 
;ACG0414 
sACG0414 
;ACG0414 
;ACG0414 
3;ACG0414 
;ACG0414 
3;ACGO0414 
;ACG0414 
;ACGO414 
;ACGO0414 
3;ACG0414 
3;ACG0414 
;ACG0414 
;ACG0414 
;ACG0414 
3;ACG0414 
;ACG0414 
;ACG0414 
s;ACG0414 
;ACGO0414 
;ACG0414 
3;ACG0414 
3;ACG0414 
;ACG0414 
;ACGO0414 
;ACG0414 
;ACG0414 
3;ACG0414 
3; ACG0414 
3;ACG0414 
3;ACG0414 
;ACG0414 
;ACG0414 
;ACGO0414 
;ACG0414 
;ACG0414 
;ACG0414 
;ACG0414 
;ACG0414 
;ACG0414 
;ACGO0414 
;ACG0414 
;ACG0414 
;ACGO0414 
;ACGQ0414 


50 


54 


09 


53 


OA 3C 


5A 
03 


50 
7F 38 


75 64 


OB 


11 38 


0908 8F 
06 5A 
AS 52 
5B 

5A 01 
00 

16 

008C C5 
4E 

5A 10 
A5 03 
OOA8 CS 
0100 8F 
SA 06 
0085 
OO6C 8F 
A5 13 
0840 8F 
AS 09 
SC AS 
1E 

SA 07 
SA OA 
AS 17 
08 


- NONPAGED I/O RELATED SUBROUTINES 3-JUN~-1984 11:33:30 VAX-11 Macro V0O3-01 Page 63 
Check UCB Against Search Rules 


3C 
EQ 
Bl 
12 


El 
ED 


OAB4 
OAB4 
OAB4 
OAB4 
OAB4 
OAB4 
OAB4 
OAB4 
QAB4 
OAB4 
OAB4 
OAB4 
OAB4 
OAB4 
OAB4 
OAB4 
OAB4 


OAB4. 


OAB4 
OAB4 
OAB4 
OAB4 
OAB4 
OAB4 
OAB4 
OAB4 
OAB4 
OAB4 
OAB4 
OABY 
OABC 
OACO 
OAC2 
OAC2 
OAC6 
OAC8 
OAC9 
OACD 
OACF 
OAD2 
OAD7 
OADC 
OAE1 
OAES 
OAE8 
OAE8 
OAE8 
OAE8 
OAED 
OAF2 
OAF7 
OAFC 
OAFF 
OBO} 
0B05 
O0BO9 
OBOE 


-672 
-673 
.674 
.675 
-676 
.677 
.678 
.679 
- 680 
.681 
- 682 
.683 
.684 
.685 
. 686 
.687 
. 688 
. 689 
.690 
.691 
-692 
.693 
. 694 
.695 
. 696 
.697 
. 698 
. 699 
. 700 
.701 
.702 
.703 
. 704 
.705 
- 706 
.707 
.708 
. 709 
.710 
.711 
.712 
.713 
.714 
.715 
.716 
~717 
.718 
.719 
.720 
2721 
~722 
-123 
.724 
.725 
.726 
.127 
.728 


-SBTTL 


IOC$TESTUNIT - 


INPUTS: 


uni 


x 
$ 
mouow ou 


R10 = fl 


OUTPUTS: 
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IOC$TESTUNIT: : 
MOV ZWL 
BLBC 
CMPW 
BNEQ 


10$: BBC 
CMPZV 
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Check UCB Against Search Rules 


Check UCB Against Search Rules 


t number 


device type code 
PCB address 
UCB address 


ags 


address of lock value block 


SS$_NORMAL - eligible for use according to flags 
SS$_NOSUCHDEV - wrong unit number 

SS$ DEVALLOC - device allocated to other user 
SS$_NOPRIV - failed device protection 
SS$_TEMPLATEDEV - can’t allocate template device 
SS$_DEVMOUNT - device already mounted 
SS$_DEVOFFLINE - device marked offline 


#SS$ NOSUCHDEV,RO ; assume wrong device 
R10,10$ branch if not physical search 


we we ee 


R2,UCB$W_UNIT(R5) is the unit number exactly right? 
80$ branch to error if not right. 
#IOC$V_TYPE,R10, 20$ ; branch if not searching for dev type 


#MSCP$V_MTYP_N,- 


#MSCPS$V_MTYP. 01,- 


BNEQ 
20$: BISB 
BBC 
MOVL 
BISwW 
30$: BBC 
BRW 


; Check the devi 


40$: MOVZWL 
BBS 
MOV ZWL 
BBS 
TSTW 
BEQL 
BBC 
BBS 
BBC 
BRB 


UCB$L_MEDIA_ID(R5),R3 ; is this the requested type? 

80$ ; branch if not 

#IOC$M_EXISTS,R10 ; note eligible device seen 
#DEV$V_CDP,UCB$L_DEVCHAR2(R5),30$ ; is this served path to a local d 


UCB$L_DP_ALTUCB(R5),R5 ; yes, get local path UCB address. 
#IOC$M_ALT,R10 ; note alternate UCB in use 
#ITOC$V_ANY,R10,40$ 3; if SEARCHALL, finish with success. 
120$ 


ce reference count and allocation status. 


#SS$ DEVMOUNT,RO ; check if device is already mounted 
#DEV$V_MNT,UCB$L_DEVCHAR(RS5), 130$ 

#SS$ DEVALLOC,RO 

#UCB$V_MOUNTING, UCB$W_STS(R5),130$ ; branch if mount in progress 


UCB$w_REFC(RS5) ; is reference count zero? 

90$ ; branch if reference count is zero. 
#IOC$V_MOUNT,R10,50$ ; if mounting... 

#TOC$V ALLOC,R10,60$ ; if shared mount 


#DEV$V_ALL,UCB$L_DEVCHAR(R5) ,90$ ; OK if not allocated 
70$ ; otherwise check allocation 
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SA O07 
50 04 
F496 

04 50 
50 01 
SA 08 
OOAB C5 
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3C 
E1 


3C 
E1 
EI 
3C 
EO 
30 
EQ 


EI 


DO 
DO 


E1 
DO 


30° 


EQ 
DO 


E5 
DO 
05 


0B10 
0B10 
0B13 
0B18 
0B1D 
OBIF 
OB1F 
OB1F 
OBIF 
OBI1F 
0B22 
0B27 
OB2D 
0B32 
0B37 
OB3C 
0B41 
0B46 
0B49 
OB4C 
OB4C 
OB4C 
OB4C 
OB4C 
OBS 1 
O0B56 
O0B59 
OBSC 
OB6O 
OB64 
OB67 
OB6A 
OB6D 
0B70 
0B71 
0B71 
0OB71 
0B71 
0B75 
OB7A 
0B7B 
0B7B 
0B7B 
0B7B 


-729 
.730 
.731 
.732 
.733 
.734 
-735 
.736 
-737 
.738 
.739 
.740 
741 
.742 
-743 
.744 
.745 
. 746 
.747 
.748 
.749 
.750 
.751 
.752 
.753 
.754 
-755 
.756 
.757 
.758 
.759 
.760 
.761 
-762 
.763 
.764 
.765 
. 766 
.767 
. 768 
.769 
.770 
-771 
1735 


50$: 
60$;: 
70$: 
80$: 


BLBC 
BBC 

CMPL 
BNEQ 


Check all the 
available. 


90$: 


we we oe we 


110$: 


120$: 


3 
; 
> 
1 


30$: 


140$: 


To here on 


MOVZWL 
BBC 
IFNPRIV 
MOVZWL 
BBC 

BBC 
MOVZWL 
BBS 
BSBW 
BLBC 


BBC 
BBS 
MOVL 
MOVL 
BBS 
BBC 
MOVL 
BSBw 
BLBC 
MOVL 
RSB 


BBCC 
MOVL 
RSB 


. END 
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R10,130$ ; allocate: error if not phy 
#DEV$V_ALL,UCB$L_DEVCHAR(R5),130$ ; err if dev. not allocated. 
UCB$L_PID(R5),PCB$L_PID(R4) ; does this process own the device? 
130$ ; Oranch to error if not our device. 


other miscellaneous junk that can make a device not 


#SS$ NOPRIV,RO ; check if device is spooled 
#DEVS$V_SPL,UCBS$L_DEVCHAR(RS5) , 100$ s; branch if not 
ALLSPOOL,130$,R4 ; else, process must have ALLSPOOL priv. 
#SS$_ DEVOFFLINE,RO ; check if device is available 
#DEV$V_AVL,UCB$L_DEVCHAR(R5) ,130$ 
#UCB$V_ONLINE,UCB$W_STS(R5),130$ 


#SS$_TEMPLATEDEV,RO ; check if device is a template 
#UCB$V_TEMPLATE,UCB$W_STS(R5) ,130$ 

EXE$CHKRDACCES ; check device protection 
RO,130$ , ; out if not accessible 


We‘ve passed ail the local tests. Now try to take out the appropriate 
lock on the device. 


#DEV$V_CLU,UCB$L_DEVCHAR2(R5),120$ ; br. if not cluster visible 
#DEVSV_ALL,UCB$L_DEVCHAR(RS5),120$ ; br. if allocated 

R11,R1 ; value block address 

#LCK$K_EXMODE,RO ; assume exclusive lock 
#IOC$V_ALLOC,R10,110$ ; branch if allocation requested 
#1OC$V_MOUNT,R10,110$ ; branch if not mount mode 

#LCK$K_ PWMODE,RO ; which uses PW 

TOC$LOCK_DEV ; and try to take device lock 

RO,130$ 

#SS$ NORMAL ,RO ; indicate success 


any error. 


#LTOC$V_ALT,R10O,140$ ; check if alternate UCB in use 
UCB$L_DP_ALTUCB(R5),R5 ; link back to other to continue 
; return 
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Symbol table 12-MAR-1982 17:12:23 DISK$VMSMASTER: [SYS.SRC] IOSUBNPAG(36) 
$$BASE = 00000001 DDB$T_NAME = 00000014 

S$$DISPL = 00000008 DDT$L_CANCEL = Q000000C 

$$GENSW = 00000001 DDT$L_REGDUMP = 00000010 

$S$HIGH = 00000007 DDT$L_START = 00000000 

SSLIMIT = 00000006 DDT$L_UNITINIT = 00000018 

$$LOW = 00000001 DEALLOC_DESCRIP OOOOO4BF R 02 
SSMNSW = 00000001 DEV$M_MBX = 00100000 

$SSMXSW = 00000001 DEV$M_TRM = 00000004 
ADD_DOLLAR OOOOO6BF R 02 DEV$V_2P = 00000004 

ADD_NODE ; OOOOO6BS5 R 02 DEV$V_ALL = 00000017 
ADP$C_NUMDATAP = 00000010 DEV$V_AVL = 00000012 
ADP$L_CSR = 00000000 DEV$V_CDP = 00000003 
ADPS$L_DPQBL = 00000018 DEV$V_CLU = 00000000 
ADP$L_DPQFL = 00000014 DEV$V_FOD = OQOOOOO000E 
ADP$L_MRACTMDRS = 0000005C DEV$V_MNT = 00000013 
ADP$L_MRQBL = 00000034 DEV$V_NNM = 00000009 
ADP$L_MRQFL = 00000030 DEV$V_OPR = 00000007 
ADP$W_ADPTYPE = OOOOOOOE DEV$V_SPL = 00000006 
ADP$W_DPBITMAP = 00000060 DEV$V_TRM = 00000002 
ADP$W_MRFREGARY = Q000015E DIR... = 00000001 
ADP$W_MRNREGARY = 00000064 DISKCHK 00000191 R 02 
ALLOC_ DESCRIP 000004D8 R 02 DISPLAY NAME OOOOOG9F R 02 
ALLOC NAME 00000682 R 02 DO_PMS OOO001A9 R 02 
AT$_UBA = 900000001 DYN$C_TWP = 00000030 

BINNUM 00000000 DYN$C_UCB = 00000010 
BOO$GL_SPTFREH eH KEK KE x 02 EMB$B_DV_ERTCNT = 00000010 
BOO$GL_SPTFREL FREAK KEY Xx 02 EMB$Q_DV_IOSB = 00000012 

BUG$_ INCONSTATE HERE KK KE X 02 EMB$W_DV_STS = OO000001A 
BUGS$_IVBYTEALGN ¥ EEK KK EH Xx 02 END_BROADCAST 0000078B R 02 
BUG$_UNSUPRTCPU 4% * HH KE xX 02 ERL$RELEASEMB RK EAA KK X 02 
CAN$C_AMBXOGN = 00000002 EXDVNM O000006D8 R 02 
CANS$C_DASSGN = 00000001 EXE$SALONONPAGED KK KK Xx 02 
CDRP$L_BCNT = FFFFFFD2 EXESALTQUEPKT ER RK Xx 02 
CDRP$L_FPC = 0000000C EXESCHKRDACCES eK AK RK Xx 02 
CORP$L_FQFL = 00000000 EXESDEANONPAGED KKK KKK Xx 02 
CDRP$L_FR3 = 00000010 EXE$GB_CPUTYPE  # KE KKK Xx 02 
CORP$L_IOQFL = FFFFFFAO EXE$GL_ABSTIM OE KK KK xX 02 
CDRP$L_RWCPTR = 00000028 EXE$GQ_SYSTIME * RF OE EK Xx 02 
CORP$L_UBARSRCE = 0000003C EXESMOUNTVER # ERK KH EE Xx 02 
CDRP$W_BOFF = FFFFFFDO EXE$TEST_CSR FEE K AEE Xx 02 
CLU$GL_CLUB FEEKEE KS X 02 FULL_NAME 0000067D R 02 
COMSDRVDEALMEM ¥* KEE EHS x 02 GETNUMBER 00000958 R 02 
COMMON_ALOUBAMAP 00000366 R 02 IDB$L_ADP = 00000014 
CRB$B_MASK = QOOOOO0E IDB$L_CSR = 00000000 
CRB$L_INTD = 00000024 IOB$L_OWNER = 00000004 

CRB$L_ LINK = 00000020 TOC$SALLOSPT 00000620 RG 02 
CRB$L_WQBL = 00000004 ITOCSALODATAP 00000261 R 02 
CRB$L_WQFL = 00000000 IOCSALOMAPUDA 00000314 R 02 
CRB$M_BSY = 00000001 TOCSALOUBAMAP 0000033E RG 02 
CRB$V_BSY = 00000000 TOCSALOUBAMAPN 00000337 RG 02 
DC$* DISK = 00000001 TOCSALOUBAMAPSP Q000003A8 RG 02° 
DDB$L_2P~ UCB = 00000040 ITOCSALOUBMAPRM O000044E RG 02 
DDB$L_ALLOCLS = 0000003C ITOCSALOUBMAPRMN 00000447 RG 02 
DDB$L_DP_UCB = 00000040 . ITOCSALTREQCOM 00000111 RG 02 
DDB$L_LINK = 00000000 TOCS$BROADCAST 00000720 RG 02 
DDB$L_S8 = 00000034 TOC$CANCELIO 00000000 RG 02 
DDBS$L_UCB = 00000004 TOC$CREDIT_UCB SRE EE Xx 02 


IOSUBNPAG 
Symbol table 


LOC$CTRLINIT 
IOC$CVT_DEVNAM 
ITOCSDALOCUBAMAP 
IOC$DELETE_UCB 
IOC$DIAGBUFILL 
IOC$GL_PSBL 
IOC$SINITIATE 
IOC$LAST_CHAN 
IOC$LAST_CHAN_AMBX 
IOC$LOCK_DEV 
IOCSMNTVER 
IOC$M_2P 
IOC$M_ALT 
IOC$M_CLASS 
IOC$M_EXISTS 
IOC$M LOCAL 
IOC$M_PHY 
IOC$M_TYPE 
TOCSPARSDEVNAM 
IOC$SRELCHAN 
ILOC$SRELDATAP 
TOCGRELDATAPUDA 
LOCSRELMAPREG 
IOCSRELMAPUDA 
IOCSRELSCHAN 
IOCSREQCOM 
ILOCSREQDATAP 
ITOCGSREQDATAPNW 
ITOCSREQDATAPUDA 
IOCSREQMAPREG 
IOC$REQMAPUDA 
IOCS$REQPCHANH 
IOC$SREQPCHANL 
IOCSREQSCHANH 
IOC$SREQSCHANL 
IOC$SRETURN 
IOC$SCAN_IODB 
IOC$SCAN_IODB_2P 
IOC$SEARCHCONT 
LOC$SSEARCHINT 
IOC$TESTUNIT © 
IOCSUNITINIT 
IOC$V_2P 
IOC$V_ALLOC 
IOC$V_ALT 
TOC$V_ANY 
TOC$V_CLASS 
IOC$V_EXISTS 
IOC$V_MOUNT 
IOC$V_TYPE 
IOC$WFIKPCH 
IOC$WFIRLCH 
IPL$_ASTDEL 
IPL$ _IOPOST 
IPL$ QUEUEAST 
IRP$L_DIAGBUF 
IRP$L_ITOQFL 
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00000830 
00000647 
00000568 
Ce 


00000054 
KKKKAK KE 
000001D4 
OOOO001E 
00000017 
OK OK KK KK 
000001CB 
00000020 
00000100 
00000004 
00000010 
00000008 
00000001 
00000002 
0000089D 
00000083 
0000028C 
00000281 
00000513 
000004F8 
00000079 
0000013C 
00000201 
00000213 
00000221 
00000302 
000002ED 
OOO000DA 
000000E3 
000000C6 
oooooo0po 
o000005D9 
00000791 
000007D6 
OOQO00AA5 
oo00009B1 
OOO00AB4 
0000086A 
00000005 
O000000A 
00000008 
00000006 
00000002 
00000004 
00000007 
00000001 
OOO005DA 
OOOOO5FC 
00000002 
00000004 
00000006 
o000004c 
00000000 


RG 
RG 
R 

x 
RG 

X 
RG 
RG 
RG 

X 
RG 


RG 
RG 


02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 


02 
02 


IRP$L_ MEDIA 
IRP$L_PID 
IRP$L_SVAPTE 
IRP$L_UCB 
IRP$V_DIAGBUF 
IRP$W_CHAN 
IRP$W_STS 
LCK$K_EXMODE 
LCK$K_PWMODE 
LOCAL_NAME 
MMG$GL_SPTBASE 
MNTVERPNDCHK 
MSCP$V_MTYP_D1 
MSCP$V MTYP_N 
NEXTUCB ~ 
NO SECONDARY 
NXTIRP 
PCB$L_PID 
PCB$Q_PRIV 
PDT$L_ADP 
PMS$END IO 
PMS$GL_IOPFMPDB 
PMS$START_IO 
PMSEND 

PR$_ IPL 

PRG SID_TYP730 
PR$ SID _TYP750 
PR$_SID_TYP780 
PR$_SID_TYP790 
PR$_SID_TYP8NN 
PR$_SID_TYP8SS 
PR$ SID _TYPUV1 
PR$_SIRR 
PRV$V_ALLSPOOL 
PUTASCIC 
PUTCHAR 
PUTDOLLAR 
PUTNUM 
REALLOC_CD_MAPREGS 
RELDATAP_COMMON 
RELEASE 

RESRO 

RESR1 

RESR2 

RESR3 

RESR4 
SAVABS... 
SAVED_RO 
SAVED Ri 

SAVED -R2 
SAVED_R3 
SAVED_R4 
SAVED_R5 

SAVR2 

SAVR3 

SAVR4 

SAVRB 
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17:12: 
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00000038 
ooo00000C 
0000002C 
o0000001C 
00000007 
00000028 
0000002A 
00000005 
00000004 
O000006C1 
KRKKKRKK KK 
000001B1 
00000016 
00000000 
00000A79 
OOOOOGEO 
00000182 
00000060 
00000084 


OOOOOOEDO 
RR OK 


2B RK OK Ok 
26K KR BO Ok 


00000173 
00000012 
00000003 
00000002 
00000001 
00000004 
00000006 
00000005 
00000007 
00000014 
00000004 
OOO006FD 
0000070E 
00000708 
OOO006E5 
00000554 
00000298 
0000018E 
00000008 
oo00000c 
00000010 
00000014 
00000018 
0000001C 
00000000 
00000004 
00000008 
ooo0000c 
00000010 
00000014 
00000000 
00000004 
00000008 
0000000C 


DAD 


DANDAADADD 


x KX 
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02 
02 
02 


02 
02 
02 


IOSUBNPAG 
Symbol! table 


SAVR9 

SB$L_DDB 
SB$L_FLINK 
SB$T_NODENAME 
SCH$GL_CURPCB 
SCRLEN 
SCS$GA_LOCALSB 
SCS$GQ_CONFIG 
SCSS$RESUMEWAITR 
SECONDARY_NAME 
SS$_BUFFEROVF 
SS$_DEVALLOC 
SS$_DEVMOUNT 
SS$_DEVOFFLINE 
SS$_ILLIOFUNC 
SS$_INSFMEM 
SS$_IVDEVNAM 
SS$_NODEVAVL 
SS$_NOPRIV 
SS$_NORMAL 
SS$_NOSUCHDEV 
SS$_TEMPLATEDEV 
TTY$B_WB_FIPL 
TTY$B_WB_TYPE 
TTY$K_WB_LENGTH 
TTY$L_WB_DATA 
TTY$L_WB_END 
TTY$L_WB_FR3 
TTY$L_WB_IRP 
TTY$L_WB_NEXT 
TTY$L_WB_RETADDR 
TTY$W_WB_SIZE 
UBMD$B_DATAPATH 
UBMD$B_NUMREG 
UBMD$W_MAPREG 
UCB$B_DEVCLASS 
UCB$B_ERTCNT 
UCB$B_FIPL 
UCB$B_TYPE 
UCB$L_2P_LINK 
UCB$L_CRB 
UCB$L_DDB 
UCB$L_DDT 
UCB$L_DEVCHAR 
UCB$L_DEVCHAR2 
UCB$L_DP_ALTUCB 
UCB$L_DP_DDB 
UCB$L_DP_LINK 
UCB$L_DUETIM 
UCB$L_EMB 
UCB$L_FPC 
UCB$L_FQFL 
UCB$L_FR3 
UCB$L_IOQFL 
UCB$L_IRP 
UCB$L: LINK 
UCB$L_MEDIA_ID 


how ow Ul 
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00000010 
00000054 
00000000 
00000044 
# EK KK KEK 
00000010 
BRR ERR 
ORR ORK 
RRR RK 
OOOO0O068F 
00000601 
00000840 
OO000006C 
00000084 
OOOO00F4 
00000124 
00000144 
O0O00009B0 
00000024 
00000001 
00000908 
000021DC 
00000008 
OO0Q0000A 
00000030 
00000030 
00000020 
00000010 
00000024 
0000001C 
0000002C 
00000008 
00000003 
00000002 
00000000 
00000040 
00000080 
00000008 
OOOQOQOOO0A 
O000000A4 
00000024 
00000028 
00000088 
00000038 
0000003C 
OOO000A8 
OO0000A0 
000000A4 
O0000006C 
00000094 
oo000000C 
00000000 
00000010 
o000004C 
00000058 
00000030 
0000008C 


x KOK 


02 


02 
02 
02 
02 


UCB$L_OPCNT 
UCB$L_PID 
UCB$L_STS 
UCB$L_SVAPTE 
UCB$M_BSY 
UCB$M_CANCEL 
UCB$M_INT 
UCB$M_TIM 
UCB$M_TIMOUT 
UCB$V_BSY 
UCB$V_DELETEUCB 
UCB$V_ERLOGIP 
UCB$V_MNTVERIP 
UCB$V_MNTVERPND 
UCB$V_MOUNTING 
UCB$V_ONLINE 
UCB$V_TEMPLATE 
UCB$W_BCNT 
UCB$W_BOFF 
UCB$W_REFC 
UCB$W_STS 
UCB$W_UNIT 
VEC$B_DATAPATH 
VEC$B_NUMREG 
VEC$L_ADP 
VEC$L_IDB 
VEC$L_INITIAL 
VEC$L_UNITINIT 
VEC$M_MAPLOCK 
VEC$S_DATAPATH 
VEC$V_DATAPATH 
VEC$V_MAPLOCK 
VEC$V_PATHLOCK 
VEC$W_MAPREG 
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00000070 
0000002C 
00000064 
00000078 
00000100 
00000008 
00000002 
00000001 
00000040 
00000008 
00000010 
00000002 
OOOOO00E 
00000013 
00000009 
00000004 
o000000D 
OOOOO007E 
o0000007C 
OOOO0005C 
o0000064 
00000054 
00000013 
00000012 
00000014 
00000008 
oo000000C 
00000018 
00008000 
00000005 
00000000 
OOOOOOOF 
00000007 
00000010 
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ITOSUBNPAG 
Psect synopsis 


PSECT name 


$ABS$ 
WIONONPAGED 


Initialization 
Command processing 
Pass 1 
Symbol] 
Pass 2 | 
Symbol table output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 


table sort 


The working set 


~ NONPAGED 


Allocation 
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12-MAR-1982 17:12:23 
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4o-- He + 
! Psect synopsis ! 
poo ee ee + 

PSECT No. Attributes 


NOWRT NOVEC BYTE 


00000000 0.) OO ¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD 
oo0000i1c 28.) O11 ( 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
00000B7B, 2939.) O02 ( 2.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
+---------- -- + 
! Performance indicators ! 
+---+----------- - + -- + 
Page faults CPU Time Elapsed Time 
9 00:00:00.05 00:00:03.03 
73 00:00:00.67 00:00:05.51 
676 00:00:36.81 00:02:30.72 
0 00:00:04.17 00:00:16.52 
408 00:00:12.25 00:00:52.03 
fe) 00:00:00.24 00:00:00.47 
1 00:00:00.02 00:00:00.02 
0 00:00:00.00 00:00:00.00 
1170 00:00:54.21 


limit was 2250 pages. 


176206 -bytes (345 pages) of virtual 


There were 


150 pages of symbol! 


2794 source lines wére read in Pass 
59 pages of virtual memory were used to define 55 macros. 


Macro library name 


$255$DUA28:(SYS.OBJ]LIB.MLB;1 


$255$DUA28: [SVYSLIB]STARLET.MLB; 2 


TOTALS (al] libraries) 


2923 GETS were required to define 


There were no errors, 


MACRO/LIS=LIS$: IOSUBNPAG/OBJ=OBJ$ 


warnings or 


00:03:48.30 


memory were used to buffer the intermediate code. 
table space allocated to hold 2680 non-local and 162 local 
producing 24 object records in Pass 2. 


symbols. 


! Macro library statistics ! 


47 macros. 
information messages. 


: IOSUBNPAG MSRC§$: IOSUBNPAG/UPDATE=(ENH$: IOSUBNPAG) +EXECML$/LIB 
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) 66.1 CREATE FORK-AND-WAIT PROCESS 

) 67 CREATE I/O DRIVER FORK PROCESS 

) 90 CREATE FORK PROCESS 

) 117 SOFTWARE INTERRUPT ENTRY POINTS 

) 165 SOFTWARE INTERRUPT FORK DISPATCHER 
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V03-002 12-MAR-1982 17:11:47 DISKS$VMSMASTER: [SYS.SRC]FORKCNTRL. (1) 
0000 1 -TITLE FORKCNTRL - FORK PROCESS CONTROL 

;DWT0158 0000 .1 -IDENT ‘V03-002’ 

=] 0000 3 
0000 4; 
0000 BR A RRR ROR ROR ORG RG OR GRR ORR OKO OK 
0000 6 :* * 
0000 7 ;* COPYRIGHT (c) 1978, 1980, 1982 BY * 
0000 8 ;* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
0000 9 ;* ALL RIGHTS RESERVED. * 
0000 10 ;* * 
0000 11 3#3;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0000 12 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0000 13° =;*% INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS’ HEREBY * 
0000 16 ;% TRANSFERRED. * 
0000 17 =3* * 
0000 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 3% AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
0000 20 =;* CORPORATION. * 
0000 21 ;* * 
0000 22 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 23 3;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 24 ;* * 
0000 25 ;* * 
0000 QE BR KR RRR RRR RRR ROKR ORR ROR RK OOK 
0000 27 
0000 28 ; D. N. CUTLER 9-AUG-76 
0000 29 ; 

;ROWO176 0000 1 ; MODIFIED BY: 

;ROWO176 0000 23 - 

;DWT0158 0000 3; V03-002 DWT0158 David W. Thiel 27-DEC-1983 

;DWTO158 0000 -4 ; Speed up fork processing a bit by doing fewer interrupts 

;DWT0158 0000 5 3 and REMQUE’s. 

;0WT0158 0000 6 ; 

;ROWO176 : 0000 Y dee V03-001 ROWO176 Ralph O. Weber 4-APR-1983 

;ROWO176 0000 8 ; Add EXE$FORK_WAIT, the entry fork-and-wait routine which is 

;ROWO176 0000 9 3 the object of the FORK WAIT macro. 

;ROWO176 0000 .10 ; 

-29 0000 59 ; 
0000 60 ; MACRO LIBRARY CALLS 
0000 61 ; 
0000 62 
0000 63 S$FKBDEF. ;DEFINE FKB OFFSETS 
0000 64 $PRDEF ;DEFINE PROCESSOR REGISTERS 


0000 65 $UCBDEF ;DEFINE UCB OFFSETS 


FORKCNTRL 
VO03-002 


;DWT0158 
;DWT0158 
;DWTO158 
;DWTO158 
;DWT0158 
;DWTO158 
;DWT0158 
;DWT0158 
;DWTO0158 
;DWT0158 
;DWT0158 
;DWT0158 
;0DWT0158 
;DWT0158 
;DWT0158 
;DWT0158 
;DWT0158 
;DWT0158 
;0WT0158 
;DWT0158 
;DWT0158 
;DWT0158 
;DWT0158 
;DWT0158 
;DWTO158 
;0WT0158 
;DWT0158 
;DWT0158 
;DWT0158 
;DWT0158 
;DWT0158 
;DWT0158 
;DWT0158 
;DWTO0158 
;DWT0158 
;DWT0158 
;DWT0158 
;DWT0158 
;DWT0158 
;DWT0158 
;DWT0158 
;DWT0158 


10 A5 


0000’ DF 
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CREATE FORK-AND-WAIT PROCESS " 12-MAR-1982 17:11:47 DISKSVMSMASTER: [SYS.SRC]FORKCNTRL. (1) 

0000 1 .-SBTTL CREATE FORK-AND-WAIT PROCESS 
0000 23 
0000 .3 3; EXE$FORK_WAIT - CREATE FORK-AND-WAIT PROCESS 
0000 4: 
0000 -5 ; FUNCTIONAL DESCRIPTION: 
0000 -6 ; 
0000 .7 3 This routine is called to fold a fork context into a fork block and 
0000 .8 ; place that block on the fork~and-wait work queue, EXE$GL_FKWAITFL. 
0000 9 ; From zero to one seconds later, EXE$TIMEOUT will remove all entries in 
0000, .10 ; the fork-and-wait work queue and restart the fork thread saved here. 
0000 Pa ie ae 
0000 12 ; INPUTS: 
0000 13°; 
0000 14 ; OO(SP) = Return address of the caller 
0000 15 ; O4(SP) = Return address of the caller’s caller 
0000 16 ; 
0000 17 ; R5 = Address of a fork block 
0000 18 ; R3 & R4 = Saved fork context registers 
0000 19 ; 
0000 .20 ; IPL >= IPL$_ SYNCH 
0000 .21~=; 
0000 22 ; 
0000 .23 ; OUTPUTS (to caller’s caller): 
0000 24 ; 
0000 25 ; All registers and IPL are returned as they were when this routine was 
0000 .26 ; called. Depending upon actions taken by the caller this may be 
0000 wads equivalent to destroying RO through R5 and altering IPL. 
0000 28 ; 
0000 .29 ; OUTPUTS (to caller after fork-~and-wait completed): 
0000 .30 ; 
0000 .31 >; R3 through R5 preserved. 
0000 ol) 8 All other registers destroyed. 
0000 .33 ; IPL = FKB$B_FIPL(R5) 
0000 .34 ; 
0000 .35 
0000 .36 EXESFORK_WAIT:: 
0000 mae J 
0000 .38 ASSUME FKB$L_FR4 EQ <FKB$L_FR3 + 4> 

53 7D = Q000 . 39 MOVQ R3, FKB$L_FR3(R5) ; Save fork context registers. 

OC AS 8EDO 0004 .40 POPL FKB$L_FPC(R5) ; Save fork context PC. 
65 OE 0008 41 INSQUE (R5), @WAEXE$GL_FKWAITBL ; Put fork block on work queue. 
05 oooDd .42 RSB ; Return to caller’s caller. 
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V03-002 CREATE I/O DRIVER FORK PROCESS 12-MAR-1982 17:11:47 DISK$SVMSMASTER: [SYS.SRC]FORKCNTRL. (1) 
OOOE 67 .-SBTTL CREATE I/O DRIVER FORK PROCESS 
OOOE 68 ;+ 
OOOE 69 ; EXE$IOFORK - CREATE I/0 DRIVER FORK PROCESS 
OOOE 70 ; 
OOOE 71 3; THIS ROUTINE IS CALLED BY AN I/O DRIVER TO CREATE A FORK PROCESS. 
OOOE 72 ; 
OOOE 73 ; INPUTS: 
OOOE 74 =; 
OOOE 75 3 OO(SP) = RETURN ADDRESS OF CALLER. 
QOOE 76 ; O04(SP) = RETURN ADDRESS OF CALLER’S CALLER. 
OOOE 77; 
OOOE 78 ; R5 = UCB ADDRESS OF DEVICE UNIT. 
OOOE 79 ; 
OOOE 80 ; OUTPUTS: 
OOOE 81 ; 
OOOE 82 ; FEETB SEF 
OOOE 83 ;- 
QOOE 84 
00000000 85 -PSECT A$EXENONPAGED,LONG 
0000 86 EXES$IOFORK:; s;CREATE I/O DRIVER FORK PROCESS 
64 AS 01 AA 0000 87 BICW #UCBSM_TIM,UCB$W_STS(R5);DISABLE TIMEOUT AND FALL THROUGH 
0004 88 ;10 EXE$FORK 
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04(SP) 
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12-MAR-1982 17:11:47 DISKSVMSMASTER: [SYS.SRC]FORKCNTRL. (2) 


CREATE FORK PROCESS 


EXEGSFORK - CREATE FORK PROCESS 


THIS ROUTINE IS CALLED TO CREATE A FORK PROCESS. 


RETURN ADDRESS OF CALLER. 
RETURN ADDRESS OF CALLER‘S CALLER. 


RS = ADDRESS OF FORK BLOCK. 


OUTPUTS: 


#EETBS HK 


EXESFORK:: 


10$: 


;CREATE FORK PROCESS 
MOVQ R3,FKB$L_FR3(R5) ;SAVE REGISTERS R3 AND R4 
POPL FKB$L_FPC(R5) ;SET FORK PROCESS PC 
MOVZBL FKB$B_FIPL(R5),R4 ;GET FORK IPL 
MOVAQ  WASWI$GL_FQFL-<6*8>[R4],R3 ;GET ADDRESS OF FORK QUEUE LISTHEAD 
INSQUE (R5),@4(R3) ; INSERT FORK BLOCK IN FORK QUEUE 
BNEQ 10$ ;I1F QUEUE ALREADY POPULATED AVOID EXTRA INTE 
SOFTINT R4 ; INITIATE SOFTWARE INTERRUPT 
RSB ; AND RETURN ~ 
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SOFTWARE INTERRUPT ENTRY POINTS 12-MAR-1982 17:11:47 DISK$VMSMASTER: [SYS.SRC]FORKCNTRL. (3) 

0020 117 .SBTTL SOFTWARE INTERRUPT ENTRY POINTS 
0020 118 ; 
0020 119 ; THE APPROPRIATE ENTRY POINT IS AUTOMATICALLY VECTORED TO WHEN THE SOFTWARE 
0020 120 ; INTERRUPT PRIORITY ARBITRATION LOGIC IN THE CENTRAL PROCESSOR DETECTS A 
0020 121 ; PENDING INTERRUPT AT LEVEL 6, 8, 9, 10, OR 11 AND THE CURRENT PRIORITY LEVEL 
0020 122 ; IS LOWER THAN THE PENDING LEVEL. THE STATE OF THE STACK ON ENTRY IS: 
0020 123 ; 
0020 124 ; OO(SP) = INTERRUPT PC. 
0020 125 ; 04(SP) = INTERRUPT PSL. 
0020 126 ; 
0020 127 ; THERE IS AN ENTRY POINT FOR EACH FORK LEVEL SO THAT THE HARDWARE IPL REGISTER 
0020 128 ; WILL NOT HAVE TO BE READ TO DETERMINE THE CURRENT PROCESSOR IPL. READING THE 
0020 129 ; IPL REGISTER IS SLOW ENOUGH TO WARRANT THE ADDITIONAL CODE. 
0020 130 ; 
0020 131 
0020 132 -ALIGN LONG ;ENTRY POINT MUST BE LONGWORD ALIGNED 
0020 133 EXESFRKIPLG6EDSP:: ;FORK IPL 6 ENTRY POINT 

DD 0020 134 PUSHL R6 ; SAVE R6. 

7E 0022 135 MOVAQ WASWI$GL_FQFL,R6 ;GET ADDRESS OF FORK QUEUE LISTHEAD 

11. 0027 136 BRB EXESFORKDSPTH >BRANCH TO COMMON CODE 
0029 137 
0029 138 .ALIGN LONG ;ENTRY POINT MUST BE LONGWORD ALIGNED 
002C 139 EXE$FRKIPLODSP:: ;FORK IPL 9 ENTRY POINT 

DD O02C 140 PUSHL R6 ;SAVE R6. 

7E OO2E 141 MOVAQ WASWI$GL_FQFL+24,R6 ;GET ADDRESS OF’ FORK QUEUE LISTHEAD 

11 0033 142 BRB EXE$FORKDSPTH ;BRANCH TO COMMON CODE 
0035 143 
0035 144 .ALIGN LONG ;ENTRY POINT MUST BE LONGWORD ALIGNED 
0038 145 EXEGSFRKIPLIODSP:: ;FORK IPL 10 ENTRY POINT 

DDB 0038 146 PUSHL R6 , ;SAVE R6. 

7E 003A 147 MOVAQ WASWI$GL_FQFL+32,R6 ;GET ADDRESS OF FORK QUEUE LISTHEAD 

11. OO3F 148 BRB EXESFORKDSPTH ;BRANCH TO COMMON CODE 
0041 149 
0041 150 -ALIGN LONG ;ENTRY. POINT MUST BE LONGWORD ALIGNED 
0044 151 EXESFRKIPL11DSP:: ;FORK IPL 11 ENTRY POINT 

DDB 0044 152 PUSHL R6 ; SAVE R6. 

7E 0046 153 MOVAQ WASWI$GL_FQFL+40,R6 ;GET ADDRESS OF FORK QUEUE LISTHEAD 

11 0048 154 BRB EXESFORKDSPTH ;BRANCH TO COMMON CODE 
004D 155 
004D 156 .ALIGN LONG ;ENTRY POINT MUST BE LONGWORD ALIGNED 
0050 157 EXESFRKIPLBDSP:: >FORK IPL 8 ENTRY POINT 

DD 0050 158 PUSHL R6 »SAVE R6. 

7E 0052 159 MOVAQ WASWI$GL_FQFL+16,R6 ;GET ADDRESS OF FORK QUEUE LISTHEAD 

01 0057 160 NOP ;PAD OUT TO LONGWORD BOUNDARY 
0058 161 ; 
0058 162 ; DROP THROUGH TO COMMON CODE 
0058 163 ; 
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SOFTWARE INTERRUPT FORK DISPATCHER 12-MAR-1982 17:11:47 DISK$SVMSMASTER: [SYS.SRC]FORKCNTRL. (4) 
0058 165 .SBTTL SOFTWARE INTERRUPT FORK DISPATCHER 
0058 166 ;+ 
0058 167 ; EXESFORKDSPTH - SOFTWARE INTERRUPT FORK DISPATCHER 
0058 168 ; 
0058 169 ; FOR EACH OF THE LEVELS 6, 8, 9, 10, AND 11, THERE EXISTS A QUEUE OF FORK 
0058 170 ; BLOCKS WAITING TO BE PROCESSED. WHEN A FORK BLOCK IS ENTERED IN ITS 
0058 171 ; CORRESPONDING QUEUE AND IT IS THE FIRST TO BE ENTERED (I. E. THE QUEUE 
0058 172 ; WAS PREVIOUSLY EMPTY), A SOFTWARE INTERRUPT IS REQUESTED FOR THAT LEVEL. 
0058 173 ; THE FORK DISPATCHER GAINS CONTROL AND EMPTIES THE QUEUE ONE ENTRY AT A 
0058 174 ; TIME. AS EACH FORK IS DISPATCHED, REGISTERS R3 AND R4 ARE RESTORED FROM 
0058 175 ; THE FORK BLOCK AND THE FORK PROCESS IS CALLED VIA A JSB INSTRUCTION. 
0058 176 ; ON RETURN, THE FORK DISPATCHER RETRIEVES THE NEXT ENTRY FROM THE QUEUE 
0058 177; AND REPEATS THE DISPATCHING OPERATION. THIS PROCESS CONTINUES UNTIL 
0058 178 ; THERE ARE NO MORE FORKS TO DISPATCH AT WHICH TIME THE INTERRUPT. IS 
0058 179 ; DISMISSED. ; 
0058 180 ; 
0058 181 ; 
0058 182 ;- 
0058 183 .ALIGN LONG 
0058 184 EXE$FORKDSPTH:: ; SOFTWARE INTERRUPT FORK DISPATCHER 
DD 0058 185 PUSHL RS ;SAVE R5 . 
DD OOSA 186 PUSHL R4 ;SAVE R44, 
DD oOosc 187 PUSHL R3 ;SAVE R83 . PUSHLS ARE FASTEST! 
DD OOSE 188 PUSHL R2 ;SAVE R2.. 
DD O060 189 PUSHL R1 ;SAVE R1. 
DD 0062 190 PUSHL RO ;SAVE RO. 
11 0064 a BRB 20$ ;BRANCH TO BODY OF DISPATCHER 
0066 .2 >; 
0066 .3 ; DISPATCH FORK PROCESS WHEN QUEUE IS NOT YET EMPTY 
0066 194 ; DISPATCH FORK PROCESS WITH: 
0066 195 ; 
0066 196 ; RO THRU R2 = SCRATCH REGISTERS. 
0066 197 ; R3 AND R4 = RESTORED FROM FORK BLOCK. 
0066 198 ; R5 = ADDRESS OF FORK BLOCK. 
0066 199 ; 
7D 0066 200 10$: MOVQ FKB$L_FR3(R5) ,R3 ;RESTORE REGISTERS R3 AND R4 
16 OO6A 201 JSB @FKB$L_FPC(RS) ;DISPATCH FORK 
OF OO06D «1 208% REMQUE @(R6),R5 ;REMOVE NEXT ENTRY FROM FORK QUEUE 
12 0071 .2 BNEQ 10$ ;BRANCH IF QUEUE NOT YET EMPTY 
1D 0073 .3 BVS 30$ ;IF VS NO ENTRY REMOVED 
0075 .4 ;HERE WHEN LAST ENTRY DEQUEUED 
0075 5; 
0075 .6 ; DISPATCH LAST ENTRY IN THE QUEUE 
0075 .7 3; DISPATCH FORK PROCESS WITH: 
0075 8; 
0075 9; RO THRU R2 = SCRATCH REGISTERS. 
0075 .10 =; R3 AND R4 = RESTORED FROM FORK BLOCK. 
0075 .110; R5 = ADDRESS OF FORK BLOCK. 
0075 12 ; 
7D 0075 13 MOVQ FKB$L_FR3(RS),R3 ;RESTORE REGISTERS R3 AND R4 
16 0079 14 JSB @FKB$L_FPC(RS) ;DISPATCH FORK 
BA oOa7Cc .15 30$: POPR #AM<RO,R1,R2,R3,R4,R5,R6> ;RESTORE FORK PROCESS REGISTER SET 
02 0080 205 REI ;DISMISS INTERRUPT 
0081 206 
0081 207 . END 


FORKCNTRL - FORK PROCESS CONTROL 3-JUN-1984 11:20:55 VAX-11 Macro V03-01 Page 7 
Symbol table 12-MAR-1982 17:11:47 DISK$VMSMASTER: [SYS.SRCJ]FORKCNTRL. (4) 
EXESFORK 00000004 RG 03 
EXE$FORKDSPTH 00000058 RG 03 
EXESFORK_WAIT . 00000000 RG 01 
EXE$FRKIPL10DSP 00000038 RG 03 
EXE$FRKIPL11DSP 00000044 RG 03 
EXESFRKIPL6EDSP 00000020 RG 03 
EXESFRKIPL8DSP 00000050 RG 03 
EXESFRKIPLODSP 0000002C RG 03 
EXE$GL_FKWAITBL # KK KKK x 01 
EXE$IOFORK 00000000 RG 03 
FKB$B_FIPL = 00000008 
FKB$L_FPC = QO00000C 
FKB$L_FR3 = 00000010 
FKB$L_FR4 = 00000014 
PR$_SIRR = 00000014 
SWIS$GL_FQFL HERE KEKE X 03 
UCBS$M_TIM = 00000001 
UCB$W_STS = 00000064 
+—--~-------------- + 
! Psect synopsis ! 
+------ - ~~ + 
PSECT name Allocation PSECT No Attributes 
ABS 00000000 (¢ 0.) OO (€ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
« BLANK QOOOOOOE ( 14.) O1 ¢( 1.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
$ABS$ 00000000 ( QO.) O2 ( 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
ASEXENONPAGED 00000081 ( 129.) 03 ( 3.) \NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
+------- + 
! Performance indicators ! 
toe er en nnn + 
Phase Page faults CPU Time Elapsed Time 
Initialization 9 00:00:00.07 00:00:00.47 
Command processing 73 00:00:00.58 00:00:06.58 
Pass 1. 200 00:00:04.79 00:00:24.27 
Symbol table sort — 0. 00:00:00.68 00:00:02.39 
Pass 2 51 00:00:01.32 00:00:07.47 
Symbol table output 3 00:00:00.04 00:00:00.03 
Psect synopsis output 2 00:00:00.02 00:00:00.10 
Cross~reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 341 00:00:07.50 00:00:41.34 
The working set limit was 900 pages. 
22659 bytes (45 pages) of virtual memory were used to buffer the intermediate code. 
There were 30 pages of symbol table space allocated to hold 426 non-local and 4 local symbols. 


244 source lines were read in Pass 1, producing 14 object records in Pass 2. 
12 pages of virtual memory were used to define 11 macros. 
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VAX-11 Macro Run Statistics 12-MAR-1982 17:11:47 DISK$VMSMASTER: [SYS.SRC]FORKCNTRL. (4) 
+---- + + 
' Macro library statistics ! 
Sl etalon anon! + 

Macro library name Macros defined 

_$255$DUA28:[SYS.OBJJLIB.MLB; 1 3 

_$255$DUA28: [SYSLIB]STARLET.MLB; 2 5 

TOTALS (all libraries) 8 


491 GETS were required to define 8 macros. 
There were no errors, warnings or information messages. 


MACRO/LIS=LIS$: FORKCNTRL/OBJ=OBJ$:FORKCNTRL MSRC$: FORKCNTRL/UPDATE=(ENHS$: FORKCNTRL)+EXECML$/LIB 


INITADP 


INIADP780 
Table of contents 


. 


LOQ£0 LON LODO LON OW LON LO LON LON LON LON ON PN PN ON 


Hos ooo UOWMWYNOUDW 


Oomph DHPAAD|A |= Owe vrwwwws 
Nee ee Ne Ne Ne Ne Ne 


168 


220. 


378 
528 
539 
691 
708 
832 
867 
1016 
1072 
1503 
1504 
1505 


1649. 


1650 
1762 
1905 


36 


- ADAPTER INITIALIZATION FOR VAX 11/780 


Macros to describe nexus configurations 
Adapter-specific data structures 
CPU-specific data structures 

Message strings 

INISIOMAP, Initialize and map nexuses 
INITADP_780, (750, _730, and _UV1 
CONFIG _IOSPACE 

CREATE_ARRAYS 

MAP_PAGES 
INI$UBSPACE 
INI$GUBADP - BUILD ADP AND INITIALIZE UBA 
INISMBADP - BUILD ADP AND INITIALIZE MBA 
INI$DRADP - BUILD ADP AND INITIALIZE DR32 
INI$CIADP - BUILD ADP AND INITIALIZE CI 
INI$KDZ11 


INIGCONSOLE, init data structures for console 
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EXE$INI_TIMWAIT - COMPUTE CORRECT TIMEWAIT LOOP VALUES 
EXE$INIT_TODR - SET SYSTEM TIME TO CORRECT VALUE AT STARTUP 
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COPYRIGHT (c) 1978, 1980, 1982, 1983 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS- HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


aOR RR BR ROR OB OK OK KO OE RO KOK OK KK KK ROK KKK KKK KOK OK ROKK KK OK KK OK KOK OK KOK KKK 


Facility: System bootstrapping and initialization 


Abstract: This module contains initialization routines that are loaded 
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during system initialization (rather than linked into the system). 


Environment: Mode = KERNEL, Executing on INTERRUPT stack, IPL=31 


Author: Trudy C. Matthews Creation date: 22-Jan-1981 


Modification history: 


VO03-021 KDMO100 Kathleen D. Morse 01-May-1984 
Correct address of memory CSRs to be past the 8 missing 
Qbus adapter pages that do not exist. 


VO03-020 KDMO0099 Kathleen D. Morse 27-Apr-1984 
On a MicroVAx I, if the sysgen parameter TIMEDWAIT is set 
to request no time-prompting, then use the last recorded 
system time instead. This is found in EXE$GQ_TODCBASE 
which can be updated with a SET TIME command. 


VO03-019 RLRSCORPIO Robert L. Rappaport 16-Mar-1984 
Begin additions (to INI$IOMAP) for Scorpio support. 
Also move ADAPDESC to SYSMAR.MAR, changing it to remove 
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19-OCT-1983 11:50:19 DISK$VMSMASTER: [SYSLOA.SRC]INIADP. (1) 


the ADAP_GENERAL array. 


RLRINIADP Robert Rappaport 28-Feb-1984 
Add refinements to previous update that introduces 
lonqword array CONFREG. Mainly add logic to allow for 
independently assembled invocations of ADAPDESC macro 
to be linked into this code. This provides possible 
support of BI as a public bus, with user defined nodes. 


KPLO100 Peter Lieberwirth 30-Jan-1984 
Implement first step towards a longword-array CONFREG to 
replace current byte array CONFREG. INIADP will construct 
two confregs, CONFREG and CONFREGL. CONFREGL will be 

a longword array. The high byte will be a VMS-bus 
designation, and the low word will contain the 16-bit 
device type. The BI introduces 16 bit device types. 


When all references to CONFREG have been modified to touch 
CONFREGL, INIADP will be modified again to stop creating 
the byte array. 


White here, map 9 pages of CI register space, up from 8. 


KPLOOO} Peter Lieberwirth 17-Jan-1984 
Fix bug in VO03-015 that caused a failure to boot on 750s. 
Specifically, add NDT$ MEMIGG4NI to ADAPDESC macro. 
TCMOOO9 Trudy C. Matthews 12-Dec-1983 


Add support for booting from VENUS console device to 
INISCONSOLE. When mapping I/O space on VENUS, use the 
PAMM to determine if any adaptors are present on the 
ABUS. 


KDMO08 1 Kathleen DO. Morse 13-Sep-1983 
Create version for Micro-VAX I. 
DWT0126 David W. Thiel 30-Aug-1983 


Modify EXE$INIT_TODR to set internal time without 
modifying the contents of the system disk. 


KDMOO062 Kathleen D. Morse 18-Jul-1983 
Add loadable, cpu-dependent routine for initializing 
the time-wait loop data cells, EXES$INI_TIMWAIT. 


KDMO057 Kathleen D. Morse 15-Jul-1983 
Added loadable, cpu-dependent routine for initializing 
the system time, EXE$INIT_TODR. 


KTA3071 Kerbey T. Altmann 12-Jul-1983 
Include CPU-specific console init code. 


TCMOOO08 Trudy C. Matthews 10-Jan-1983 
Change PSECT of 11/790 data that must stick around after 
INIADP is deleted. Build arrays ABUS VA, ABUS_ TYPE, and 
ABUS INDEX that describe the 11/790 ABUS configuration. 


MSHOO002 Maryann Hinden 08-Dec-1982 
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V03-007 


V03-006 


V03-005 


V03-004 


V03-003 


V03-002 


V03-001 
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Add powerfail support for DW750. 
ROW0142 Ralph O. Weber 24-NOV-1982 


Change UBA interrupt services routines prototype so that 
UBAERRADR is correctly computed as an offset from UBAINTBASE. 


TCMOOO7 Trudy C. Matthews 10-Nov-1982 
Add 11/790-specific initialization of SCB. 
TCMOO06 Trudy C. Matthews 88-Nov-1982 


Initialize field ADP$L_AVECTOR with the address of 
each adapter’s first SCB vector. 


KTA3018 Kerbey T. Altmann 30-Oct-1982 
Move from INILOA facility, rename from INITADP, 
put in conditional assembly, rewrite some routines. 


MSHOOO1 Maryann Hinden 24-Sep-1982 
Change EXE$DW780.INT to EXE$UBAERR_INT. 


TCMOQOO5 Trudy C. Matthews 10-Aug-1982 
Added support for 11/790 processor. 


KDMO002 Kathteen D. Morse 28-Jun-1982 
Added $DCDEF. 
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s RLRSCORPIO 
; RLRSCORPIO 
; RLRSCORPIO 
~4 


-;RLRSCORPIO 
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0000 
0000 
0000 
0000 
0000 
0000 


MACRO LIBRARY CALLS 


$ADPDEF 
$BIICDEF 
$BTDDEF 
$BUADEF 
$CRBDEF 
$DCDEF 
$DDBDEF 
$DYNDEF 
$IDBDEF 
$I0780DEF 
SMCHKDEF 
$NDTDEF 
$PRDEF 


$PR780DEF 


$PTEDEF 
$RPBDEF 
SUBADEF 
$UCBDEF 
$VADEF 

SVECDEF 


3-JUN-1984 14: 


19-OCT-1983 


11; 


53:36 
50:19 


we we we we we we we we ws wee wee we we 


we we we we wee we 


Define 
Define 
Define 
Define 
Define 
Define 
Define 
Define 
Define 
Define 
Define 
Define 
Define 


Define 


Define 
Define 
Define 
Define 
Define 
Define 
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ADP offsets. 

BIIC offsets. 

boot devices 

BUA Register offsets. 

CRB offsets. 

adapter types 

DDB offsets 

data structure type codes. 
interrupt dispatcher offsets. 
11/780 I/O space. 

machine check masks. 

nexus device types. 

IPR numbers. 


11/780 specific IPR numbers. 


Page Table Entry bits. 

Restart Parameter Block fields. 
UBA register offsets. 

UCB offsets. 

virtual address fields. 

vec offsets. 
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0000 168 -SBTTL Macros to describe nexus configurations 
0000 169 ; 
0000 170 ; The macros FLOAT NEXUS and FIXED NEXUS add one or more entries to a 
0000 171°; nexus descriptor table. Each entry is of the form: 
0000 «172 ; tao banceseseae oe aee nate aS= + 
0000 173 ; | PFN of nexus I/O space | 
;KPLO100 0000 sd, aaa a +S Sess 55 HOSS RSS SSSA Sess + 
;KPLO100 0000 2; | bus | 0 | type | 
3KPLO100 0000 .3 5 tas S PaaS Sse For Sa SSrSe-SSS + 
;KPLO100 0000 4; type = 0 -> floating nexus 
;KPLO100 0000 oer type = non-zero -> fixed nexus; type = fixed adapter type 
;KPLO100 0000 20" bus = 0, if SBI; %x80 if BI (this is a VMS-only designation) 
;KPLO100 0000 ele & 
;KPLO100 0000 8 ; 
;KPLO100 0000 9 ;3 device_type: SBI adapters have 8-bit device type codes. These 
;KPLO100 0000 -10 ; device types are simple integers. 
;KPLO100 0000 .11o; 
;KPLO100 0000 a2* is BI adapters have 16-bit device type codes, that are 
;KPLO100 0000 .13°> ; subject to the following interpretation: 
;KPLO100 0000 .14 ; ; 
;KPLO100 0000 a - the MSB of the device-type field will be O for DEC 
;KPLO100 0000 .16 =; devices and 1 for non-DEC devices, 
;KPLO100 0000 .17 3 _ 
;KPLO100 0000 18 ; - DEC memory devices will. have Os in the high-order 
;KPLO100 0000 .19° ; byte of the device type, 
;KPLO100 0000 .20 ; 
;KPLO100 0000 -21°= ; - non-DEC supplied memory devices will have a 1 in the 
3;KPLO100 0000 .22 ; MSB of the high-order byte, and the rest of the high 
;KPLO100 0000 23 ; order byte will contain Qs. . 
;KPLO100 0000 24 5 
;KPLO100 0000 25°; - The “all Os" and “all 1s" device-type codes are 
3;KPLO100 > oocoo .26 ; reserved for DEC. 
;KPLO100 0000 27 3; 
;KPLO100 0000 .28 ; If SBI type codes were simply expanded to a word. for purposes of the routines 
;KPLO100 0000 -29 ; in this module, there would be possible conflicts between SBI devices and 
;KPLO100 0000 .30 ; BI memory adapters supplied by DEC. Voila: the bus type. 
~5 0000 179°; 
0000 180 ; Macro FLOAT _NEXUS. 
0000 181 ; INPUTS: : 
0000 182 ; PHYSADR -- physical address of 1 or more contiguous floating nexus 
0000 183 ; slots 
0000 184 ; NUMNEX ~- number of contiguous floating nexuses, default = 1 
0000 185 ; PERNEX -- amount of address space per nexus (does not have to be 
0000 186 ;. specified if NUMNEX = 1) 
0000 187 ; 
0000 188 -MACRO  FLOAT_NEXUS PHY SADR , NUMNEX=1 , PERNEX=0 
0000 189 PA = PHYSADR 
0000 190 REPEAT NUMNEX ; For each nexus... 
0000 191 . LONG <PA/AX200> ; Store PFN. 
;KPLO100 0000 1 . LONG 8) ; Store floating nexus type. 
~1 0000 193 PA = PA + PERNEX ; Increment to physical address of next nexus. 
0000 194 .ENDR 
0000 195 - ENDM FLOAT NEXUS 
0000 196 
0000 197 ; 


0000 198 ; Macro FIXED _NEXUS. 
0000 199 ; 
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; RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
; RLRSCORPIO 
; RLRSCORPIO 
; RLRSCORPIO 
; RLRSCORPIO 
; RLRSCORPIO 
;RLRSCORPIO 
; RLRSCORPIO 
; RLRSCORPIO 
: RLRSCORPIO 
; RLRSCORPIO 
; RLRSCORPIO 
; RLRSCORPIO 
; RLRSCORPIO 
; RLRSCORPIO 
; RLRSCORPIO 
; RLRSCORPIO 
; RLRSCORPIO 
; RLRSCORPIO 
: RLRSCORPIO 
; RLRSCORPIO 
; RLRSCORPIO 
;RLRSCORPIO 
; RLRSCORPIO 
; RLRSCORPIO 
; RLRSCORPIO 
; RLRSCORPIO 
;RLRSCORPIO 
; RLRSCORPIO 
; RLRSCORPIO 
; RLRSCORPIO 
; RLRSCORPIO 
; RLRSCORPIO 
;RLRSCORPIO 
; RLRSCORPIO 
; RLRSCORPIO 
; RLRSCORPIO 
; RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
; RLRSCORPIO 
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00000000 
00000001 


00000001 


00000002 


00000000 
80000000 


FFFFFFFB 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


200 
201 
202 
203 
204 
205 
206 
207 
208 


INPUTS 


we ee we we we 


Macro 


we we we te we we we we ee we 


; Define 


BI_LIKE 
SBI_LIKE 


SBI_CSR_ 


BI_CSR_L 


SBI_BUS_ 
BI_Bus_C 


LABEL: 


CSR_LEN_ 


PHYSADR - physical address of 1 or more contiguous fixed nexus slots 
PERNEX - amount of address space per nexus 
NEXUSTYPES - a list of fixed nexus types, enclosed in <> 


-MACRO FIXED NEXUS PHY SADR, PERNEX=0,NEXUSTYPES 

PA = PHYSADR 

.IRP TVPECODE ,NEXUSTYPES ; For each fixed nexus type... 
. LONG <PA/AX200> ; Store PFN. 

. LONG TYPECODE ; Store fixed nexus type. 


PA = PA + PERNEX Increment to address of next nexus. 
.ENDR 


.ENDM = FIXED_NEXUS 


NEXUSDESC_ TABLE - declare the beginning of a NEXUS descriptor table 


Ist byte in table (at offset -5 from label) contains length of 
adapter type code field in CSR’s on this bus. [Note for SBI like 
busses, this is 1.] The next longword (at offset -4) in the 
table contains the Software defined bus type byte defined in the 
high order byte of the longword. [Note for SBI like busses, this 
value is 0, for the BI it is Ax80.] 


parameters that may be specified or used in macro invocation. 
= 0 | ; BI like bus. 
= 1 ; ; SBI like bus. 
LEN = 1 ; Length of type code field in adapter CSR’s 
; on SBI, CMI, etc. 
EN = 2 ; Length of type code field in adapter CSR‘s 
: on BI. 
CODE = 0 ; Software defined bus code for SBI like busses. 
ODE = Ax80000000 ; Software defined bus code for the BI. 


.MACRO NEXUSDESC_TABLE LABEL,BUS_TYPE=SBI_LIKE 
LIF EQ,BUS TYPE-SBI_LIKE 
.BYTE  SBI_CSR_LEN 
.LONG SBI_BUS CODE 


LIFF 
LIF EQ,BUS_TYPE-BI_LIKE 
.BYTE ~ BI_CSR_LEN 
LONG  8I_BUS CODE 
.IFF 
.ERROR ; UNRECOGNIZED BUS TYPE, NEXUSDESC_TABLE; 
. ENDC . 
. ENDC 


-ENDM NEXUSDESC_ TABLE 


OFFSET = -5 ; Offset before nexus descriptor of 
; byte containing length of adapter 
3 type field in adapter CSR. 
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;RLRSCORPIO FFFFFFFC 0000 -49 BUS CODE OFFSET = -4 ; Offset before nexus descriptor table 
;RLRSCORPIO 0000 .50 ; of longword containing software 
;RLRSCORPIO 0000 “or ; defined bus type to be or’ed with 
;RLRSCORPIO 0000 .52 ; adapter type to produce NDT$_ value. 
-5 0000 214 ; 

0000 215 ; Macro END _NEXUSDESC. 

0000 216 ; 

0000 217 -MACRO END _NEXUSDESC 

0000 218 . LONG 0 ; PFN=0 -> end of nexus descriptors. 


0000 219 . ENDM END _NEXUSDESC 
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;RLRSCORPIO 
; RLRSCORPIO 
;RLRSCORPIO 
; RLRSCORPIO 
;RLRSCORPIO 
.;RLRSCORPIO 
; RLRSCORPIO 
: RLRSCORPIO 
;RLRSCORPIO 
; RLRSCORPIO 
; RLRSCORPIO 
; RLRSCORPIO 
s RLRSCORPIO 
;RLRSCORPIO 
: RLRSCORPIO 
; RLRSCORPIO 
: RLRSCORPIO 
; RLRSCORPIO 
;RLRSCORPIO 
; RLRSCORPIO 
; RLRSCORPIO 
: RLRSCORPIO 
; RLRSCORPIO 
~65 


; RLRSCORPIO 
; RLRSCORPIO 
; RLRSCORPIO 
;RLRSCORPIO 
; RLRSCORPIO 
; RLRSCORPIO 
; RLRSCORPIO 
; RLRSCORPIO 
s RLRSCORPIO 
; RLRSCORPIO 
; RLRSCORPIO 
sRLRSCORPIO 
» RLRSCORPIO 
;RLRSCORPIO 
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0000 
0000 
0000 
0000 
0000 
00000000 
0000 
0000 
00000000 
0000 
0000 
0000 
0000 
00000000 
~ 0000 
00000000 
0000 
0000 
0000 
00000000 
0000 
00000000 
0000 
0000 
0000 
0000 
0000 
0000 
00000000 
0000 
0000 


0088 0000 
0070 0002 


00 0004 


00000000 0005 


OBONOUBWN— 


19-OCT-1983 11:50:19 DISKSVMSMASTER: [SYSLOA.SRC]INIADP. (4) 
.SBTTL Adapter-specific data structures 
: Put a symbol! for arrays built by macros in the correct psects. 


pe RK AKA K AR AKA AEAK ADAPTERS array *## ## HK HH HK 


-PSECT $$$INITSDATAO 
ADAPTERS: ; Build adapter type code arrays here. 


-PSECT $$$INITSDATAI ; User contributions in this .PSECT. 
; End of ADAPTERS array. 
pK RRR KAR EKER EKEEKE End of ADAPTERS array *####KKEEKKE 


pe RRR RK AR RRA EEA NUM PAGES array #*# ## # RHE KEK 
-PSECT $$$INITSDATA2 
NUM_PAGES: ; Build “number of pages to map" array. 


-PSECT $$$INITSDATA3 ; User contributions in this .PSECT. 
; RRR RRR KR ER RRKEKER End of NUM PAGESarray *#*#* eR KEK HS 


pe RRA ARR RK AAR AKAKE TNIT ROUTINES array *#### ee KK KEE 
-PSECT $$$INITSDATA4 

INIT ROUTINES: ; Build “address of init routine" array. 
-PSECT $$$INITS$DATAS ; User contributions in this .PSECT. 

pe RRR RRR RAR RR AAEEK Eng of INIT ROUTINES array *#### RR EHEKES 


To add a new adapter type: 
1} Add a new ADAPDESC macro invocation to the end of this list. 


we we we we 


-PSECT $$$INITSDATA,LONG 


Default interupt vectors for UNIBUS system devices 

(This array is indexed by the RPB field RPB$B DEVTYP, if the RPB fieid 
RPB$W_ROUBVEC is zero. If RPB$W_ROUBVEC is not zero, then RPB$W_ROUBVEC 
is used and this array is not referenced at all. RPB$W_ROUBVEC is set up 
by PQDRIVER. RPB$L_BOOTRO is set by VMB to contain the device name in 
ASCII, not the vector number and device type, as it does on full 
architecture VAX machines. 


OOTVECTOR: 
. WORD AX88B ; RKOG/7 Interrupt: vector 
. WORD AX70 ; RLO1/2 Interrupt vector 


BUS CSR_LEN: 
BYTE 0 


Static byte containing the length (in bytes) 
of the adapter type field in the CSR’s of 
the bus currently being configured. The 
proper value for the bus of interest is 
copied here, from the current nexus 
descriptor table, when we enter subroutine 
CONFIG_IOSPACE. 


we we ee we we we ee 


SW_BUS_CODE: 
LONG 0 


Static longword containing the software 
defined bus type, of the bus currently being 
configured, in the high order byte. The 
proper value for the bus of current interest 
is copied here, from the nexus descriptor 
table, when we enter subroutine 


wt ee we we we we 


INIADP780 
V03-021 


;RLRSCORPIO 
;RLRSCORPIO 
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;RLRSCORPIO 
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;RLRSCORPIO 
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;RLRSCORPIO 
-1 


;KPLO100 

; RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
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0009 15 3;- CONFIG _IOSPACE. 

0009° 16 

0009 .17 DIRECT _VEC_NODE CNT: ; Static longword that counts the number of 

0009 18 ; direct vectoring adpater: nodes that we have 
00000000 a0009 ~19 . LONG 0 ; run across so far. 

000D .20 
00000001 oOOodgD .21 $S$$VMSDEFINED = 1 ; Define symbol that means VMS system software. 
00000080 9O00D -22 NUMUBAVEC = 128 ; ALLOW FOR 128 UNIBUS VECTORS 

000D 23 

000D 24 ADAPDESC - ; Memory. ** MUST BE 1ST IN DESCRIPTOR LIST ** 

000D 25 ADPTYPES=<NDT$_ MEMI664NI ,NOT$_MEM4NI ,NDT$_MEM4I,NDT$_MEMI6NI, 

000D 26 NOT$ MEM16I ,NDT$_MEM64NIL,NDOT$ MEM64EIL,NDT$ MEMG4NIU, 

oooD .27 NDT$ MEMG64ETU, NDTS MEM64I, NOT$ SCORMEM> - 

000D 314 NUMPAGES=1 

000D 315 

o0o0D 316 ADAPDESC - ; MASSbus. 

Oo0oD 317 ADPTYPES=NDT$ MB, — 

‘000D 318 NUMPAGES=8, —- 

000D 319 INITRTN=INISMBADP 

000D 320 

O000D 321 ADAPDESC - ; UNIbus. 

000D a1 ADPTYPES=<NDT$_UBO,NDT$_UB1,NDT$_UB2,NDT$_UB3,NDT$_BUA>, - 

000D 323 NUMPAGES=8, - 

000D 324 INITRTN=INI$UBSPACE 

000D 325 

000D 326 ADAPDESC - ; Multi-port memory. 

000D 327 ADPTYPES=<NDT$_MPMO,NDT$_MPM1,NDT$ MPM2,NOT$_MPM3>, = 

000D 328 NUMPAGES=1, - 

OOO0D 329 INITRTN=INISMPMADP 

000D 330 

000D 331 ADAPDESC - ; DR32. 

000D 332 ADPTYPES=NDT$_DR32, - 

O0O0D 333 NUMPAGES=4, - 

000D 334 INITRTN=INISDRADP 

Q000D 335 

000D 336 ADAPDESC - ; C1780 

000D 337 ADPTYPES=NDT$ CI, - 

000D el NUMPAGES=9, - 

000D 2 INITRTN=INISCIADP 

000D 3 

000D .4 ADAPDESC - ; KDZ11 Processor 

0O00D 5 ADPTYPES=NDT$ _KDZ11, - 

000D .6 NUMPAGES=1, - 

000D 7 INITRTN=INIGKDZ11 

00QaD 8 
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08 
0030 
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01 
0030 
02 


01 
0030 
04 


000D 
000D 
000D 
000D 
000D 
000D 
0000 
0000 
0001 
0003 
0004 
0004 
o00D 
000D 
000D 
000D 
O000D 
O000D 
O00D 
OOOE 
0010 
0011 
0011 
0011 
0012 
0014 
0015 
0015 
0015 
0016 
0018 
0019 
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343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 


3-JUN- 1984 
19-OCT-1983 


14:53 
11:50 


THE TABLE OFFSETS ARE: 


we we we we we 


GDEFINI ADPTAB 
ADPTAB_IDBUNITS: .BLKB 1 ; 
ADPTAB_ADPLEN: . BLKW 1 ; 
ADPTAB_ATYPE: . BLKB 1 ; 


$DEFEND ADPTAB 


; TABLES THEMSELVES: 


’ 


MBATAB: ; 
-BYTE 8 3 
. WORD ADP$C_MBAADPLEN ; 
.BYTE AT$_MBA ; 
DRTAB: 3 
.BYTE 1 3 
.WORD  ADP$C_DRADPLEN ; 
BYTE AT$_OR : 
CITAB: ; 
.BYTE 1 ; 
. WORD ADP$C_CIADPLEN ; 
.BYTE AT$_CI 3 


TABLES OF ADAPTER-DEPENDENT INFORMATION 
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736 
719 


# UNITS TO SET IN IDB 
LENGTH OF ADP 
ADP TYPE 


TABLE OF MBA CONSTANTS 
# UNITS IN MBA IDB 

# BYTES IN MBA ADP 

MBA ADAPTER TYPE 


TABLE OF DR32 CONSTANTS 
# UNITS IN DR IDB 

# BYTES IN DR ADP 

DR ADAPTER TYPE 


TABLE OF CI CONSTANTS 
# UNITS IN CI IDB 

# BYTES IN CI ADP 

CI ADAPTER TYPE 
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;RLRSCORPIO 
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;KPLO100 
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0019 378 -.SBTTL CPU-specific data structures 
0019 379 ; 
0019 380 ; To add a new CPU type: 
0019 381 ; 1) Create a new nexus descriptor table, using FLOAT_NEXUS and 
0019 382 ; FIXED NEXUS macros. Put an END _NEXUSDESC macro at the end. 
0019 383 ; 
0019 384 
0019 386 
0019 387 CPU_ADPSIZE: 
O4EC’ 0019 388 . WORD ADP$C_UBAADPLEN+UBINTSZ+<NUMUBAVEC#*4> 
0018 389 
001B od 
001B .2 3 
001B -3 ; Declare the beginning of a nexus-descriptor table. 
0018 4; 
001B a5 NEXUSDESC TABLE LABEL=NEXUSDESC 
0020 .6 
0020 ay See 
0020 .8 ; Describe all possible nexuses on an 11/780. 
0020 Bao eer 
00000001 0020 .10 SBI_CPU = 1 
00000000 0020 11 BI CPU = 0 
0020 397 FLOAT NEXUS - 
0020 398 PHYSADR=I0780$AL_IOBASE, ~- 
0020 399 NUMNEX=IO780$AL_ NNEX, - 
0020 400 PERNEX=IO780$AL_ PERNEX 
OOAO 401 END _NEXUSDESC 
OOA4 403 
OOA4 436 
OOA4 458 
O0A4 495 
O0A4 496 
O0A4 513 
OOA4 24 
OOA4 25; 
O0OA4 26 ; Nexus “descriptor” arrays ~- these arrays hold the nexus-device type and 
OOA4 27 ; virtual address of every adapter on the system. The arrays, CONFREGL and 
OOA4 28 ; SBICONF, are allocated enough space to hold the maximum number of adapters 
OOA4 29 ; that can be attached to any CPU. When the code discovers how many adapters 
O0A4 -30 ; actually exist on the system, it will allocate space from non-paged pool 
O0OA4 .31 3; and move a permanent copy of these arrays into that space. 
O0OA4 .32 ;3 
00000040 OQ0A4 33 MAXNEXUS = 64 
OOA4 34 CONFREG: ; Byte array of nexus-device type codes.. 
OOOOO0E4 QO0A4 35 .BLKB MAXNEXUS 
OOE4 36 SBICONF: 
O000001E4 O0E4 .37 ~-BLKL MAXNEXUS ; Longword array of VAs of adapter space. 
O1E4 .38 CONFREGL: 
OOO002E4 O1E4 39 »~BLKL MAXNEXUS 


; Longword array of nexus-device type codes 
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Message strings 


ooo00000D 
OOOOO00A 


25 OA OD 
4E 49 43 
49 2D 46 
69 66 66 
20 74 6E 
6E 65 20 
OD 73 65 


25 OA OD 
4E 49 43 
55 2D 46 
20 53 55 
79 72 6F 
20 73 65 
74 73 20 
74 61 20 

00 OA 


O2E4 
O2E4 
O2E4 
O2E4 
O2E4 
O2E4 
O2EA 
O2F0 
O2F6 
O2FC 
0302 
0308 
030D 


O30D | 


0313 
0319 
O31F 
0325 
032B 
0331 
0337 
033D 


528 
529 
530 
531 
532 
533 


535 
536 


BADUMR: 
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.SBTTL 


-ASCIZ 


-ASCIZ 


19-OCT-1983 11:50:19 DISK$VMSMASTER: [SYSLOA.SRC]INIADP. (6) 


Message strings 


<CR><LF>/%EXECINIT-F-Insufficient SPT entries/<CR><LF> 


<CR><LF>/%EXECINIT-F-UNIBUS memory does not start at O/<CR><LF> 


INIADP780 
V03-021 


;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 

-;RLRSCORPIO 
sRLRSCORPIO 
-4 


OFFF 8F 


00000000’ GF 


52 
00000000’ GF 
53 

53 6342 


52 52 09 
80000000 8F 
52 

54 
00000000’ GF 
59 

5C AQ F7 8F 
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INI$IOMAP, 


0000 


BB 


DO 
DO 
DE 
78 
C8 


D4 
DBO 


78 


O33F 
O33F 
O33F 
O33F 
033F 
033F 
033F 
O33F 
O33F 
O33F 
O033F 
O033F 
O33F 
O33F 
O033F 
O33F 
O33F 
O033F 
O33F 
O33F 
O33F 
O33F 
O33F 
O33F 
O33F 
033F 
033F 
O33F 
O033F 
O33F 
O33F 
O033F 
O33F 
O33F 
O33F 
O33F 
O33F 
O33F 
0000 
0000 
0000 
0000 
0004 
0004 
0004 
0004 
OOOA 
OOOB 
0011 
0012 
0016 
OO1A 
0020 
0021 
0023 
0029 
002A 


Initialize and map nexuses 19-OCT-1983 11:50:19 DISK$VMSMASTER: [SYSLOA.SRC]INIADP. (7) 

539 .SBTTL INIGIOMAP, Initialize and map nexuses 

540 ;++ 

541 ; FUNCTIONAL DESCRIPTION: 

542 ; This routine is executed only once, during system initialization. 

543 ; It loops through all nexuses on the system, testing for 

544 ; adapters. When it finds an adapter, it maps its I/O space and 

545 ; initializes it. 

546 ; 

547 ; INPUTS: 

548 ; BOO$GL_SPTFREL - next free VPN 

549 ; MMG$GL_SPTVASE - base of system page table 

550 ; EXE$GL_RPB - address of reboot parameter block 

552 ; RPB$L_ADPPHY(RPB) ~ PFN of boot adapter space 

554 ; 

555 ; OUTPUTS: 

556 ; RO - SS$_ NORMAL 

557 ; 

558 ; For each adapter found, its accessible I/O space is mapped to virtual 

559 ; addresses. An ADP (Adapter Control Block) is built, and the hardware 

560 ; adapter is initialized. 

561 ; 

562 ; The arrays CONFREG (a byte array of nexus-device type codes, defined 
ak 3 by NDT$_ symbols) and SBICONF (a longword array of 
#23 virtual addresses that map adapter space) are initialized. Pointers 
-3 3 to these arrays are stored in EXE$GL_CONFREG = and 
«4 3 MMG$GL_SBICONF. The number of entries in these two parallel arrays is 
35 3 stored in EXE$GL_NUMNEXUS. 
-6 ; 
fa fae Since BI devices have a 16-bit device type code, a mew CONFREG array is 
8 ; constructed. This is a longword array called CONFREGL. 

567°; 

568 ; Several locations in the RPB that describe the boot device are init’ed: 

569 ; RPB$L_BOOTR1 - holds index into CONFREG and SBICONF for the boot 

570 ; adapter ‘ 

571 ; RPB$L_ADPVIR - holds VA of boot device adapter’s register space 

572 ; RPB$L_CSRVIR - holds VA of boot device’s register space 

573 ;-- 

574 

575 -PSECT $$$INIT$CODE, QUAD 

576 INIGIOMAP:: ) 

577 

578 PUSHR #AM<KRO,R1,R2,R3,R4,R5,R6,R7,R8,R9O,R10,R11> 

579 ; 

580 ; Set up common inputs to CONFIG_IOSPACE subroutine for the CPU-specific code. 

581 ; 

582 MOVL GABOOS$GL_SPTFREL,R2 ; Get next available VPN. 

583 MOVL GAMMGS$GL_SPTBASE,R3 ; Get base of System Page Table. 

584 MOVAL (R3){[R2],R3 ; Compute SVASPT. 

585 ASHL #9,R2,R2 ; Convert VPN to VA. 

586 BISL #VAGM_SYSTEM,R2 ; Set system bit. 

587 CLRL R4 ; Clear index into CONFREG and SBICONF. 

588 MOVL GAEXE$GL_RPB,R9 ; Get address of RPB. 

590 ASHL #-9,RPB$L_ADPPHY(R9),R10; Get PFN of boot adapter space. 
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V03-021 INIGIOMAP, Initialize and map nexuses ._ 19-OCT-1983 11:50:19 DISK$VMSMASTER: [SYSLOA.SRC]INIADP. (7) 
5A 002F 
OOE4’CF DE 0030 592 MOVAL WASBICONF , GAMMG$GL_SBICONF ; Set pointers to local copies 
00000000’GF 0034 
OOA4’ CF DE 0039 593 MOVAL WACONFREG, GAEXE$GL_CONFREG ; of these arrays for init routines. 
00000000’ GF Q003D 
;KPLO100 Q1E4’CF DE 0042 .1 MOVAL WACONFREGL ,GAEXE$GL_CONFREGL ; 


00000000’ GF 0046 
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V03-021 INITADP_780, _750, _730, and _UV1 19-OCT-1983 11:50:19 DISK$VMSMASTER: [SYSLOA.SRC]INIADP. (8) 
004B 691 .SBTTL INITADP_780, _750, _730, and _UV1 
004B 692 ; 
0048 693 ; 1/0 address space for the 11/780, 11/750, 11/730, and Micro-VAX I cpus 
004B 694 ; is statically defined in their respective nexus descriptor tables. 
004B 695 ; 
56 0020’CF DE 0O04B 696 MOVAL WANEXUSDESC ,R6 ; Get address of nexus table. 
5B D4 0050 697 CLRL R11 ; Signal use 1st page of SCB. 
OB 10 0052 698 BSBB CONFIG_IOSPACE ; Configure processor I/0 space, 
0054 699 
0054 701 
00C3 30 0054 702 BSBW CREATE ARRAYS ; Create CONFREG and SBICONF arrays. 
OFFF 8F BA 0057 703 POPR #AM<RO,R1,R2,R3,R4,R5,R6,R7,R8,R9O,R10,R11> 
50 01 DO 0058 704 MOVL #1,RO0 ; Set success status 


O05 OOSE 705 RSB ; Return. 


' 
! 
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V03-021 CONFIG_IOSPACE 19-OCT-1983 11:50:19 DISK$VMSMASTER: [SYSLOA.SRCJINIADP. (9) 
OO5F 708 .SBTTL CONFIG_IOSPACE 
OO5SF 709 
OO5F 710 CONFIG_IOSPACE 
OOSF 711 Given a nexus descriptor table, which describes what "nexuses" or 
OOSF 712 “slots" are available on a system to hold I/O adapters, find and 
OOSF 713 initialize all adapters on the system. 
OO5F 714 
OO5F 715 Inputs: 
OO5SF 716 R2 - next available virtual address, to be used for mapping I/O space 
OOSF. 717 R3 - address of PTE associated with VA in R2 
OOS5SF 718 R4 - Current index into CONFREG and SBICONF arrays (should be O the 
OO5F 719 first time CONFIG_IOSPACE is called) 
OOSF 720 R6 - address of nexus descriptor table 
OO5SF 721 RQ - address of Restart Parameter Block (RPB) 
OO5F 722 R10 - PFN of boot adapter space 


> 
OOSF 723 =; R1l1- page offset from beginning of SCB; tells which page of the SCB 
C 


OO5SF 724 to use for this set of nexuses (passed to routines that init ADP) 
OO5F 725 
OO5F 726 Outputs: 
OO5F 727 R2,R3,R4 - updated 
OOSF 728 RQ9,R10,R11 - preserved; all other registers potentially modified 
OO5SF 729 CONFREG - initialized with adapter NDT$ code for each nexus 
OOSF 730 SBICONF - initialized with adapter space VA for each nexus 
OOSF FST os . 
OOSF 732 CONFIG_IOSPACE: 
OO5SF 734 ; 
OOSF 735 ; Main loop. Map and initialize all adapters on system. 
OOSF 736 ; 
;RLRSCORPIO OOSF Pal 
;RLRSCORPIO FB AG 90 OO5F 2 MOVB CSR_LEN OFFSET(R6),- ; Move length of adapter type field 
;RLRSCORPIO 0004'CF 0062 a3 WABUS_ CSR_LEN ; in CSR’s to static location. 
;RLRSCORPIO FC AG DO OO65 4 MOVL BUS CODE _OFFSET(R6),- ; Move software defined bus type code 
;RLRSCORPIO 0005’CF 0068 5 WASW_BUS CODE 3 to static longword. 
;RLRSCORPIO 006B .6 
006B 742 NXT_NEXUS: ; For each nexus... 
58 86 DO 006B 743 MOVL (R6)+,R8 ; Get PFN of nexus. 
01 12 OO6E 745 BNEQ TEST _NEXUS ; If PFN non-zero, go test the slot. 
05 0070 ‘746 RSB ; If O, we’ve found all nexuses. 
0071 747 ; 
0071 748 ; Read configuration register to determine if anything is present at this 
0071 749 ; nexus. 
0071 750 ; 
0071 751 TEST _NEXUS: 
90000000 8F CQ 0071 752 BISL3 #PTESM VALID!PTE$C_ KW,- ; Temporarily associate VA in R2 with 
63 58 007.7 753 R8,(R3) ; PFN in R8 via SPTE in R3. 
0079 754 -$PRTCTINI BAI10$, - ; Protect following code from non- 
0079 755 #<MCHK$M_NEXM!MCHK$M_LOG>; existent memory machine checks. 
51 62 DO 0085 756 MOVL (R2),R1 ; Read adapter configuration register. 
0088 757 $PRTCTEND 10$ ; End of protected code. 
0089 758 INVALID R2 ; Clear TB of temporary mapping. 
11 50 E8 OO08C 759 BLBS RO,GET_TYPE ; Branch if no machine check occurred. 
OO8F 760 ; 
OO8F 761 ; No adapter present at this nexus. 
OO8F 762 ; 
;KPLO100 O0A4‘CF44 94 QOBF a1 CLRB WACONFREG[R4] ; Store "unknown" type in CONFREG 
;KPLO100 O01E4’CF44 D4 0094 2 CLRL WACONFREGL[R4 J] ; and in CONFREGL also. 


;KPLO100 55 DB4 0099 “3 CLRL R5 ; Use general memory type to map 


INIADP780 
V03-021 


;KPLO100 
;KPLO100 
-4 


;RLRSCORPIO 
*; RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
; RLRSCORPIO 
;RLRSCORPIO 
;RLR'SCORPIO 
;RLRSCORPIO 
; RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
; RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
; RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
; RLRSCORPIO 
;RLRSCORPIO 
-16 


56 04 
59 
57 86 
14 


0004’CF 01 


05 
57 51 
03 
57 51 


57 0005’CF 


00A4’CF44 57 
01E4‘'CF44 57 


55 

50 0000’CF45 
0000’CF 

BE 50 

3F 

60 57 

04 

55 

E8 

5A 58 

15 

60 AQ 52 
20 AQ 54 
OD 00 

51 54 AQ 
1000 C241 
58 AQ 
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CONFIG_IOSPACE 


co 
11 


DO 
12 


91 


13 
3c 
11 
9A 


C8 


D1 
12 
DO 


EF 


9E 


009B 
009B 
OO9E 
OOA0 
OOAO 
O0AO 
OOAO 
OOAO 
00A3 
OOAS 
OOAS 
OOAS 
OOAS 
OOA5 
OOAS 
OOAA 
OOAA 


QOAC 


OOAF 
00B1 
00B4 
00B4 
OOB9 
00B9 
00B9 
0OB9 
00B9 
OOBS 
OOBF 
00cs 
00C7 
00C7 
oocD 
oop 
00D4 
00D6 
00D9 
OODB 
OODD 
OODF 
OODF 
OODF 
OODF 
OODF 
OODF 
OOE2 
OOE4 
OOE8 
OOEC 
OOEF 
OOF2 
OOF2 
OOF7 
OOF9 
OOFS 
OOF9 
OOF9 


4 
“9 
767 
769 
770 
771 
772 


795 
797 
798 
799 


800 
801 


802 
803 
804 
805 


11/780 3-JUN-1984 
19-OCT-1983 11:50: 

ADDL2 #4,R6 3 

BRB MAP_NEXUS ; 
Execution continues here if adapter was 
GET_TYPE: 

MOVL (R6)+,R7 ; 

BNEQ GET_GEN_TYPE 7 


Floating-type slot. 
Determine if type 


we we we we 


CMPB #1,WABUS CSR_LEN ; 
BEQL 10$ 3 
MOVZWL R1,R7 ‘ 
BRB 20$ 3 
10$: MOVZBL R1,R7 ; 
20$: 3 
BISL WASW_BUS_ CODE,R7 ; 


Here R7 has hardware adapter code or’ed 


Translate specific nexus device type code 


GET_GEN_TYPE: 


MOVB R7,WACONFREG[R4] ; 
MOVL R7,WACONFREGL[R4]} 3 
CLRL R5 ; 
‘30$: ‘ 
MOVAL WAADAPTERS[R5],RO ; 
PUSHAB WANUM_PAGES ; 
CMPL RO,(SP)+ 3 
BGEQU  END_NEXUS ; 
CMPL R7, (RO) 3 
BEQL 40$ ; 
INCL R5 ; 
BRB 30$ ; 
40$: 
; Store boot parameters. 
CMPL R8,R10 : 
BNEQ MAP_NEXUS ; 
MOVL R2,RPB$L_ADPVIR(RQ) ; 
MOVL R4,RPB$L_BOOTR1(RQ) 3 
EXTZV #0,#13, - : ; 
RPB$L_CSRPHY(RQ),R1 ; 
MOVAB <8*512>(R2)(R1], - ; 


RPB$L_CSRVIR(RQ) ; 


14:53:36 VAX-11 


Save nexus-~device type 


Macro V03-01 Page 17 
19 DISK$VMSMASTER: [SYSLOA.SRC]INIADP. (9) 


one page of I/O space. 
Step past type code in nexus table. 
Go map 1/0 space for this nexus. 


present. 


Get nexus-device type from nexus table. 


Branch if fixed slot. 


Use type from configuration register. 
in configuration register 


is 8-bits or 16-bits. 


Determine length of adapter type 
Field in CSR contained in R7. 
EQL implies 1 byte (8-bit) field. 

BI_ LIKE, so use word instruction. 
Skip byte instruction. 

Use byte instruction to get type. 


Or in software bus code. 


with software bus code. 
into general adapter type code. 


in CONFREG. 
CONFREGL also filled in. 
Clear loop index. 


Get address of adapter type code. 
Push addr of end of ADAPTERS array. 
See if we went beyond array. 
unrecognized adapter, do not map. 
Adapter type match? 

If EQL yes, adapter type match. 
Increment loop index, 

Look at next adapter. 


Does PFN match boot adapter’s PFN? 
No; continue. , 

Store VA of boot adapter space. 

Store boot adapter nexus number. 

Get offset into UNIBUS/QBUS I/O page. 


Set VA of UNIBUS/QBUS registers. 


INTADP780 
V03-021 


OOE4‘CF44 52 
51 0000‘CF45 
6C 

51 O0000’CF45 
61 

04 

oO B141 


54 
FF51 
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19-OCT-1983 11:50:19 DISK$VMSMASTER: [SYSLOA.SRC]INIADP. (9) 


CONFIG _IOSPACE 


OOFS 
OOF9 
OOF9 
OOFS 
OOF9 
OOFY 
OOF9 
OOFF 
0105 
0107 
010D 
010F 
0111 
0115 
0115 
0117 
O11A 


806 
807 
808 
809 
810 
811 
816 
817 
818 
819 
820 
821 
822 
823 
824 
826 
830 


R5/ general 

For each ada 
Map th 
JSB to 


Se ei eines: Se 


AP_NEXUS: 
MOVL 
MOVZWL 
BSBB 
MOVAL 
TSTL 
BEQL 
JSB 
END_NEXUS: 
INCL 
BRW 


adapter type; index into 
pter - 


“general" adapter arrays. 


e # of pages specified in ADAPDESC macro 
initialization routine specified in ADAPDESC macro 


R2,WASBICONF[R4] 
WANUM_PAGES[R5],R1 
MAP_PAGES 
WAINIT_ROUTINES[R5],R1 
(R1) 

END_NEXUS 

@(R1)[R1]- 


R4 
NXT_NEXUS 


ee we we we we ee ve 


Save VA of adapter space in SBICONF. 
Get number of pages to map. 

Map the I/O pages. 

Get address of initialization routine. 
Initialization routine specified? 
Branch if none. 

Call initialization routine. 


Increment CONFREG and SBICONF index. 
Go do next nexus. 


INIADP780 ~ ADAPTER INITIALIZATION FOR VAX 11/780 3-JUN-1984 14:53:36 VAX-11 Macro V03-01 Page 19 


V03-021 CREATE_ARRAYS 19-OCT-1983 11:50:19 DISK$VMSMASTER: [SYSLOA.SRC]INIADP( 10) 
O11A 832 .-SBTTL CREATE_ARRAYS 
O11A 833 ; 
O11A 834 ; CREATE_ARRAYS 
O11A 835 ; 
O11A 836 ; Move the local CONFREG and SBICONF arrays into non-paged pool. 
O11A 837 ; 
011A 838 ; Inputs: 
011A 839 ; R4 - Number of nexuses on the system. 
O1V1A 840 ; CONFREG and SBICONF have been initialized. 
O11A 841 ; 
QO11A 842 ; Outputs: 
O11A 843 ; RO - R5 destroyed 
O11A 844 ; EXE$GL_CONFREG points to a copy of the CONFREG array in non-paged pool 
O11A 845 ; MMG$GL_SBICONF points to a copy of the SBICONF array in non-paged pool 
O11A 846 ; EXE$GL_NUMNEXUS contains the number of nexuses on the system 
O11A 847 ; 
O11A 848 ; 
O11A 849 CREATE_ARRAYS: 
54 DO O11A 850 MOVL R4,GAEXE$GL_NUMNEXUS ; Store number of nexuses on system. 
00000000 ‘GF Q11C 
51 OC A444 DE 0121 851 MOVAL 12(R4)[R4],R1 ; Allocate n bytes for CONFREG plus 
0126 852 ; 4n bytes for SBICONF + header 
;KPLO100 51 6144 DE 0126 od MOVAL (R1)[R4],R1 ; Another 4n bytes for CONFREGL. 
;KPLO100 O2A7 30 012A .2 BSBWw ALONPAGD ; Get pool for CONFREG and SBICONF. 
;KPLO100 B2 7C 012D Res CLRQ > (R2)+ ; Clear out unused 
;KPLO100 82 51 BO 0O12F 4 MOVW R1,(R2)+ ; Set in size 
;KPLO100 82 0763 8F BO 0132 5 MOVW #<DYN$C_CONF@8>!DYN$C_INIT,(R2)+ ; Set type and subtype 
;KPLO100 62 9E 0137 .6 ' MOVAB (R2),GAEXE$GL_CONFREG ; Store address of system CONFREG. 
00000000‘ GF 0139 
;KPLO100 51 6244 9E O13E 7 MOVAB (R2)[R4],R1 ; Two steps to CONFREGL, 1st, SBICONF, 
;KPLO100 51 DO 0142 8 MOVL R1,GAMMG$GL_SBICONF ; Store address of system SBICONF. 
00000000’ GF 0144 ; 
;KPLO100 6144 DE 0149 9 MOVAL (R1){R4],GAEXE$GL_CONFREGL ; And address of system CONFREGL. 
00000000’ GF 014C 
;KPLO100 14 BB 0151 .10 PUSHR #AMK<R2,R4> ; Save pool address and nexus count. 
;KPLO100 OOA4’CF 54 28 0153 14 MOVC3 R4,WACONFREG, (R2) ; Copy CONFREG to pool. 
62 0158 
;KPLO100 14 BA 0159 a12 POPR #AM<KR2,R4> ; Retrieve pool address and nexus count. 
;KPLO100 51 54 04 CS 0158 .13 MULL3 #4,R4,R1 ; Number of bytes in SBICONF. 
;KPLO100 7E 51 DO O15F .14 MOVL R1,-(CSP) ; Save, SBICONF size = CONFREGL size 
;KPLO100 OOE4’‘CF 51 28 0162 215 MOVC3 R1,WASBICONF,(R2)[R4] ; Copy SBICONF to poo}. 
6244 0167 
;KPLO100 51 BE DO 0169 .16 MOVL (SP)+,R1 ; Restore size of SBICONF and CONFREGL. 
;KPLO100 O1E4‘CF 51 28 O16C 17 MOVC3 R1,WACONFREGL, (R3) ; Copy CONFREGL to pool. R3 is output 
63 0171 
;KPLO100 0172 .18 ; from SBICONF MOVC3, so SBICONF and 
;KPLO100 0172 .19 ; CONFREGL must be adjacent. 
-11 0172 864 


05 0172 865 RSB 


INIADP780 
V03-021 


90000000 8F 
83 58 


58 
52 0200 C2 
00000000’ GF 
00000000’ GF 
00000000 ’ GF 


04 
DB 51 


51 O2E4’‘CF 


5B 
00000000’ GF 


15 
FS 
05 
9E 
D4 


00 


0173 
0173 
0173 
0173 
0173 
0173 


0173 


0173 
0173 
0173 
0173 
0173 
0173 
0173 
0173 
0173 
0179 
0178 
0178 
017D 
0182 
0188 
O18E 
0193 
0193 
0195 
0198 
0199 
0199 
0199 
O19E 
O19E 
01A0 
O1A6 
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867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 


883 
884 
885 
886 
887 


888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 


3-JUN-1984 


14:53:36 VAX-11 


Macro V03-01 Page 20- 


19-OCT-1983 11:50:19 DISK$VMSMASTER: [SYSLOA.SRC]INIADP(11) 
.SBTTL MAP_PAGES 
mide a 
; INPUTS: 
; Ri/ Number of pages to map. 
3 R2/ VA of page to map. 
3 R3/ VA of system page table entry to be used. 
; R8/ PFN of page(s) to map. 
; OUTPUTS: 
; R2,R3 updated; R1,R8 destroyed; all other registers preserved 
MAP_PAGES: 
BISL3 #<PTEGM _VALID!PTE$C_KW>,R8, (R3)+ 
; Map a page. 
INCL R8 ; Next PFN. 
MOVAB 512(R2),R2 ; Next VA. 
INCL GABOO$GL_SPTFREL ; Next free entry. 
CMPL GABOO$GL_SPTFREH, — ; Check for no more system page 
GABOO$GL_SPTFREL ; table entries. 
BLEQ ERROR_HALT ; Branch if out of SPTEs. 
SOBGTR R1,MAP_PAGES ; Map another page. 
RSB ; All done. 
ERROR_HALT: 
MOVAB WANOSPT,R1 ; Set error message. 
ERROR_HALT_1: 
CLRL R11 ; Indicate console terminal. 
JSB GAEXESOUTZSTRING ; Output error message. 
HALT 3 F**** FATAL ERROR ***#***% 
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V03-021 INI SUBSPACE 19-OCT-1983 11:50:19 DISK$SVMSMASTER: [SYSLOA.SRC]INIADP(13) 
O1A7 1016 -SBTTL INIGUBSPACE 
OVA7 1017 ;++ 
O1A7 1018 ; Map UNIBUS space; initialize UNIBUS ADP. 
O1A7 1019 ; 
O1A7 1020 ; INPUTS: 
O1A7 1021 ; R2 - VA of next free system page 
QO1A7 1022 ; R3 - VA of system page table entry to be used to map VA in R2 
O1A7 1023 ; R4 - nexus identification number of this adapter 
3;KPLO100 O1A7 1; -~8(R6) - PFN of this UNIBUS adapter’s register space 
~4 O1A7 1025 ; 
O1A7 1026 ; OUTPUTS: 
Q1A7 1027 ; UNIBUS space is mapped. 
01A7 1028 ; INI$UBADP is calted to build an ADP block and initialize UNIBUS 
O1A7 1029 ; adapter hardware. 
01A7 1030 ; 
O1A7 1031 ;-- 
QO1A7 1032 
O1A7 1033 INI$UBSPACE: 
O01A7 1034 
;RLRSCORPIO 58 01E4’CF44 DE O1A7 .3 MOVAL WACONFREGL[R4] ,R8 ; R8 => CONFREGL slot. 
;RLRSCORPIO 68 02 00 EF 0O1AD 4 EXTZV #0,42,(R8),R8 ; Get UBA number. 
58 01B1 : 
;RLRSCORPIO 58 58 09 78 0162 5 ASHL #9,R8,R8 ; Position UB number. 
;RLRSCORPIO 01B6 8 
-2 01B6 1037 
001009F0O 8F cO 0186 . 1039 ADDL #<IO780$AL_UBOSP+A0760000/AX200>,R8 
. 58 O1BC 
01BD 1040 ; Get PFN of Ub 1/0 page. 
01BD 1042 
O1BD 1047 
“ 01BD 1052 
01BD 1058 
01BD 1063 
51 10 DO O1BD 1064 MOVL #16,R1 ; Number of pages to map (UB/Qbus space). 
FFBO 30 01CO 1065 BSBW MAP_PAGES ; Map I/0 pages. 
01C3 1066 ; 
01C3 1067 ; Call adapter initialization routine. 
01C3 1068 ; 
01C3 1069 ; BSBw INI$SUBADP ; Init ADP block. 
01C3 1070 :; RSB 


INIADP780 
V03-021 


O1FF 8F 


- 61 0019’CF 
0205 
51 


01 


08 
OA 


A2 
A2 
OE 


A2 01 


62 O00E4’CF44 


OC A2 54 
A2 
50 


50 


50 14 
60 
04 AO 
50 30 
60 
AO 


A2 
50 
50 
04 A2 

FDFF 


04 


00000000 ’GF 
58 


53 O2EC’C2 
10 A2 53 
FFFE 8F 

60 A2 
FF6C’C3 

SF 


53 


s 


BB 


3C 
30 
BO 
90 
BO 
DO 


BO 


DO 


~ ADAPTER 
INI GUBADP 


01C3 
01C3 
01C3 
01C3 
01C3 
O13 
01C3 
01C3 
01C3 
01C3 
01C3 
01C3 
01C3 
01C3 
01C7 
01C7 
01C7 
01C7 
O1CC 
O1CF 
01D3 
01D7 
01D7 
01DB 
01DB 
O1E1 
O1E1 
O1E5 
O1E5 
O1E9 
O1EC 
O1FO 
01FO 
O1F4 
O1F7 
O1FB 
O1FE 
0201 
0201 
0201 
0201 
0207 
0208 
0208 
0208 
0208 
0208 
0208 
0208 
0208 
0208 
0208 
020D 
0211 
0215 
0217 
021C 
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1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 


we ee we we we we we we we 
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DISKSVMSMASTER: [SYSLOA.SRC]INIADP(14) 


3-JUN- 1984 
19-OCT-1983 


14:53:36 
11:50:19 


.SBTTL INISUBADP - BUILD ADP AND INITIALIZE UBA 
INIGUBADP ALLOCATES AND FILLS IN AN ADAPTER CONTROL BLOCK, INTERRUPT 
DISPATCHER AND CONNECTS THEM TO THE PROPER SCB VECTORS. A CALL IS 


THEN MADE TO UBASINITIAL TO INITIALIZE THE ADAPTER HARDWARE. 


INPUT: 


R4 - nexus 


identification number of this adapter 


R11- offset from beginning of SCB to correct SCB page for this adapter 


INI GUBADP: 


’ 
> 


> 


. 
’ 


’ 


PUSHR 
Allocate and 


MOVZWL 
BSBW 
MOVW 
MOVB 


MOVW 
MOVL 
MOVW 
MOVAL 
MOVL 
MOVL 
MOVAL 
MOVL 
MOVL 
CLRL 
BSBW 


Initialize 


MOVL 


Following ASSUME breaks 
causing the vectors to NOT. be 


ASSUME 


MOVAB 
.MOVL 
MOVW 


MOVAB 
PUSHR 


initialize Adapter Control 


adapter interrupt vectors in 


#AM<RO,R1,R2,R3,R4,R5,R6,R7,R8> ; SAVE RO-RB 
Block (ADP). 


WACPU_ADPSIZE,R1 PICK UP LENGTH OF ADP 


ALONPAGD ; ALLOCATE SPACE FOR ADP 
R1,ADP$wW_SIZE(R2) ; SET SIZE INTO ADP BLOCK 
#DYN$C_ADP, - ; AND SET TYPE OF BLOCK 
ADP$B_TYPE(R2) 

#AT$_UBA, - ; SET TYPE OF ADAPTER 


ADP$W_ADPTYPE(R2) 
WASBICONF[(R4], - ; 
ADP$L_CSR(R2) 
R4,ADP$W_TR(R2) ; 


SET VA OF CONFIGURATION REG 


SET TR NUMBER FOR ADAPTER 


ADP$L_DPQFL(R2),RO ; ADDRESS OF DATA PATH WAIT QUEUE 


RO, (RO) ; INIT QUEUE HEADER 
RO,4(RO) ; 

ADP$L_MRQFL(R2),RO ; ADDRESS OF MAP WAIT QUEUE 
RO, (RO) ; INIT QUEUE HEADER 
RO,4(RO) ; 

ADP$L_LINK(R2) ; ZAP ADAPTER CHAIN LINK 
ADPLINK ; LINK ADP TO END OF LIST 


System Control Block. 


GAEXE$GL_SCB,RB ; GET SCB ADDRESS 


if the ADP length is not a multiple of 4, 


long word aligned. 


thereby 


ADP$C_UBAADPLEN/4*4 EQ ADP$C_UBAADPLEN 
ADP$C_UBAADPLEN+UBINTSZ(R2),RB  ; LOCATE VECTORS 
R3,ADP$L_VECTOR(R2) ; AND RECORD IN ADP 
#AXFFFE,ADP$W_DPBITMAP(R2) ; MARK DATAPATHS 1-15 AVAILABLE 
-UBINTSZ(R3) ,R3 : 
#AM<RO,R1,R2,R3,R4,R5> 


BASE OF INTERRUPT CODE 
; SAVE MOVC REGISTERS 


INIADP780 
V03-021 


0094” BF 
63 0340’ CF 


54 04. 


50 0100 C844 
1C A2 50 
60 01°A3 
AO 21°A3 

41°A3 


40 


0080 CO. 


61'°A3 

ooco co 

50 62 
OA‘AS 50 
2A’A3 50 
4A’A3 50 
6A‘A3 50 
0089'C3 52 
0000’CF 
0090'C3 
01°A3 

44 A2 

21°A3 

48 A2 

41°A3 

4C A2 

61'A3 

50 A2 

54 52 

52 62 
7COO0000 BF 
O4 A2 
00000000’ GF 
54 A4 63 
58 A4 20 A3 


52 54 
00000000’ GF 
53 


54 0000'CF 


- ADAPTER 
INISUBADP 
28 O21E 
0222 

BA 0226 
EF 0228 
022C 

DE 022D 
DO 0233 
9E 0237 
9E 0238 
9E 0240 
0243 

9E 0246 
0249 

DO O24C 
CO O24F 
CO 0253 
CO 0257 
CO 0258 
DO O25F 
9E 0264 
0268 

9E O26B 
O26E 

9E 0270 
0273 

9E 0275 
0278 

9E O27A 
027D 

DO O27F 
DO 0282 
DO 0285 
028B 

16 O28D 
DO 0293 
DO 0297 
029C 

DO O2z9C 
DE O29F 
02A5 

DE O2A6 
O2AB 
O2AB 
O2AB 
O2AB 

DO O2AB 
DQ O2AF 
9A O02B2 
DO O2B6 
F5 O2B9 
O2BC 
O2BC 
O2BC 
O2BC 
O2BC 
O2BC 


O2BC 


INITIALIZATION FOR VAX 11/780 
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1134 


1135 


1136 


1137 
1138 
1139 
1140 
1141 


1142 


1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 


1162 
1163 
1164 
1165 
1166 
1167 


1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1180 
1240 
1241 
1269 
1270 
1291 


3-JUN-1984 
19-OCT-1983 11 


MOVC3 #UBINTSZ,WAUBAINTBASE, (R3) | ; 
POPR #AMKRO,R1,R2,R3,R4,R5> 
EXTZV #0,#4,R4,R4 : 
MOVAL AX100(R8)[R4],RO ; 
MOVL RO,ADP$L_AVECTOR(R2) : 
MOVAB BAUBAINT4+1(R3), (RO) ; 
MOVAB BAUBAINTS+1(R3),64(RO)~ ; 
MOVAB BAUBAINT6+1(R3),128(RO) ; 
MOVAB BAUBAINT7+1(R3),192(RO) ; 
MOVL ADP$L_CSR(R2),RO ; 
ADDL RO,BAUBAINT4REL(R3) ; 
ADDL RO, BAUBAINTS5REL(R3) ; 
ADDL RO, BAUBAINTG6REL (R3) ; 
ADDL RO, BAUBAINT7REL(R3) ; 
MOVL R2,UBAINTADP(R3) ; 
MOVAB WAEXE$UBAERR_INT,~— 
UBAERRADR(R3) ; 
MOVAB BAUBAINT4+1(R3),- 
ADP$L_UBASCB(R2) ; 
MOVAB BAUBAINT5+1(R3),- 
ADP$L_UBASCB+4(R2) : 
MOVAB BAUBAINT6+1(R3) ,- 
ADP$L_UBASCB+8(R2) ; 
MOVAB BAUBAINT7+1(R3),- 
ADP$L_UBASCB+12(R2) ; 
MOVL R2,R4 ; 
MOVL ADP$L_CSR(R2),R2 ; 
MOVL #4X7CO00000,UBA$L_CR(R2); 
JSB GAMMGS$SVAPTECHK 
MOVL~ (R3),ADP$L_UBASPTE(R4) 
MOVL <B*¥4>(R3), - 
ADP$L_UBASPTE+4(R4) 
MOVL R4,R2 ; 
MOVAL GAUBA$UNEXINT,R3 ; 
MOVAL WAUBAS$INTO,R4 : 


; INIT UB VECTORS TO UNEXPECTED INTERRUPT 


° 
’ 


MOVL ADP$L_VECTOR(R2),RO ; 
MOVL R4,(RO)+ : 
MOVZBL #<NUMUBAVEC-1>,R1 ; 
10$: MOVL R3,(RO)+ : 
SOBGTR R1,10$ : 


14:53:36 
:50: 
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COPY INTERRUPT CODE 


RESTORE MOVC REGISTERS 

Use low 4 bits of nexus number. 
COMPUTE 1ST VECTOR ADDRESS 

SAVE ADDR OF ADAPTER SCB VECTORS 
STORE VECTOR FOR BR4 

STORE VECTOR FOR BRS5 

STORE VECTOR FOR BR6 

STORE VECTOR FOR BR7 

GET UBACSR ADDRESS 

ADD CSR VA 

TO EACH OF THE 

BICL INSTRUCTIONS 

IN THE INTERRUPT DISPATCHERS 


;SET ADDRESS OF ADAPTOR CONTROL BLOCK 


SET ADDRESS OF ERROR HANDLER 
SAVE 4 SCB VECTOR CONTENTS 
DITTO 

DITTO - 


DITTO 

COPY ADP ADDRESS 

VIRTUAL ADDRESS OF ADAPTER 
DISABLE ALL UMR’S 


ADDRESS OF SPTE THAT MAPS ADAPTER 
SAVE CONTENTS OF SPTE MAPPING ADAPTER 
CONTENTS OF SPTE MAPPING I/0 SPACE 


COPY ADP ADDRESS BACK TO R2 
GET ADDR OF UNEXP INT SERVICE(IN EXEC) 


GET ADDR OF SPECIAL VECTOR O ROUTINE 


SERVICE 


GET ADDRESS OF VECTORS 
SPECIAL CASE FOR VECTOR O 
REST OF VECTORS 

FILL VECTOR WITH UNEXP INT 
FILL ALL VECTORS 


INIADP780 - ADAPTER 
V03-021 INI$UBADP 
;RLRSCORPIO 02BC 
; RLRSCORPIO O02BC 
;RLRSCORPIO O2BC 
02BC 

02BC 

O2BC 

O02BC 

O2BC 

02BC 

02BC, 

02BC 

02BC 

56 62 DO O2BC 

51 D4 O2BF 

00000200 BF C3 02C1 
57 O08 AE 02C7 
OC AE 04 C3 O2CA 
58 O2CE 

00000200 8F C3 O2CF 
54 20 AE 0205 
68 DD 02D8 

53 54 DO O2DA 

55 1F DO o2DD 

02E0 

90000000 8F C9 O2E3 
68 54 O2E9 

50 57 DO O2EB 

FDOF 30 O2EE 

0D 50 £9 O2F1 

54 53 Di O2F4 

04 13 O2F7 

51 DS O02F9 

3A 13 O2FB 

51 10 Al 9E O2FD 
54 10 AS 9E 0301 
08 55 F5 0305 

68 BEDO 0308 

030B 

0256 C2. 51  #4BO O30E 
0313 

0313 

0313 

0313 

0313 

0313 

0313 

0313 

0313 

5C A2 01 #DO 0313 
O1FO 8F 51  A3 0317 
64 A2 O31C 

O15E C2. 51  #4BO O31E 
62 A2 O01 AE 0323 
015C C2. 01 AE 0327 
032C 

032C 

032C 


INITIALIZATION FOR VAX 
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wee ee we we we we we we 


11/780 3-JUN-1984 


19-OCT-1983 


14:53:36 VAX-11 Macro V03-01 Page 24 
11:50:19 DISK$VMSMASTER: [SYSLOA. SRC] INIADP( 14) 


Now check for any UNIBUS memory that may be on the adapter. First we must 
disable all the UNIBUS Map Registers so that there is no conflict in 
which memory will respond. Then we check all 248Kb of potential memory 
8Kb chunks, since each disable bit on the 780 UBA represents 16 UMR’s or 
8Kb of memory. The number of registers is stored in the ADP and the 


in 


corresponding number withdrawn from the UMR map in the ADP. 

MOVL ADP$L_CSR(R2),R6 ; Pick up adapter pointer 
CLRL R1 ; Zero out number of UMR to disable 
SUBL3 #512,8(SP),R7 ; R7 = VA of last page of UNIBUS 
SUBL3 #4,12(SP),R8 ; R8 = VA of SPTE mapping (R7) 
SUBL3 #512,32(SP),R4 ; R4 = PFN of first page of UNIBUS 
PUSHL (R8) ; Save contents of SPTE 
MOVL R4,R3 ; Copy starting PFN 
MOVL #31,R5 ; 31 8Kb chunks to test 

50$: INVALID R7 ; Invalidate TB 
BISL3 #<PTE$M_VALID!PTE$C_KW>,- 

R4, (RB) ; Map each page of UNIBUS 

MOVL R7,RO ; Address to check 
BSBW EXE$TEST_CSR ; Validate it 
BLBC RO,70$ ; Not there 
CMPL R3,R4 ; First time in? 
BEQL 605 ; Yes, skip next test 
TSTL R1 ; Any registers already? 
BEQL 80$ ; No, memory not start at 0 

60$: MOVAB. 16(R1),R1 ; Yes, up the count 

70$: MOVAB 16(R4) ,R4. ; Map Next 8Kb (16*512) 
SOBGTR R5,50$ ; Loop until done 
POPL (R8) ; Restore old contents of SPTE 
INVALID R7 ; Invalidate TB 
MOVW R1,ADP$W_UMR_DIS(R2) ; Record number disabled 


’ 


we ee ee we we we we 


Initialize fields for new UBA map register allocation. Make it appear 
that we have one contiguous array of 496 available map registers. 
To do this we set ADP$L_MRACTMDRS to one (the number of active 
map register descriptors for distinct contiguous areas), 
ADP$W_MRNREGARY(0) to 496 (i.e the number of registers in this 
contiguous range) and ADP$FREGARY(0) to O (i.e. the first register 
in the range is register QO). 


MOVL #1,ADP$L_MRACTMDRS(R2) ; 1 active map descriptor 

SUBW3 R1,#496,ADP$W_MRNREGARY(R2); . for a range of 496 registers 
MOVW R1,ADP$W_MRFREGARY(R2) ; starting at register zero. 
MNEGW #1,ADP$W_MRNFENCE(R2) ; Also init "fences" which preceed 
MNEGW #1,ADP$W_MRFFENCE(R2) ; the two descriptor arrays. 


Initialize adapter hardware. 


INIADP780 
V03-021 


54 62 
FCCE’ 
O1FF 8F 


51  O30D‘CF 
FESF 


~ ADAPTER 
INISUBADP 
DO 032C 
30 032F 
BA 0332 
05 0336 
0337 
0337 
0337 
0337 
9E 0337 
31 O33C 


O033F 
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1405 MOVL ADP$L_CSR(R2),R4 ; Get CSR address to init 

1406 BSBW UBASINITIAL 3; And initialize adapter . 

1407 POPR #AM<RO,R1,R2,R3,R4,R5,R6,R7,R8> ; Restore registers 

1408 RSB ; Return 

1409 

1411 = ; 

1412 ; Error if UNIBUS memory not start at location O 

1413 ; ; 

1414 80$: MOVAB WABADUMR,R1 ; Set error message 

1415 BRW ERROR_HALT_1 ; Put it out 

1417 


INIADP780 ~ ADAPTER 
V03-021 INISUBADP 
033F 

O33F 

O033F 

033F 

O33F 

033F 

O33F 

O33F 

O033F 

;RLRSCORPIO 033F 
;RLRSCORPIO 033F 
;RLRSCORPIO O033F 
-2 O33F 
O33F 

O33F 

033F 

0340 

00000000 0340 

7E 54 7D 0340 

7FFFFEO3 8F CB 0343 

00000030 9F 0349 

54 O34E 

OCOOO000A 034F 

7E 52 7D O34F 

55 D4’‘AF44 9E 0352 

65 18 0357 

7E 50 7D 0359 

95 17. O835C 

O35E 

00000020 0360 

7E 54 7D 0360 

7FFFFEO3 8F CB 0363 

00000034 9F 0369 

54 O36E 

O0000002A O36F 

7E 52 7D O36F 

* 55 D4‘AF44 9E 0372 

45 18 0377 

7E 50 7D 0379 

95 17 O37C 

O37E 

00000040 0380 

7E 54 7D 0380 

7FFFFEO3 8F CB 0383 

00000038 9F 0389 

54 O38E 

OO00004A O38F 

7E 52 7D O38F 

55 D4‘AF44 9E 0392 

25 18 0397 

7E 50 7D 0399 

95 17 O39C 

O39E 

00000060 O03A0 

7E 54 7D O3A0 

7FFFFEO3 8F CB 03A3 

O0000003C OF 03A9 


INITIALIZATION FOR VAX 11/780 
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- BUILD ADP AND INITIALIZE UBA 19-OCT-1983 11:50:19 DISK$VMSMASTER: [SYSLOA.SRC]INIADP(14) 


1420: 


1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 

sed 

.2 

.3 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 


1439 
1440 
1441 
1442 
1443 
1444 


1445 . 


1446 
1447 
1448 


1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 


1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 


KEK NOTE *#*** 


VECTOR ENTRY, 


we we we we ee we we we we we ee we we 


-ENABL LSB 
-ALIGN QUAD 
UBAINTBASE: 
UBAINT4=.-UBAINTBASE 
MOVQ R4,-(SP) 
BICL3 


UBAINT4REL=.-UBAINTBASE-5 


MOVQ R2,-(SP) 

MOVAB BAVECTAB[R4] ,R5 

BGEQ 10$ 

MOVQ RO,-(SP) 

JMP @(R5)+ 

ALIGN QUAD 
UBAINT5=.-UBAINTBASE 

MOVQ R4,-(SP) 

BICL3 


UBAINTSREL=.-UBAINTBASE-5 


MOVQ R2,-(SP) 

MOVAB BAVECTAB[R4],R5 

BGEQ 10% 

MOVQ RO,-(SP) 

JMP @(R5)+ 

.ALIGN QUAD 
UBAINT6=.-UBAINTBASE 

MOVQ R4,-(SP) 

BICL3 


UBAINT6REL=. -UBAINTBASE-5 


MOVQ R2,-(SP) 

MOVAB BAVECTAB[R4] ,R5 

BGEQ 10$ 

MOVQ RO,-(SP) 

JMP @(R5)+ 

.ALIGN QUAD 
UBAINT7=.-UBAINTBASE 

MOVQ R4,~-(SP) 

BICL3 


UBA INTERRUPT SERVICE ROUTINES. 
MOVED INTO NONPAGED POOL AND RELOCATED FOR EACH UBA. 


REGISTER IS AT AN OFFSET OF 10. 


’ 
’ 


> 


#AX7FFFFEO3,@#UBA$L_BRRVR,R4 ; 


we we we we we we 


3 


#AXTFFFFEO3,@#UBA$L_BRRVR+8,R4 


we we we ee we we 


’ 


> 


ONE COPY OF THESE ROUTINES IS 


THE CODING SEQUENCE FOR DISPATCHING ON UBA INTTERUPTS 
IS ASSUMED IN THE MODULE MCHECK780.MAR. 
THE MACHINE CHECK HANDLER CAN IDENTIFY A CPU TIMEOUT WHEN THE 
BICL3 INSTRUCTION IS READING THE 
THE ASSUMPTIONS MADE ARE THAT THE VALUE OF THE VIRTUAL ADDRESS OF THE BRRVR 

BYTES PAST THE INTERRUPT VECTOR ENTRY POINT, 
THAT THE PC OF THE INSTRUCTION ACCESSING BRRVR IS 3 BYTES PAST THE INTERRUPT 
AND THAT R4 AND RS ARE SAVED ON THE STACK AT THAT POINT. 


THE ASSUMPTIONS ARE MADE SO 


UBA‘S BRRVR REGISTER. 


BASE OF UBA INTERRUPT DISPATCHERS 
UBA 0 INTERRUPT DISPATCH LEVEL 4 
SAVE REGISTERS 


READ VECTOR REGISTER AND CLEAR BITS 


OFFSET TO ADD UBACSR VALUE 

SAVE REGISTERS 

GET ADDRESS OF INTERRUPT VECTOR 
IF GEQ UBA INTERRUPTS 

SAVE REGISTERS 

DISPATCH INTERRUPT 


UBA O INTERRUPT DISPATCH LEVEL 5 
SAVE REGISTERS 


#AX7FFFFEQ3,@#UBA$L_BRRVR+4,R4 ; READ VECTOR REGISTER AND CLEAR BITS 


OFFSET TO ADD UBACSR VALUE 

SAVE REGISTERS 

GET ADDRESS OF INTERRUPT VECTOR 
IF GEQ UBA INTERRUPTS 

SAVE REGISTERS 

DISPATCH INTERRUPT 


UBA O INTERRUPT DISPATCH LEVEL 6 
SAVE REGISTERS 
; READ VECTOR REGISTER AND CLEAR BITS 


OFFSET TO ADD UBACSR VALUE 

SAVE REGISTERS 

GET ADDRESS OF INTERRUPT VECTOR 
IF GEQ UBA INTERRUPTS 

SAVE REGISTERS 

DISPATCH INTERRUPT 


UBA 0. INTERRUPT DISPATCH LEVEL 7 
SAVE REGISTERS 


#AX7FFFFEO3,@#UBA$L_ BRRVR+12,R4 ; READ VECTOR AND CLEAR BITS 


INIADP780 - ADAPTER 


VO03-021 INI $UBADP 
54 O3AE 

OOCOO06A O3AF 

7E 52 7D OS3AF 

55 D4’°AF44 9E O3B2 
05 18 0387 

7E 50 70 O3B9 

95 17 O3BC 

00 54 1F E5 O3BE 
55 D4‘°AF44 9E O03C2 
00000000’ 8F DO 0O3C7 
54 O3CD 

00000089 O3CE 

00000000 9F 17 O3CE 
00000090 03D4 

03D4 

03D4 

03D4 

03D4 

00000094 03D4 

03D4 


INITIALIZATION FOR VAX 11/780. 
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1469 
1470 
147) 
1472 
1473 
1474 
1475 
1476 
1477 


1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 


UBAINT7REL=.-UBAINTBASE-5 


MOVQ R2,-(SP) 
MOVAB BAVECTAB[R4],R5 
BGEQ 10$ 
MOVQ RO,-(SP) 
JMP @(R5)+ 
10$: BBCC #31,R4,20$ 
20$: MOVAB BAVECTAB[R4],R5 
MOVL TA#0,R4 
UBAINTADP=.-UBAINTBASE-5 
JMP @#0 
UBAERRADR=.-UBAINTBASE-4 
.DSABL LSB 
-ALIGN LONG 
VECTAB: 
UBINTSZ=.-UBAINTBASE 


3-JUN-1984 
19-OCT-1983 


14; 


11 
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OFFSET TO ADD UBACSR VALUE 

SAVE REGISTERS 

GET ADDRESS OF INTERRUPT VECTOR 

IF GEQ UBA INTERRUPTS 

SAVE REGISTERS 

DISPATCH INTERRUPT 

;CLEAR ADAPTER ERROR INTERRUPT FLAG (MSB) 
;GET ADDRESS OF INTERRUPT VECTOR 

;GET ADDRESS OF ADAPTOR CONTROL BLOCK 


we we we we we we 


;OFFSET TO START OF LOADED CODE 
;ERROR ROUTINE IN ADPERR780 


; LONGWORD ALIGN VECTORS 
; END OF INTERRUPT CODE, START OF VECTORS 
; SIZE OF UBA INTERRUPT CODE 


INIADP780 
VQ3-021 


00000000 ‘GF 


58 


5A 


58 
59 
5A 


58 
59 
5A 


51 


O7FF 8F 
0011’CF 
0000'CF 
0000'CF 

28 


O7FF 8F 
00:15” CF 
0000‘CF 
O0000’CF 

13 


O7FF 8F 
000D’CF 
0000'CF 
0000’CF 


0048 BF 
B6 


~ ADAPTER INITIALIZATION FOR VAX 11/780 
INI$MBADP - BUILD ADP AND INITIALIZE MBA 19-OCT-1983 11:50: 


3C 
10 


03D4 
03D4 
03D4 
03D4 
03D4 
03D4 
03D4 
03D4 
03D4 
03D4 
03D4 
03D4 
03D4 
03D4 
03D4 
03D4 
03D4 
03D4 
03D4 
03D4 
03D4 
03D4 
0304 
03D4 
03D4 
0304 
O3DA 
O3DA 
O3DA 
O3DA 
O3DA 
O3DA 
O3DE 
O3E3 
O3E8 
O3ED 
OSEF 
OSEF 
O3EF 
O3EF 
O3F3 
O3F8 
O3FD 
0402 
0404 
0404 
0404 
0404 


- 0408 
040D 


0412 
0417 
0417 
0417 
0417 
0417 
O41C 


1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 


3-JUN-1984 14:53 


.SBTTL INISMBADP - BUILD ADP AND 
.SBTTL INISDRADP - BUILD ADP AND 
.SBTTL INISCIADP - BUILD ADP AND 


+ 
INI$MBADP IS CALLED AFTER MAPPING THE RE 
AN ADAPTER CONTROL BLOCK IS ALLOCATED AN 
ALSO ALLOCATED AND INITIALIZED. THE ADAP 
BY CALLING MBASINITIAL. 


INI$DRADP IS CALLED AFTER MAPPING THE RE 
ADAPTER. THE ADAPTER CONTROL BLOCK, CRB 
AND INITIALIZED. THE ADAPTER HARDWARE I 
CALLING DRGINITIAL. 


INI$MBADP AND INI$DRADP SHARE COMMON COD 
SPECIFIC CONSTANTS IS SELECTED AND STORE 


INPUT: 
R4 - nexus identification number o 
R11- offset from beginning of SCB 


OUTPUTS: 
ALL REGISTERS PRESERVED 


’ 
’ 
’ 
+ 
. 
? 
° 
’ 
’ 
. 
’ 
. 
’ 
. 
, 
. 
’ 
’ 
’ 
’ 
i 
, 
. 
’ 
. 
’ 
’ 
’ 
’ 


ALONPAGD: JMP GAINI$ALONONPAGED 


.ENABL LSB 


INIGDRADP: 3 
PUSHR #AM<RO,R1,R2,R3,R4,R5,RE6,R 
MOVAL WADRTAB,R8 3 
MOVAB WADRSINT,RO ; 
MOVAB WADRS$INITIAL,R10 ; 
BRB 10$ ; 

INISCIADP: 4 
PUSHR #AMKRO,R1,R2,R3,R4,R5,R6,R 
MOVAL WACITAB,R8 ; 
MOVAB WACIS$INT,RO ; 
MOVAB  WACI$INITIAL,R10 ; 
BRB 10$ 3 

INI$MBADP: ; 
PUSHR #AM<RO,R1,R2,R3,R4,R5,R6,R 
MOVAL WAMBATAB,RB ; 
MOVAB WAMBASINT,R9 7 
MOVAB WAMBAGINITIAL,R10 ; 

10$: ; ; 

; Allocate and initialize Channel Request 


MOVZWL 
BSBB 


#CRB$C_LENGTH,R1 ; 
ALONPAGD A 
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INITIALIZE MBA 
INITIALIZE DR32 
INITIALIZE CI 


GISTERS FOR A MASSBUS ADAPTER. 
D FILLED. A CRB AND IDB ARE 
TER HARDWARE IS THEN INITIALIZED 


GISTERS FOR THE DR32 
» AND IDB ARE ALLOCATED 
S THEN INITIALIZED BY 


E AFTER THE TABLE OF ADAPTER 
D IN R8. 


f this adapter 
to correct SCB page for this adapter 


INITIALIZE DR32 DATA STRUCTURES 


7,R8,R9,RIO> ; SAVE REGISTERS 

GET DR32 TABLE OF CONSTANTS 

ADDRESS OF INITERRUPT SERVICE ROUTINE - 
ADDRESS OF DEVICE INITIALIZATION 

JOIN COMMON CODE 


INITIALIZE CI DATA STRUCTURES 


7,R8,R9O,R10> ; SAVE REGISTERS 

GET CI TABLE OF CONSTANTS 

ADDRESS OF INITERRUPT SERVICE ROUTINE 
ADDRESS OF DEVICE INITIALIZATION 

JOIN COMMON CODE 


INIT MBA DATA STRUCTURES 

7,R8,R9,R10> ; 

GET MBA TABLE OF CONSTANTS 

ADDRESS OF INITERRUPT SERVICE ROUTINE 
ADDRESS OF DEVICE INITIALIZATION 
Block. 


SET SIZE OF CRB 
ALLOCATE SPACE FOR CRB 


INIADP780 
V03-021 

08 A2 51 
OA A2 05 
62. 62 
04 A2 62 
50 24 A2 
9F163CBB 8F 
80 
80 59 
80 
60 5A 
5A 52 
51 68 
00000038 9F41 
51 
84 
08 A2 51 
OA A2 09 
68 
OC A2 
62 O0E4’CF44 
2C AA 52 
59 52 
51 01 A8 
FF64 
08 A2 51 
OA A2 01 
62 69 
OC A2 54 
03 A8 
OE A2 
10 A2 5A 
00000000’ GF 
, 50 
55 9B 09 
50 55 
54 04 00 
54 
50 0100 C044 
1C A2 50 
60 25 AA 
40 AO 25 AA 
25 AA 
0080 CO 


~ ADAPTER 
INI $SCIADP 
BO O41E 
90 0422 
DE 0426 
DE 0429 
9E 042D 
DO 0431 
0437 

DO 0438 
D4 0438 
DO 043D 
DO 0440 
0443 
0443 
0443 

9A 0443 
DE 0446 
044D 

10 O44E 
BO 0450 
90 0454 
0458 

9B 0458 
O45A 

DO O45C 
0462 

DO 0462 
0466 

DO 0466 
0469 
0469 
0469 

3C 0469 
30 O046D 
BO 0470 
90 0474 
DO 0478 
BO 0O47B 
9B O47F 
0482 

DO 0484 
0488 
0488 
0488 
0488 
0488 

DO 0488 
O48E 

78 O48F 
CO 0493 
EF 0496 
049A 

DE 0498 
DO O4A1 
DE O4A5 
DE O4A9 
DE O4AE 
04B1 


INITIALIZATION FOR VAX 
- BUILD ADP AND INITIALIZE CI 


1570 
1571 
1872 
1573 
1574 
1575 


1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 


1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 


1614 
1615 
1616 


1617 
1618 
1619 
1620 
1621 


. 
’ 
° 
’ 


° 
+ 
. 
bd 


ee we we we we 


MOVW 
MOVB 
MOVAL 
MOVAL 
MOVAB 
MOVL 


MOVL 
CLRL 
MOVL 
MOVL 


Allocate and 


MOVZBL 
MOVAL 


BSBB 
MOVW 
MOVB 


MOVZBW 
MOVL 
MOVL 
MOVL 
Allocate and 


MOVZWL 
BSBW 
MOVW 
MOVB 
MOVL 
MOVW 
MOVZBW 


MOVL 
CMPW 
BEQL 


Initialize 
MOVL 


ASHL 
ADDL 
EXTZV 


MOVAL 
MOVL 

MOVAL 
MOVAL 
MOVAL 


adapter 


11/780 3-JUN~ 1984 


19-OCT-1983 11 


1,CRBSW_SIZE(R2) ; 
#DYN$C_CRB,CRB$B_TYPE(R2) 


CRB$L_WQFL(R2) ,CRB$L_WQFL(R2) ; 
CRB$L_WQFL(R2),CRB$L_WQBL(R2) ; 


CRB$L_INTD(R2),RO ; 
#AX9F163CBB, (RO)+ ; 


RQ, (RO)+ 
(RO)+ 
R10, (RO) 
R2,R10 


ee we we ee 


ADPTAB_IDBUNITS(R8),R1 
@#IDB$C_LENGTH[R1],R1 ; 


ALONPAGD ; 
R1,IDB$W_SIZE(R2) ; 
#DYN$C_IDB, - ; 
IDB$B_TYPE(R2) 
ADPTAB_IDBUNITS(R8),-  ; 
IDB$W_UNITS(R2) 
WASBICONF[R4], - 
IDB$L_CSR(R2) ; 
R2, - : 
CRB$L_INTD+VEC$L_IDB(R10) 
R2,R9_ ; 


initialize Adapter Control 


ADPTAB_ADPLEN(R8),R1 3 
ALONPAGD ; 
R1,ADP$W_SIZE(R2) 

#DYNSC ADP, ADP$B “TYPE(R2); 


IDB$L_CSR(RQ), ADP$L_CSR(R2); 


R4,ADP$W_TR(R2) ; 
ADPTAB_ATYPE(RB) ,- ; 
ADP$W_ADPTYPE(R2) 
R10,ADP$L _CRB(R2) 
ADPSW_ ADPTYPE(R2), #ATS _ cI 
20$ ; 


interrupt vectors in 


GAEXE$GL_SCB,RO ; 


#9,R11,R5 : 
R5,RO 3 
#0,#4,R4,R4 ; 


AX100(RO)[R4],RO : 
RO,ADP$L_AVECTOR(R2) ; 
CRB$L_INTD+1(R10),(RO)~ ; 
CRB$L_INTD+1(R10) ,64(RO); 
CRB$L_INTD+1(R10), 128(RO); 


14:53:36 
:50: 
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SET CORRECT SIZE 

; SET CORRECT TYPE 

INITIALIZE WAIT QUEUE HEADER 
FLINK AND BLINK 

SET ADDRESS OF INTD AREAD 

"PUSHR AM<R2,R3,R4;R5>,JSB @#" 


ADDR OF XXX$INT ROUTINE 
CLEAR OUT UNNEEDED AREA 
ADDR OF XXX$INITIAL ROUTINE 
SAVE CRB ADDRESS 


initialize Interrupt Dispatch Block. 


GET #¥ OF IDB UNITS 
GET TOTAL SIZE OF IDB 


ALLOCATE SPACE FOR CRB 
SET STRUCTURE SIZE 
AND TYPE CODE 


SET COUNT OF UNITS 


SET CSR ADDRESS TO 
START OF ADAPTER REG SPACE 
SET ADDRESS OF IDB INTO CRB 


SAVE ADDRESS OF IDB 
Block (ADP). 


GET SIZE OF ADAPTER 
ALLOCATE SPACE FOR CRB 
SET SIZE OF STRUCTURE 
AND TYPE CODE 
SET ADDRESS OF CONFIGURATION REGISTER 
SET TR/SLOT-16 NUMBER OF ADAPTER 
SET THE ADAPTER TYPE 


POINT ADP TO CRB 
; CI? 
YES, DO NOT CONNECT UP VECTORS 


System Control Block. 


GET ADDRESS OF SCB 


Turn SCB page offset into byte offset. 
set to beginning of correct SCB page. 
Use low 4 bits of nexus number. 


COMPUTE ADDR OF 1ST VECTOR 

SAVE ADDR OF ADAPTER‘’S SCB VECTORS 
CONNECT VECTOR TO CRB CODE 

SAME FOR 

ALL FOUR 


INIADP780 
V03-021 


25 AA 
ooco cd 


14 A2 25 AA 


oc 

55 52 

52 62 
00000000’ GF 
18 AS 63 
Oc 

38 AA 52 
14 AQ 52 
FB22’ 

55 59 

54 65 

30 BA 

O7FF 8F 


- ADAPTER 
INISCIADP 
DE 0484 
04B7 
O4BA 
O4BA 
O4BA 

DE O4BA 
O4BF 

BB O48F 
DO 04C1 
DO 04C4 
16 04C7 
DO O4CD 
BA 0401 
DO 04D3 
DO 04D7 
30 O4DB 
O4DE 
O4DE 
O4DE 

DO OQ4DE 
DO O4E1 
16 O4E4 
BA O4E7 
05 O4EB 
O4EC 
O4EC 
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CRB$L_INTD+1(R10),192(RO); VECTORS 


Continue with ADP initialization. 


CRB$L_INTD+1(R10), - ; SAVE SCB VECTOR CONTENTS IN ADP 
ADP$L_MBASCB(R2) ‘ 

#AM<K<R2,R3> ; SAVE SOME REGISTERS 

R2,R5 ; COPY ADP ADDRESS 
ADP$L_CSR(R2),R2 ; VIRTUAL ADDRESS OF ADAPTER 


GAMMGS$SVAPTECHK ADDRESS OF SPTE THAT MAPS ADAPTER 
(R3) ,ADP$L_MBASPTE(RS) SAVE CONTENTS OF SPTE 

#AMKR2 ,R3> ; RESTORE REGISTERS 
R2,CRB$L_INTD+VEC$L_ADP(R10) ; SET CRB POINTER TO ADP 
R2,IDB$L_ADP(RQ) ; AND INTO IDB 

ADPLINK ; LINK ADP TO END OF CHAIN 


Initialize adapter hardware. 


1622 MOVAL 
1623 ; 

1624 ; 

1625 ; 

1626 20$: MOVAL 
1627 

1628 PUSHR 
1629 MOVL. 
1630 MOVL 
1631 JSB 
1632 MOVL 
1633 POPR 
1634 MOVL 
1635 MOVL 
1636 BSBW 
1637 ; 

1638 ; 

1639 ; 

1640 MOVL 
1641 MOVL 
1642 JSB 
1643 POPR 
1644 RSB 
1645 

1646 . DSABL 


RQ9,RS ; ADDRESS OF IDB 

IDB$L_CSR(R5) ,R4 ; ADDRESS OF CONFIGURATION REGISTER O 

@CRB$L_INTD+VEC$L_INITIAL(R10) ; INIT ADAPTER 

#AM<RO,R1,R2,R3,R4,R5,RE6,R7,R8,R9,R10>; RESTORE ALL REGISTERS 
; RETURN 


LSB 


INIADP780 
V03-021 


;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
3RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
;RLRSCORPIO 
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INI$KDZ11 19-OCT-1983 11:50:19 DISK$VMSMASTER: [SYSLOA.SRC]INIADP(14) 
O4EC .36 .SBTTL INI$KDZ211 
O4EC -37 3++ 
O4EC .38 ; 
O4EC .39 ; INPUTS: 
O4EC .40 ; R2 - VA of next free system page 
O4EC -41 =; R3 - VA of system page table entry to be used to map VA in R2 
O4EC -42 ; R4 - nexus identification number of this adapter 
O4EC -43 ; 
O4EC -44 ; OUTPUTS: 
O4EC .45 ; 
O4EC 46 ;-- 
O4EC .47 
O4EC .48 INI$KDZ11: 
O4EC .49 
OS OQ4EC .68 RSB ; Return to caller. 


INIADP780 
V03-021 


66 
40 8F 


41534303 8F 
14 A3 
; RLRSCORPIO 00000000’9F 
58 
; RLRSCORPIO 0068 
: RLRSCORPIO 
~12 


58. 10 A7 
OE A7 01 
03 

0058 


00000000’ 9F 
9F163FBB 8F 
24 A2 


38 A2 57 
58 52 
51 0058 8F 
00000000‘ 9F 
08 A2 51 
OA A2 09 
2C AB 52 
; TCMOO009 


- ADAPTER INITIALIZATION FOR VAX 11/780 


INI$CONSOLE, init data structures for co 


91 
12 
BO 
DE 


31 


DO 
3C 
16 
BO 


DO 


O4ED 
O4ED 
O4ED 
O4ED 
O4ED 
O4ED 
O4ED 


-O4ED 


O4ED 
04ED 
O4ED 
O4ED 
O4ED 
O4ED 
O4ED 
O4ED 
O4ED 
O4ED 
O4ED 
O4ED 
O4ED 
O4ED 
O4ED 
O4ED 
O4ED 
O4FO 
O4F2 


1650 
1651 


1652. 


1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 


° 1672 


1673 
1675 
1676 
1677 
1678 
1679 
1681 

2 


3 
5 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 


1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 

.1 


.SBTTL 


++ 


INPUTS: 


--> 


ee we te we Oe we we we we ee we we we we we ee ee we 


INIGCONSOLE: : 
-ENABL 


CMPB 


BNEQ 
MOVL 


MOVAL 


BRW 


; NOW BUILD THE 


BLD_CRB: 
MOVL 
CMPW 
BEQL 
BRW 


FILL_CRB: 
JSB 
MOVL 


MOVL 
MOVL 
MOVZWL 
JSB 
MOVW 
MOVB 
MOVL 


This routine 
It initializes the CRB and IDB for boot/console device. 


This routine 


3-JUN-1984 14:53:36 
19-OCT-1983 11:50:19 
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DISKSVMSMASTER: [SYSLOA. SRC] INIADP( 14) 


INIGCONSOLE, init data structures for console 


FUNCTIONAL DESCRIPTION: 


is executed only once, during system initialization. 


is called from INIT. 


DDB 
DPT 
UCB 


DISK 
DISK 
DISK 
RPB 
ADP FOR EITHER A REAL DISK OR A PORT 
PORT DRIVER DPT (IF PRESENT) 

PORT DIRVER UCB (IF PRESENT) 


[CLASS] DRIVER 
[CLASS] DRIVER 
[CLASS] DRIVER 


LSB 


RPB$B_DEVTYP(R6) ,- 
#BTD$K_CONSOLE 
BLD_CRB 
#AA7CSA/@B4+3, - 
DDB$T_NAME(R3) 


BOOTING FROM CONSOLE BLOCK 
STORAGE DEVICE? 

NO 

YES, SET DEVICE NAME 
COUNTED STRING 


we we ee we we 


@#OPAS$CRB,R8 ; SET ADDRESS OF CRB 


100$ 


AUXILIARY DATA BLOCKS (CRB,IDB) 


ADP$L_CRB(R7),R8 ; GET ADDRESS OF CRB IF IT EXISTS 
#AT$_UBA,ADP$W_ADPTYPE(R7); IS THIS A UNIBUS ADAPTER? 
FILL _CRB ; YES, ALLOCATE CRB 

100$ ; NO, CRB/IDB ALREADY ALLOCATED 


@#INI$ALLOC CRB ; GO ALLOCATE AND SETUP CRB 
#AX9F163FBB,CRB$L_INTD(R2) ; SET PUSHR #AMKRO,...R5> 


; JSB @#0 INTO INTERRUPT DISPATCH 
R7,CRB$L_INTD+VEC$L_ADP(R2) ' 3; SET POINTER TO ADP 


R2,R8 ; SAVE CRB POINTER 
#<IDB$C_LENGTH+<8*4>>,R1; SIZE TO ALLOCATE-FOR IDB 
@#INI$ALONONPAGED ; ALLOCATE IDB 


R1,IDB$W_SIZE(R2) ; SET SIZE OF IDB 
#DYN$C_IDB,IDB$B_ TYPE(R2); AND STRUCTURE TYPE CODE 
R2,CRB$L_INTD+VEC$L_IDB(R8) ; SET IDB INTO CRB 


-INIADP780 
v03-021 


-1 
62 58 A6 
11 
66 A6 
08 


58 A6 
00000000’ 9F 


14 A2 57 

50 1E AG 

OA 

50 66 A6 

50 FFFE‘’CF40 
50 10 B740 
60 26 A8 


- ADAPTER INITIALIZATION FOR VAX 11/780 
init data structures for co 


INISCONSOLE, 
O53F 
DO O53F 
0543 
91 0543 
0545 
12. 0547 
~ 0549 
DO 0549 
054C 
0551 
0551 
DO 0551 
3C 0555 
12 0559 
9A 0558 
3C O55F 
9E O565 
9E O56A 
OS6E 
OS6E 
O56E 
O05 O5S6E 
OS6F 


1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 


1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1757 
1758 
1759 
1760 


10$: 


20$; 


3O$: 


100$: 


3-JUN-1984 
19-OCT-1983 


MOVL RPB$L_CSRVIR(R6), 
IDB$L_CSR(R2) 

CMPB #BTD$K_UDA,- 
RPB$B_DEVTYP(R6) 

BNEQ 20$ 

MOVL RPB$L_CSRVIR(R6), - 
@#BOO$GB_SYSTEMID. 

MOVL R7,IDB$L_ADP(R2) 

MOVZWL RPB$W_ROUBVEC(R6) ,RO 

BNEQ 30$ 

MOVZBL RPBS$B_DEVTYP(R6),RO 

MOVZWL WABOOTVECTOR-2[RO] ,RO 

MOVAB @ADP$L_VECTOR(R7)[RO],RO 

MOVAB  CRBS$L_INTD+2(R8), (RO) 

RSB 


-DISABLE LSB 


14: 
11: 


53:36 
50:19 


wee we we we ee we we 


. 
, 


, 
> 
> 
> 
> 
. 
> 
’ 
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SAVE BOOT DEVICE CSR ADDRESS 

IN INTERRUPT DISPATCH BLOCK 

LOW ORDER BYTE OF ORIGINAL RO TELLS 
BOOT DEVICE TYPE. 

IF NOT BOOTING FROM A UDA BRANCH 
AROUND. 

COPY VIRTUAL ADDRESS OF UDA PORT CSR 


TO LOW ORDER LONGWORD OF SYSTEMID 


POINT IDB TO ADP 

GET USER SPECIFIED VECTOR 
BRANCH IF VECTOR SPECIFIED 
ELSE GET DEVICE TYPE CODE 
GET DEFAULT INTERRUPT VECTOR 
COMPUTE ADDRESS OF VECTOR 
SET ADDR OF INTERRUPT VECTOR 


RETURN 


INIADP780 
V03-021 


19 


OOOO04E 


18 


00 


20 8F 
7E 
11 


FD 6E 


~ ADAPTER INITIALIZATION FOR VAX 11/780 3-JUN-1984 14:53:36 VAX-11 Macro VQ3-01 Page 


EXE$INI_TIMWAIT - COMPUTE CORRECT TIMEWA 19-OCT-1983 11:50:19 


DA 


DO 


DA 


FS 


OS6F 1762 
O56F 1763 
O56F 1764 
OS6F 1765 
OS6F 1766 
O56F 1767 
OS6F 1768 
OS6F 1769 
OS6F 1770 
O56F 1771 
OS6F 1772 
O56F 1773 
OS6F 1774 
O56F 1775 
OS6F 1776 
OS6F 1777 
OS6F 1778 
O5S6F 1779 
OS6F 1780 
O56F 1781 
OS6F 1782 
O56F 1783 
OS6F 1784 
OS6F 1785 
OS6F 1786 
O56F 1787 
OS6F 1788 
O56F 1789 
O56F 1790 
OS6F 1791 
O56F 1792 
O56F 1793 
OS6F 1794 
O5S6F 1795 
OS6F 1796 
OS6F 1797 
OS6F 1798 
O5S6F 1799 
OS6F 1800 . 
O56F 1801 
O56F 1802 
OS6F 1803 
OS6F 1805 
OS6F 1806 
O56F 1808 
0572 1810 
0572 1814 
0572 1818 
0572 1822 
0572 1823 
0578 

0579 1824 
O57C 1825 
O057C 1826 
O57C 1827 
OS7F 1828 
O57F 1829 


..SBTTL EXESINI_TIMWAIT - COMPUTE CORRECT TIMEWAIT LOOP VALUES © 


st+ 


’ 
’ 
’ 
’ 
’ 
> 
? 
’ 
. 
> 
: 
’ 
. 
’ 
> 
bf 
> 
> 
’ 
. 
’ 
’ 
. 
9 
. 
’ 
. 
, 
. 
2 
? 
? 
. 
9 
’ 
. 
> 
’ 
. 
> 
. 
> 
. 
’ 
% 
> 
’ 
’ 
. 
9 
’ 
° 
> 
% 


FUNCTIONAL DESCRIPTION: 
EXE$INI_TIMWAIT initializes EXE$GL_TENUSEC and EXE$GL_UBDELAY, cells used 
in the time-wait macros. The first data cell, EXE$GL_TENUSEC, is the number 
of times the following loop will be executed in ten u-seconds.: This is 
done once here to calibrate the loop instead of reading the processor clock. 
The resulting number is used in the system macros TIMEWAIT and TIMEDWAIT. 
The first step is to initialize EXE$GL_UBDELAY. If the bit test instruction 
in the TIMEWAIT macro is executed too rapidly in a loop, it can saturate the 
Unibus. EXE$GL_UBDELAY is used to introduce a 3 microsecond delay loop into 
the TIMEWAIT bit test loop. 
This routine is called only once, from INIT. 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 


Time-of-day processor clock. 
Interval timers. 


OUTPUT PARAMETERS: 
RO - Destroyed. 


IMPLICIT OUTPUTS: 


EXE$GL_TENUSEC - set to appropriate value to make TIMEWAIT and TIMEDWAIT. 


macros loop for 10 micro-seconds. 


EXE$GL UBDELAY - set to appropriate value to make TIMEWAIT and TIMEDWAIT 


macros loop for 3 micro-seconds in the unibus delay 
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loop. 
EXESINI_TIMWAIT:: ; Initialize time-wait data cells 
- ENABLE LSB ; 
MTPR #0,#PR780$ NICR ; Initialize next interval count register. 
MOVL #20000,-(SP) ; # of times to execute timed loop. 
MTPR #\X11,#PRG_ICCS ; Start clock, no interrupts. 


> 


* * * start of loop to time * * * 


10$: SOBGTR (SP),10$ ; Delay loop. 


’ 


* * * end of loop to time * * * 


INTADP780 
V03-021 
50 1A 
18 00 
50 


OOOOEAGO 8F 
00000000’GF 
00000000’ GF 


19 00 


OOO04E20 8F 


50 
00000000’ GF 
6E 

18 11 
8000 8F 
OOOO005B9'EF 
03 

FD 6E 

EF 50 

50 1A 

18 00 

BE 

50 


00030040 8F 
00000000 ‘GF 
00000000’ GF 


- ADAPTER INITIALIZATION FOR VAX 
EXESINI_TIMWAIT ~- COMPUTE CORRECT TIMEWA 


DB 


DA 


C7 


D6 


DA 


DO 


DO 


DA 


B3 


12 


FS 
FS 


DB 


DA 


C7 


D6 


OS7F 
0582 
0582 
0582 
0582 
0582 
0585 
0587 
O58C 
0591 
0597 
0597 
O59A 
OS9A 
O59A 
OS5S9A 
OS9A 
O5A0 
O5A1 
OSA7 
O5A8 
05AB 
O5AB 
O5SAB 
OSAF 
O5B4 
OS5B6 
O5B9 
O5SBC 
O5BC 
OSBC 
OSBF 
OSBF 
OSBF 
OSBF 
05C2 
05C4 
O5C6 
O5CB 
O05D0 
05D6 
0507 


1831 
1833 
1837 
1841 
1845 
1846 
1847 


1848 
1849 
1851 
1853 
1857 
1861 
1865 
1866 


1867 


1868 
1869 
1870 
1871 


1872 
1873 
1874 
1875 
1876 
1878 
1880 
1884 
1888 
1892 
1893 
1894 


1895 
1896 
1897 


MFPR 


MTPR 


DIVL3 


INCL 


MTPR 


MOVL 


MOVL 


MTPR 


3; **** Start of 


20$: BITW 
BNEQ 
30$: SOBGTR 
40$: SOBGTR 
***e End of 


MFPR 


MTPR 
TSTL 
DIVL3 


INCL 
RSB 
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#PR780$_ICR,RO ; Read total time to execute loop. 


#0,#PR$_ICCS ; Shut off clock. 
RO,#60000,GAEXE$GL_UBDELAY; Calculate number of times through 


GAEXE$GL_UBDELAY ; loop to delay 3 microseconds. 


#0,#PR780$ NICR ; Initialize next interval count register. 


#20000,RO ; Number of times to execute test loop 


GAEXE$GL_UBDELAY, (SP) ; Get delay loop iteration count. 


#AX11,#PRG ICCS ; Start clock, no interrupts 


loop to time 


#A4X8000 , 40$ ; Random BITx instruction to time 


40$ ; Random conditional branch instruction 
(SP) ,30$ ; Delay 3 microseconds. 
RO,20$ ; Loop 
loop to time 
Read total time to execute loop. 


#PR780$_ICR,RO 


#0,#PR$_ICCS ; Shut clock off 
CSP)+ ; Pop delay loop index off stack. 
RO,#200000,GAEXE$GL_TENUSEC ; Calculate number of times to 


GAEXE$GL_TENUSEC ; execute the 
; Return 


loop to kill 10 u-secs. 


.DISABLE LSB 


INIADP780 
V03-021 


6C 61 
74 61 


- ADAPTER INITIALIZATION FOR VAX 11/780 
- SET SYSTEM TIME TO COR 


EXE$INIT_TODR 


00000000 
00000004 
0000000c 
00000014 
0000001C 

00000014 


30 41 50 4F 
00000004 
76 6E 69 QO 


64 20 64 69 


O5D7 
05D7 
O5D7 
05D7 


~O05D7 


0507 
O5D7 
O5D7 
0507 
0507 
O5D7 
O5D7 
O5D7 
0507 
0507 


1905 
1906 
1907 
1908 
1909 
1910 
1911 

1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
192) 

1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 

1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 

1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 

1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 


+ 
+ 
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3-JUN-1984 
19-OCT-1983 
SET SYSTEM TIME TO CORRECT VALUE AT STARTUP 


-SBTTL EXE$INIT_TODR - 


FUNCTIONAL DESCRIPTION: 


EXESINIT_TODR SOLICITS THE CORRECT TIME FROM THE OPERATOR IF NECESSARY, 
CONVERTS THE ASCII RESPONSE TO BINARY FORMAT AND CALLS AN INTERNAL 
ENTRY POINT OF THE $SETIME SYSTEM SERVICE TO SET THE NEW SYSTEM TIME 

IN MEMORY WITHOUT MODIFYING THE CONTENTS OF THE SYSTEM DISK. 

IF THE TIME WOULD NORMALLY BE SOLICITED FROM AN OPERATOR, BECAUSE 
THE HARDWARE TIME OF YEAR CLOCK IS ZERO, THEN THE SYSGEN PARAMETER 
"“TPWAIT" IS CHECKED. IF IT IS ZERO, THEN IT IS ASSUMED THAT NO 
OPERATOR IS PRESENT AND THE SYSTEM IS BOOTED USING THE LAST TIME 
RECORDED IN THE SYSTEM IMAGE. IF THE PARAMETER IS NON ZERO THEN 


: THAT TIME IS USED AS THE MAXIMUM TIME TO WAIT BEFOR ASSUMING THAT 

- THERE IS NO OPERATOR AND BOOTING ANY WAY. IF THE PARAMETER IS 

3 NEGATIVE, THE SYSTEM WILL WAIT FOREVER. 

; THIS ROUTINE IS CALLED ONLY ONCE, FROM SYSINIT OR STASYSGEN. 

; INPUT PARAMETERS: 

: NONE. 

; IMPLICIT INPUTS: 

: TIME-OF-DAY PROCESSOR CLOCK. 

; OUTPUT PARAMETERS: 

; RO,R1 - DESTROYED 

3; IMPLICIT OUTPUTS: 

: EXE$GQ_SYSTIME - SET TO CURRENT TIME IN 100 NANOSECOND UNITS SINCE 
; 17-NOV-1858 00:00:00. 

; Stack storage offsets: 

TTCHAN = AXOO ; CHANNEL FOR TERMINAL (LONGWORD) 
TTNAME = AX04 ; STRING DESCRIPTOR FOR OPERATOR’S TERM 
TMPDESC = AXOC ; TEMPORY STRING DESCRIPTOR (QUADWORD) 
INTIME = AX14 ; INPUT TIME VALUE (QUADWORD) 
LINBUF = AX1C ; INPUT LINE BUFFER (5 LONGWORDS) 
LINBUFSIZ = AX14 ; (LENGTH OF LINE BUFFER IN BYTES) 
; PURE DATA 


TERM_NAMADR: 


TERM_NAMSIZ = 


TIMERR: 


-ASCII \OPAO\ ; DEVICE NAME FOR OPERATOR‘’S TERMINAL 


- TERM_NAMADR 


-ASCIC \invalid date/time\ ; 


~ ADAPTER INITIALIZATION FOR VAX 


EXE$INIT_TODR 


INIADP780 
V03-021 
65 6D 69 74 2F 65 
11 
33’ 
41 45 4C 50 OA OD 
54 4€ 45 20 45 53 
54 41 44 20 52 45 
20 44 4E 41 20 45 
28 20 45 4D 49 54 
4D 4D 4D 2D 44 44. 
20 59 59 59 59 2D 
40 4D 3A 48 48 20 
20 20 29 
00000033 
O77C 8F BB 
5E 30 C2 
56 SE DO 
04 A6 04 9A 
FFA4 CF 9E 
08 A6 
00’ €E0 
1C 00000000’ GF 
50 1B DB 
50 C3 
00000000 ‘GF 
59 
09 1B 
59 D1 
0083D600 8F ; 
06 1E 
14 AG 7C 
00C7 31 
59 D4 
00000000 ‘GF 32 
58 
14 14 
OD 19 
01 Ci 
00000000’GF 
50 
1B 50 DA 


OSE7 
O5DB 
OSED 
OSED 
OSEE 
O5SF4 
OSFA 
0600 
0606 
O60C 
0612 
0618 
O61E 
0621 
0621 
0621 
0621 


0621 


0621 

0625 
0628 
062B 
062F 
0633 
0635 
0637 
063D 
063D 
063D 
0640 
0640 
0640 
0640 
0640 
0642 
0647 
0648 
O64A 
064C 
0651 

0653 
0656 
0659 
0659 
0659 
0658 
0661 

0662 
0664 


- 0666 


0666 
0668 
O66D 
O66E 
O66E 
0671 
0671 


1961 
1962 
1963 
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TIMEPROMPT : 


-BYTE 
-ASCII 


NPROMPT 
<13><10>/PLEASE ENTER DATE AND TIME (DD-MMM-YYYY HH:MM)~ / 


1964 NPROMPT=.-TIMEPROMPT~—1 


1965 
1966 


1967 EXESINIT_TODR:: 


1968 
1969 
1970 
1971 
1972 
1973 


1974 


1975 
1976 
1978 
1980 
1984 
1988 
1992 
1994 


1995 
1996 


1997 
2002 
2003 
2004 
2005 
2006 
2007 


2008 
2009 


2010. 


2012 


2014 
2016 
2018 
2022 


5$: 


RE 


; SET CORRECT TIME 


. ENABLE LSB 


PUSHR 
SUBL 
MOVL 
MOVZBL 
MOVAB 


BBS 


MFPR 


SUBL3 


BLEQU 
CMPL 


BGEQU 
CLRQ 
BRW 


ADTIME: 
CLRL 
CVTWL 


BGTR 
BLSS 


6$:; 


ADDL3 


MTPR 


#AM<R2,R3,R4,R5,R6,R8,R9O,R1IO0> ; SAVE REGISTERS 


#4*12,SP ; SCRATCH STORAGE 

SP,R6 ; SAVE ADDRESS OF SCRATCH STORAGE 
#TERM NAMSIZ,TTNAME(RG) ; SET SIZE OF OPERATOR’S TERM NAME AND 
WATERM_NAMADR,TTNAME+4(R6) ; PIC ADDRESS INTO TERM NAME DESC 


SA#EXE$V_SETTIME,GAEXE$GL_FLAGS,READTIME ; BR TO SOLICIT TIME 


#PR780$_ TODR,RO ; GET TIME OF DAY CLOCK VALUE 
RO,GAEXE$GL_TODR,R9O ; GET TOD DELTA TIME (10 MS UNITS) 
5$ ; BRANCH IF TIME IS LATER 
RQ ,#24*60*60* 100 ; CHECK FOR SETBACK OF ONE DAY 
READTIME ; MORE, MUST SOLICIT TIME 
INTIME(R6) ; NULL ARGUMENT FOR EXE$SETIME_INT 
200$ ; RETURN TO CALLER 

; SOLICIT TIME 
RQ ; CLEAR A FLAG 
GASGN$GW_TPWAIT,R8 ; PICK UP TIMEOUT WAIT INTERVAL 
8$ ; POSITIVE, WAIT THAT PERIOD ONCE 
7$ ; NEGATIVE IS WAIT FOREVER 
#1,GAEXESGL TODR,RO ; ZERO, SET TIME-OF-DAY CLOCK TO 
RO,#PR780$_TODR ; KNOWN VALUE + 10 MSEC AND FINISH UP 


INIADP780 
VO3-021 


; KDMO099 EO 
; KDMOO99 
= 

58 14 


59 


DD 
FF6O 


50 
CF 
82 


52 


AD 
OC AG 
OD 54 
A3 59 
A848 

58 

BC 


50 
54 


58 01 
58 


OC A6 
10 A6 


OE 
ie 


05 
18 


52 FEEB 


53 


FF73 


14 A6 

01 
00000000’ GF 
00000000’ GF 
00000000’ GF 
5E 30 
O77C 8F 


- ADAPTER INITIALIZATION FOR VAX 


EXE$INIT_TODR 


DO 
D6 


E9 


9E 
9A 


31 


7F 


7D 


co 
BA 


0671 


0671 


0671 
0673 
0673 
0673 
0676 
0678 
0686 
0689 
O68E 
0691 
0691 
0691 
0691 
0691 
0691 
O6B6 
O06B9 
O6BD 
O6CO 


2026 
2030 
2 
.4 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 


2072 


2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
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Macro V03-01 


NEGATIVE - WAIT FOREVER 

; AND ASSIGN TO INPUT DEVICE 
FALL BACK TO STORED TIME 
GET ADDRESS OF PROMPT STRING 


PROMPT AND READ TIME 


GE!IO$M_TIMED! IO$M_CVTLOW>, - 


I/O STATUS BLOCK , NO AST OR PARAM 
BUFFER ADDRESS AND SIZE 


PROMPT ADDRESS AND SIZE 

FALL BACK TO STORED TIME 
GET COMPLETION STATUS 

CONTINUE IF SUCCESSFUL READ 
FAILED ON ONE-TIME READ, RETURN 
(2 * TIMEOUT) + 1 


TRY AGAIN FOR TIME 

SOMETHING WAS INPUT 

FORM DESCRIPTOR FOR BUFFER 
; SET DESCRIPTOR ADDRESS 

; CONVERT TO BINARY TIME 


CHECK FOR DELTA TIME 
BRANCH IF NOT - OK 
INVALID TIME VALUE INPUT 
ADDRESS OF ERROR MESSAGE 
GET STRING LENGTH 

GIVE ERROR MESSAGE 


NO I/O STATUS,AST OR AST PARAM 
BUFFER ADDRESS, LENGTH 
SET CARRIAGE CONTROL TO CR/LF 


DE-ASSIGN TERMINAL CHANNEL 
SET NEW SYSTEM TIME 
USE TODR CLOCK TO SET SYSTEM TIME 


; SAVE BOOT TIME 


CLEAN OFF SCRATCH STORAGE 
RESTORE REGISTERS 


- SET SYSTEM TIME TO COR 19-OCT-1983 11:50:19 
BRB 5$ 3 
7$: MOVL #20,R8 ; STARTING WAIT 
INCL RQ ; 
8$: $ASSIGN_S TTNAME(R6) , TTCHAN(R6B) 
BLBC RO,6$ ; ERROR - 
10$: MOVAB WATIMEPROMPT ,R2 ; 
MOVZBL (R2)+,R3 , ; AND LENGTH 
$QIOW_S #0,WATTCHAN(R6) ,~- ; 
#<1I0$ READPROMPT!IO$M_PUR 
TMPDESC(R6),,,7- ; 
LINBUF(R6),#LINBUFSIZ,— ; 
R8,#0,- ; TIME OUT 
R2,R3 ‘ 
BLBC RO,6$ ; ERROR - 
MOVQ TMPDESC(R6) ,R4 ; 
BLBS R4,20$ ; 
BLBC R9,6$ ; 
MOVAB 1(R8)[R8],R8 ; 
MOVZWL R8,RB ; BOUND TIMEOUT 
BRB 10$ ; 
20$: ; 
MOVZWL TMPDESC+2(R6),TMPDESC(R6) ; 
MOVAB LINBUF(R6) , TMPDESC+4(R6) 
$BINTIM S TMPDESC(R6) ,INTIME(R6) 
BLBC RO,89S ; INVALID TIME 
TSTL INTIME+4(R6) 
BGTR 100$ : 
89$: ; 
MOVAB WATIMERR,R2 : 
MOVZBL (R2)+,R3 ; 
$QIOW_S #0, TTCHAN(R6),- 3 
#10$ WRITEVBLK,- ; 
(RZ) .RB- 47 : 
#0,#32 3 
BRW 10$ ; AND TRY AGAIN 
100$: ; EXIT 
$DASSGN_S TTCHAN(R6) ; 
200$: PUSHAQ INTIMECR6) ; 
CALLS #1,GAEXE$SETIME_INT : 
MOVQ GAEXE$GQ_TODCBASE ,GAEXE$GQ_BOOTTIME 
ADDL #12*4,SP ; 
POPR #AM<R2,R3,R4,R5,R6,RB,R9O,R10O> ; 
; Fall through into the deallocate logic. 
: RSB 


.DISABLE LSB 


*** This goes in if another piece of 
*** Initialization code is added that 
*** Js executed after EXE$INI_ TIMWAIT. 
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073C 2083 


INIADP780 
V03-021 


7E 52 

50 0000’CF 
00000000’ 8F 
51 50 
00000000 ' GF 
52 
00000000 ’ GF 
53 

9F17 8F 62 
1B 

80 8F 03 A2 
16 

50 62 

Oc 

51 62 

07 
00000000’ GF 
62 

52 02 

52 

52 

53 52 

DS 

50 0000’ CF 
51 0000’ 8F 
F87A 


70 


9E 
C1 


9E 


9E 


9E 
3C 
31 


073C 
073C 
073C 
073C 
073C 
073C 
073C 
073C 
073C 
073C 
073C 
073C 
073C 
073F 
073F 
073F 
O073F 
073F 
073F 
0744 
O74A 
074C 
0752 
0753 
0759 
O75A 
O75F 
0761 

0766 
0768 
076B 
076D 
0770 
0772 
0778 
0779 
077C 
O77E 
0780 
0783 
0785 
0785 
0785 
0785 
O78A 
O78F 
0792 


00000000 


00000000 Q0000000 


00000000’ 


52 


OF 
BE 


0000 


62 
00 


16 
7D 


0000 


2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 


2105 
2106 


2107 
2108 
2109 
2110 
2114 
2112 
2113 
2114 
2115 


2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 


"2137 
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DEAL_INIT_CODE: ; DEALLOCATE THE INITIALIZATION CODE 


we we ee we ee we we 


we 


we et we we 


It is the duty of the last-executed, loadable initialization 

routine to make itself and.all other such routines disappear, i.e., 

release the space they occupy to non-paged pool. Each routine’s vector 
must be disconnected, e.g., be made to point to the symbol, EXE$LOAD_ ERROR. 


NOTE: This means that new initialization. routines should be added 
to this module in a particular order, not necessarily at the 
end of the module! 


.ENABLE LSB 
MOVQ R2,-(SP) ; Save some registers 


First find the vectors that point to these initialization routines 
and reset them to point to EXE$LOAD_ERROR. 


MOVAB WASYSL$BEGIN,RO ; Compute bounds of releasable piece: 
ADDL3 #<STAY HEADER-SYSL$BEGIN>,RO,R1 ; starting and ending addresses. 
MOVAB GAEXE$AL_LOAVEC,R2 ; Get starting address of vectors. 
MOVAB GAEXE$LOAD_ERROR,R3 ; Get end of vectors. 

10$: CMPW (R2),#AXQF17 Is this JMP e# ? 
BEQL 30$ Br if yes, skip past it. 
CMPB 3(R2),#AX80 Is this-a system space address 


BNEQ 40$ ; Br if no, assume it’s a HALT instr. 
CMPL (R2),RO ; Is address before the releasable 
BLSSU 20$ ; piece of memory? .Br on yes, 

CMPL (R2),R1 ; Is address after the releasable 
BGTRU 205 ; piece of memory? Br on yes. 

MOVAB GAEXE$LOAD_ ERROR, (R2) ; Reset this vector. 


20$: ADDL #2,R2 ; Point past this vector. 

30$: INCL R2 ; Come here to point past JMP @#. 

40$: INCL R2 ; Come here to point past HALT. 
CMPL R2,R3 ; Past the end of the vectors? 


BLSSU 10$ Keep searching vectors. 


_ 
. 


Now release the memory to non-paged poo 


MOVAB WASYSL$BEGIN,RO ; Point to start of module 

MOVZWL #<STAY_HEADER-SYSLS$BEGIN>,R1 ; Length to vaporize 

BRW 50$ ; Br to code that is not released. 
PSECT $$$1INIT  END,PAGE ; ‘PAGE’ SINCE 16-BYTE ALIGN IS NOT 


STAY_HEADER: 


. LONG 0,0 

. WORD <SYSL$END-STAY HEADER> 
-BYTE DYN$C_LOADCODE 

-BYTE 0 


50$: JSB @#EXESDEANONPGDSIZ ; Just the smile on the Chesire cat 


MOVQ (SP)+,R2 ; Restore 
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05 0015 2138 RSB ; Return. 
0016 2139 
0016 2140 .DISABLE LSB 


0016 2141 .END 


INIADP780 
Symbol table 


$$$VMSDEFINED 
$$T1 

ADAPTERS 
ADP$B_TYPE 
ADP$C_CIADPLEN 
ADP$C_DRADPLEN 
ADP$C_MBAADPLEN 
ADP$C_UBAADPLEN 
ADP$L_AVECTOR 
ADP$L_CRB 
ADP$L_CSR 
ADP$L_DPQFL 
ADP$L_LINK 
ADP$L_MBASCB 
ADP$L_MBASPTE 
ADP$L_MRACTMDRS 
ADP$L_MRQFL 
 ADP$L_UBASCB 
‘ADP$L_UBASPTE 
ADP$L_VECTOR 
ADP$W_ADPTYPE 
ADP$W_DPBITMAP 
ADP$W_MRFFENCE 
ADP$W_MRFREGARY 
ADP$W_MRNFENCE 
ADP$W_MRNREGARY 
ADP$W_SIZE 
ADP$W_TR 
ADP$W_UMR_DIS 
ADPLINK 
ADPTAB_ADPLEN 
ADPTAB_ATYPE 
ADPTAB_IDBUNITS 
ALONPAGD 

AT$_CI 

AT$_DR 

AT$S_MBA 

AT$_UBA 

BADUMR 
BI_BUS_CODE 

BI_ CPU 
BI_CSR_LEN 
BI_LIKE 

BLD_CRB 
BOO$GB_SYSTEMID 
BOO$GL_SPTFREH 
BOO$GL_SPTFREL 
BOOTVECTOR 
BTD$K_CONSOLE 
BTD$K_UDA 

BUS _CODE_OFFSET 
BUS _CSR_LEN 
CI$INITIAL 
“CIGINT 

CITAB 
CONFIG_IOSPACE 
CONFREG 
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00000001 
00000001 
00000000 
0000000A 
00000030 
00000030 
00000030 
00000258 
0000001C 
00000010 
00000000 
00000014 
00000004 
00000014 
00000018 
0000005C 
00000030 
00000044 
00000054 
00000010 
O000000E 
00000060 
0000015C 
0000015E 
00000062 
00000064 
00000008 
0000000C 
00000256 
28 RR KK KK OK 
00000001 
00000003 
00000000 
000003D4 
00000004 
00000002 
00000000 
00000001 
0000030D 
80000000 
00000000 
00000002 
00000000 


00000506 
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00000000 
00000040 
00000011 
FFFFFFFC 
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00000015 
OOO0005F 
OOO0000A4 


xDD 
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09 


08 
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CONFREGL 
CPU_ADPSIZE 
CPU_TYPE 

CR 

CRB$B_TYPE 
CRB$C_LENGTH 
CRB$L_INTD 
CRB$L_WQBL 
CRB$L_WQFL 
CRB$W_SIZE 
CREATE_ARRAYS 
CSR_LEN_ OFFSET 
DDB$T_NAME 
DEAL_INIT_CODE 
DIRECT_VEC_NODE_CNT 
DRSINITIAL 
DRSINT 

DRTAB 

DYN$SC_ADP 
DYN$C_CONF 
DYN$C_CRB 
DYN$C_IDB 
DYN$C_INIT 
DYN$C_LOADCODE 
END_NEXUS 
ERROR_HALT 
ERROR_HALT_1 
EXE$AL LOAVEC 
EXESDEANONPGDSIZ 
EXE$GL_CONFREG 
EXE$GL_CONFREGL 
EXE$GL_FLAGS 
EXE$GL_NUMNEXUS 
EXE$GL_RPB 
EXE$GL_SCB 
EXE$GL_TENUSEC 
EXE$GL_TODR 
EXE$GL_UBDELAY 
EXE$GQ_BOOTTIME 
EXE$GQ_ TODCBASE 
EXE$INIT_TODR 
EXE$INI_TIMWAIT 
EXE$LOAD_ ERROR 
EXE$MCHK PRTCT 
EXE$OUTZSTRING 
EXE$SETIME_INT 
EXESTEST_CSR 
EXESUBAERR_INT 
EXE$V_SETTIME 
FILL_CRB 
GET_GEN_TYPE 
GET_TYPE 
IDB$B_TYPE 
IDB$C_LENGTH 
IDB$L_ADP 
IDB$L_CSR 
IDB$W_SIZE 
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000001E4 
00000019 
00000001 
0000000D 
OOO0000A 
00000048 
00000024 
00000004 
00000000 
00000008 
OOO00011A 
FFFFFFFB 
00000014 
0000073C 
00000009 
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00000007 
00000005 
00000009 
00000063 
00000062 
00000115 
00000199 
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00000513 
O000000B9 
O0OO0CO0A0 
OOQ0000A 
00000038 
00000014 
00000000 


00000008 
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INIADP780 
Symbol table 


IDB$W_UNITS 
INI$ALLOC_CRB 
INI SALONONPAGED 
INISCIADP 
INI$CONSOLE 
INI$DRADP 
INISIOMAP 
INI$KDZ11 
INI$MBADP 
INI$MPMADP 
INI$UBADP 
INI$UBSPACE 
INIT _ROUTINES 
INTIME 
10$M_CVTLOW 
IO$M_PURGE 
IO$M_TIMED 
I10$_ READPROMPT 
‘I10$_WRITEVBLK 
IO780$AL_IOBASE 
1O780$AL_NNEX 
IO780$AL_PERNEX 
IO0780$AL_UBOSP 
LF. 

LINBUF 
LINBUFSIZ 
MAP_NEXUS 
MAP_PAGES 
MAXNEXUS 
MBASINITIAL 
MBA$INT 

MBATAB 
MCHK$M_LOG 
MCHK$M_NEXM 
MMG$GL_SBICONF 
MMG$GL_SPTBASE 
MMG$SVAPTECHK 
NDT$_BUA 
NDT$_CI 
NOT$_DR32 
NDT$_KDZ11 
NDT$_MB 
NDT$_MEM1664NI 
NDT$_MEM161 
NDT$_MEMI6NI 
NDT$_MEM41 
NDT$_MEM4NI 
NDT$_MEM64EIL 
NDT$_MEM64ELU 
NDT$ MEM641 
NOT$_MEM64NIL 
NDT$_MEM64NIU 
NDT$_MPMO 
NDT$_MPM1 
NDT$_MPM2 
NDT$_MPM3 — 
NDT$_SCORMEM 
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oo000000Cc 
aK OK KOK OK KOK 


* KR KKK KK 


OOO003EF 
OOOO004ED 
000003DA 
00000000 
OOOOO04EC 
00000404 
RR RF 
000001C3 
000001A7 
00000000 


00000014 
OR RR ROKK 


AK KR KR OK 
KR KR RR OK 
* KKK KKK 
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20000000 
00000010 
00002000 
20100000 
OOOO000A 
OOO0000I1C 
00000014 
OOOOOO0F9 
00000173 


00000040 
ORK RK KKK 


ee 
0000000D 
00000001 


00000004 
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80000102 
00000038 
00000030 
80000105 
00000020 
00000012 
00000011 
00000010 
00000009 
00000008 
00000069 
00000068 
OO00006C 
00000068 
QOOO00006A 
00000040 
00000041 
00000042 
00000043 
80000001 
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xxx xk & 


x x*K &K 


09 
09 


09 
09 
08 
09 


09 


NDT$_UBO 
NDT$_UB1 
NDT$_UB2 
NDT$_UB3 
NEXUSDESC 
NOSPT 

NPROMPT 
NUMUBAVEC 
NUM_PAGES 

NXT NEXUS 
OPA$CRB 

PA 

PR$_ICCS 

PR$ SID _TYP730 
PR$ SID _TYP750 
PR$ SID _TYP780 
PR$ SID _TYP790 
PR$ SID_TYP8NN 
PR$ SID _TYP8SS 
PR$ SID _TYPUV1 
PR$ TBIS 
PR780$_ICR 
PR780$_NICR 
PR780$_TODR 
PTESC_KW 
PTE$M_VALID 
READTIME 
RPB$B_DEVTYP 
RPB$L_ADPPHY 
RPB$SL_ADPVIR 
RPB$L_BOOTR1 
RPB$L_CSRPHY 
RPB$L_CSRVIR 
RPB$W_ROUBVEC 
SBICONF 
SBI_BUS CODE 
SBI_CPU 
SBI_CSR_LEN 
SBI_LIKE 
SGNSGW_TPWAIT 
STAY_HEADER 

SW BUS CODE 
SYS$ASSIGN 
SYS$BINTIM 
SYS$DASSGN 
SYS$QIOW 
SYSL$BEGIN 
SYSL$END 
TERM_NAMADR 
TERM_NAMSIZ 
TEST NEXUS 
TIMEPROMPT 
TIMERR 

TMPDESC 

TTCHAN 

TTNAME 
UBASINITIAL 
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00000028 
00000029 
0000002A 
0000002B 
00000020 
000002E4 
00000033 
00000080 
00000000 
OQO00006B 
ORR OR ORR 
20020000 
00000018 
00000003 
00000002 
00000001 
00000004 
00000006 
00000005 
00000007 
0000003A 
OO00001A 
00000019 
0000001B 
10000000 
80000000 
00000659 
00000066 
Oo00005C 
00000060 
00000020 
00000054 
00000058 
OOOOOOTE 
OOOO00E4 
00000000 
00000001 
00000001 
00000001 
OR a RK OK ok 
00000000 


00000005 
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000005D7 
00000004 
00000071 
OOOOOS5ED 
OOOO005DB 
Q000000C 
00000000 


00000004 
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GX 
GX 
GX 
GX 


08 
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08 
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UBASINTO BREKRKRKK XK 09 
UBA$L:_BRRVR = 00000030 
UBAS$L_CR = 00000004 
UBAS$UNEXINT OK kK KK Xx 09 
UBAERRADR = 00000090 
UBAINT4 = 00000000 
UBAINT4REL = QOOOO000A 
UBAINTS = 00000020 
UBAINT5REL = Q000002A 
UBAINT6 = 00000040 
UBAINT6REL = OO000004A 
UBAINT7 = Q0000060 
UBAINT7REL = QOOOO06A 
UBAINTADP = 00000089 
UBAINTBASE 00000340 R 09 
UBINTS2Z = 00000094 
VA$M_SYSTEM = 80000000 
VEC$L_ADP = 00000014 
VEC$L_IDB = 00000008 
VEC$L_ INITIAL = Q000000C 
VECTAB OO00003D4 R 09 
+--~-------------- + 
' Psect synopsis ! 
+---------------- + 
PSECT name Allocation PSECT No. Attributes 
. ABS 00000000 ¢ 0.) OO ¢( O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
S$ABS$ 00000004 (¢ 4.) 01 € 1.) #NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
$S$FINITSDATAO ooo000060 ¢ 96.) O02 (€ 2.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
$$SINITSDATAI oooo0000 0.) O3 € 3.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
S$$S$INITSDATA2 00000030 (¢ 48.) 04 ( 4.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
$E$SINITSDATAS oo000000 (¢ Oo.) OS € 5.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
$S$SINITSDATA4S oo0000060 ¢ 96.) O06 ( 6.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
S$$SINITSDATAS 00000000 ¢ O.) O7 € 7.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
SSSINITSDATA OOOO0O033F ¢( 831.) O08 ( 8.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
S$S$SINITSCODE 00000792 (¢ 1938.) 09 ¢( 9.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC QUAD 
S$$$INIT END 00000016 (¢ 22.) OA ( 10.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC PAGE 
+--------- + - + 
! Performance indicators ! 
+------------- +--+ - + 
Phase Page faults CPU Time Elapsed Time 
Initialization 31 00;:00:00.07 00:00:00.34 
Command processing 124 00:00:00.50 00:00:01.88 
Pass 1 530 00:00:16.59 00:01:02.39 
Symbol table sort 0 00:00:01.67 00:00:04.91 
Pass 2 313 00:00:06.56 00:00:33.79 
Symbol table output 32 00:00:00.16 00:00:00.66 
Psect synopsis output 7 00:00:00.06 00:00:00.21 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals. 1040 00:00:25.63 00:01:44.18 


The working set limit was 1950 pages. 
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VAX~11 Macro Run Statistics 19-OCT-1983 11:50:19 DISKS$VMSMASTER: [SYSLOA.SRC]INIADP( 17) 


- 1384197 bytes (263 pages) of virtual memory were used to buffer the intermediate code. 

There were 90 pages of symbol table space allocated to hold 1618 non-local and 36 local symbois. 
2489 source lines were read in Pass 1, producing 39 object records in Pass 2. 

46 pages of virtual memory were used to define 44 macros. 


tone nn ene + 
! Macro library statistics ! 
$e rn ere re erro + 

Macro library name Macros defined 

_$255$DUA28: [SYS.OBJJLIB.MLB; 1 21 

_$255$DUA28: [SVSLIB]STARLET.MLB; 2 15 

TOTALS (all libraries) 36 


1755 GETS were required to define 36 macros. 


There were no errors, warnings or information messages. 


MACRO/LIS=LIS$: INIADP780/0BJ=OBJ$: INIADP780 MSRC$: CPUSW780/UPDATE=(ENHS$: CPUSW780)+MSRC$: INIADP/UPDATE=(ENH$: INIADP) tEXECML$/LIB 


LIOSUB780 
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Table of contents Page 0 


(3) ’ 137 PURGE DATAPATH 


LIOSUB780 
V03-012 


LOADABLE I/0 SUBROUTINES 3-JUN-1984 14:57:17 VAX-11 Macro V03-01 Page 1 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


. 


9 


. 
° 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 


? 
’ 
’ 
’ 
’ 
% 


’ 
’ 
? 
’ 
’ 
’ 
’ 
’ 
’ 
’ 
’ 
’ 
’ 
’ 
’ 
% 
> 
’ 
’ 
? 
’ 
’ 
’ 
’ 
’ 
’ 
> 
. 
3 
’ 
’ 
. 
. 
’ 
. 
’ 
’ 
’ 
’ 
’ 
’ 
. 
’ 
’ 


6-APR-1984 16:16:35 DISK$VMSMASTER: [SYSLOA.SRC]LIOSUB. (1) 


-NOSHOW CONDITIONALS 
.TITLE LIOSUB780 —- LOADABLE I/O SUBROUTINES 


-IDENT ‘V03-012’ 
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* * 
* COPYRIGHT (c) 1978, 1980, 1982, 1983, 1984 BY * 
* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
* ALL RIGHTS RESERVED. * 
* * 
* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED #* 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE #* 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY #* 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. * 
* * 
* THE INFORMATION IN THIS SOFTWARE IS. SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
* CORPORATION. * 
* ‘ * 
* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ #* 
* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
# # 
* * 
* * 


38k aR oO Ko eo ok KK oo Koo oo Ko aK ok oo OR OK KOK KOK OK 


++ 


FACILITY: 
EXECUTIVE, 1/0 CONTROL ROUTINES 
ABSTRACT: 
T/O SUBROUTINES WHICH CONTAIN PROCESSOR DEPENDENCIES. 
AUTHOR: 
N. KRONENBERG, JANUARY 12, 1979. 


MODIFIED BY: 


VO03-012 KDMOO096 Kathleen D. Morse 27-Mar-1984 
Add memory CSR scanning to IOC$PURGDATAP for MicroVAX I. 
(All DMA MicroVAX I drivers should call this routine, just 
before calling IOC$REQCOM. ) 


V03-011 KDMOO81 Kathleen D. Morse 13-Sep-1983 
Create a version for Micro-VAX I. , 


LIOSUB780 
V03-012 
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0000 72 
0000 73 
0000 74 
0000 75 
0000 76 
0000 77 
0000 78 
0000 79 
0000 B0 
0000, 81 
0000 82 
0000 83 
0000 84 
0000 B5 
0000 86 
0000 87 
0000 88 
0000 89 
0000 90 
0000 91 
0000 92 
0000 93 
0000 94 
0000 95 
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V03-010 TCMOO04 Trudy C. Matthews 4-Jan-1982 
Added 11/790-specific path to IOC$PURGDATAP. 


vog TCMOO0O03 Trudy C. Matthews 9-Nov- 1982 
Added a .TITLE statement for LIOSUB790. 


vos TCMOO002 Trudy C. Mathews 
Changed all "7ZZ"s to "730"s. 


29-Jul-1981 


VO7 TCMGOO1 Trudy C Matthews 28-Feb-1980 
Changed IOC$PURGDATAP for NEBULA so that it logs 
the Unibus Error Summary register itself when there 
are Unibus errors reported. 


V06 NPKOOO2 N. KRONENBERG 4-DEC-1979 
REPLACED IOC$PURGDATAP FOR NEBULA 


VO5 NPKOOO1 N. KRONENBERG 
CORRECTED 11/750 CHECK FOR PURGE DONE. 


23-AUG~-1979 


V04 TCMOOO1 Trudy C. Matthews 3-Jul-1979 
Modified IOC$PURGDATAP for NEBULA. 
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102 
103 
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115 
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125 
130 
135 


? 
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MACRO LIBRARY CALLS: 


S$ADPDEF 
$CRBDEF 
$EMBETDEF 
S$EMBUEDEF 
$I DBDEF 
$SPRDEF 
$UBADEF 
$UBIDEF 
$UCBDEF 
$VECDEF 


C780_LIKE 
C750_LIKE 


> 
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14; 
16; 


57:17 
16:35 
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Define 
Define 
Define 
Define 
Define 
Define 
Define 
Define 
Define 
Define 
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ADP offsets 

CRB offsets 

error types. 

Uniobus Error buffer. 
IDB offsets 

IPR‘S 

UBA offsets 

UBI offsets 

UCB offsets 

CRB/VEC offsets 


LITOSUB780 
V03-012 
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51 
54 
64 


08 
64 


52 


50 
0800 
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263 
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.SBTTL PURGE DATAPATH 
” LOCSPURGDATAP - PURGE DATAPATH 
This routine purges the caller’s buffered datapath, and clears any 
datapath errors. if there was a datapath error, this fact is 
returned to the caller. 
INPUTS: 
R5 = UCB address 
OUTPUTS: 


RO-R3 altered 
Other registers preserved 


RO = low bit clear/set if transmission error/success 

R1 = DPR contents after purge (for register dump by caller) 

R2 = address of start of adapter map registers (for reg dump by caller) 
R3 = CRB address 


-PSECT WIONONPAGED 


-ENABL LSB 


IOCSPURGDATAP: : 3 
PUSHR #AM<R4> ; Save register 
MOVL UCB$L_CRB(RS5) ,R3 ; Get CRB address 
MOVL @CRB$L_INTD+VEC$L ADP(R3),R2 ; Get start of adapter register space 


EXTZV #VEC$V_DATAPATH,~— ; Extract datapath # 
FVECE$S DATAPATH,—- : from CRB 
CRB$L_INTD+VEC$B_DATAPATH(R3) ,R1 

MOVAL UBA$L_DPR(R2)[{R1],R4 Get address of DPR 


ASHL #UBAS$V_DPR_BNE, #1, (R4) ; Purge datapath 
MOVL (R4),R1 ; Get DPR contents 
BBC #UBA$V_DPR_XMTER,R1,20$ ; Branch if no error 
ASHL #UBA$V_DPR_XMTER,#1,(R4) ; Clear error in DPR 
CLRL RO ; Set to return transfer error 
BRB 30$ ; Join common code 
20$: MOVZBL #1,RO ; Set to return transfer success 
30$: MOVAL UBA$L_MAP(R2) ,R2 ; Return addr of 1st map register 
POPR #AMK<R4> ; Restore register 
RSB ; Return 
.DSABL LSB 


. END 


LIOSUB780 - LOADABLE I/O SUBROUTINES 

Symbol table 

C750 LIKE = 00000000 

C780 LIKE = 00000001 

CPU_TYPE = 00000001 

CRB$L_INTD = 00000024 

ITOCGPURGDATAP 00000000 RG 02 

PR$ SID_TYP730 = 00000003 

PR$_SID_TYP750 = 00000002 

PRG SID_TYP780 = 00000001 

PR$_SID_TYP790 = 00000004 

PR$_SID_TYPUV1 = 00000007 

UBA$L_DPR = 00000040 

UBA$L_MAP = 00000800 

UBA$V_DPR_BNE = QOOOO00I1F 

UBA$V_DPR_XMTER = QOOOOOTE 

UCB$L_CRB = 00000024 

VEC$B_DATAPATH = 00000013 

VEC$L_ADP = 00000014 

VEC$S_DATAPATH = 00000005 

VEC$V_DATAPATH = 00000000 
Feet ocr cre oH + 
! Psect synopsis ! 
poss SS SSS esos + 

PSECT name Allocation PSECT No. Attributes 


ABS 00000000 ¢ 0.) OO ( OO.) NOPIC USR 
SABSGF 00000000 ( 0.) 01 ¢ 1.) NOPIC USR 
WI ONONPAGED 00000033 ( 51.) 02 ( Pe) NOPIC USR 

t------- + 
! Performance indicators ! 
$---------- ~~ ++ + 
Phase Page faults CPU Time Elapsed Time 
Initialization 25 00:00:00.04 00:00:00.24 
Command processing 121 00:00:00.49 00:00:02.65 
Pass 1 : 273 00:00:04.90 00:00:10.47 
Symbol table sort 0 00:00:00.77 00:00:01.25 
Pass 2 31 00:00:00.97 00:00:02.58 
Symbol table output 3 00:00:00.03 00:00:00.03 
Psect synopsis output 3 00:00:00.01 00:00:00.01 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 459 00:00:07.21 00:00:17.23 


The working set limit was 1350 pages. 

43453 bytes (85 pages) of virtual memory were used to buffer the 
There were 40 pages of symbol table space allocated to hold 754 non-local 
304 source lines were read in Pass 1, producing 13 object records in Pass 
17 pages of virtual memory were used to define 16 macros. 


3-JUN- 1984 
6-APR-1984 


CON 
CON 
CON 


intermediate code. 
local 


and 2 
2. 


ABS 
ABS 
REL 


14:57:17 
16:16:35 


VAX~11 


Macro V0O3~-01 
DISK$SVMSMASTER: [SYSLOA.SRC]LIOSUB. (3) 


LCL NOSHR NOEXE NORD 


LCL NOSHR 
LCL NOSHR 


symbols. 


EXE 
EXE 


RD 
RD 


Page 


NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
WRT NOVEC BYTE 
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LIOSUB780 - LOADABLE I/0 SUBROUTINES 


VAX-11 Macro Run Statistics 


Macro library name 
_$255$DUA28:[SYS.OBJ]LIB.MLB; 1 
_$255$DUA28: [SYSLIB]STARLET.MLB; 2 
TOTALS (all libraries) 


845 GETS were required to define 13 macros. 


Macro library statistics 


There were no errors, warnings or information messages. 


3-JUN-1984 
6-APR-1984 


14:57:17 
16:16:35 


VAX-11 Macro V03-01 Page 6 
DISKSVMSMASTER: [SYSLOA. SRC]LIOSUB. (3) 


MACRO/LIS=LIS$:LIOSUB780/0BJ=OBJ$:LIOSUB780 MSRC$:CPUSW780/UPDATE=(ENH$ : CPUSW780 )+MSRC$: LIOSUB/UPDATE=( ENH$: LIOSUB)+EXECML$/LIB 


LOADMREG 


LOADMREG 


Table of contents 


74 
120 
197 
230 
276 


- LOAD MBA AND UBA MAP REGISTERS 


LOAD MASSBUS ADAPTER MAP REGISTERS 

LOAD UNIBUS ADAPTER MAP REGISTERS 

GET PFN FROM INVALID PTE 

Load UBA map registers 

LOAD UNIBUS ADAPTER MAP REGISTERS FOR UDA PORT 


3-JUN- 1984 


11:45:48 


VAX-11 


Macro V03-Q01 


Page 
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LOADMREG . ~ LOAD MBA AND UBA MAP REGISTERS 3-JUN~1984 11:45:48 VAX-11 Macro V03-01 Page 1 


V03-002 12-MAR-1982 17:12:47 DISKSVMSMASTER: [SYS.SRC]LOADMREG.M(1) 
0000 1 -TITLE LOADMREG - LOAD MBA AND UBA MAP REGISTERS 

;RLRPDTADP 0000 1 -IDENT ‘VQ3-002’ 

-1 0000 3 
0000 4; 
0000 Bg RR A RRR OR RRR RRO RGR RR ROKR ORR RE 
0000 6 ;* * 
0000 7 ;* COPYRIGHT (c) 1978, 1980, 1982 BY * 
0000 8 ;* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
0000 9 ;* ALL RIGHTS RESERVED. * 
0000 10 ;* * 
0000 11> 5;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0000 12 > 3;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0000 13° ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS’~ HEREBY * 
0000 16 ;* TRANSFERRED. * 
0000 17°=;* * 
0000 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
0000 20 ;* CORPORATION. * 
0000 21 = ;* * 
0000 22 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 23 ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 24 ;* * 
0000 25 3 * * 
0000 QE FAR A ORR ORR ORR ROKR GOR RRR GOR GRR OK ROR ORR GR RGR OK KK 
0000 27 ; 
0000 28 ; D. N. CUTLER 1-NOV-77 
0000 29 ; 
0000 30 ; LOAD MBA MAP REGISTERS 
0000 Si) 
0000 32 ; MODIFIED BY: 
0000 33 ; 

;RLRPDTADP 0000 Tie % VOQ3-002 RLRPDTADP Robert L. Rappaport 9-Apr-1984 

;RLRPDTADP 0000 2 ; Modify IOC$LUBAUDAMAP so as to pickup the pointer to the 

;RLRPDTADP 0000 a3 +s ADP from PDT$L_ADP(R4). 

;RLRPDTADP 0000 oA 

s;KDMO002 0000 5s VO3-001 KDMOO0O02 Kathleen D. Morse 28-Jun-1982 

; KOMO002 0000 6 ; Add $VADEF. 

8 


~24 0000 5 


. 
’ 


LOADMREG 
V03-002 


;RLRPDTADP 
;RLRPDTADP 
;RLRPDTADP 
;RLRPDTADP 
; RLRPDTADP 
; KDMO002 
-4 
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0000 
- 0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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12-MAR-1982 17: 


MACRO LIBRARY CALLS 


$ADPDEF 
$CDRPDEF 
$CRBDEF 
$MBADEF 
$PDTDEF 
$PTEDEF 
$UBADEF 
$UBMDDEF 
$SUCBDEF 
$VADEF 
$VECDEF 


:45:48 


12:47 


;DEFINE 
;DEFINE 
; DEFINE 
+;DEFINE 
;DEFINE 
;DEFINE 
; DEFINE 
;DEFINE 
;DEFINE 
; DEFINE 
;DEFINE 


VAX-11 Macro V03-01 Page 2 
DISK$SVMSMASTER: [SYS.SRC]LOADMREG.M(1) 


ADP OFFSETS 

CORP OFFSETS 

CRB OFFSETS 

MBA REGISTER OFFSET DEFINITIONS 
PDT OFFSETS 

PAGE TABLE ENTRY FIELDS 

UCB OFFSETS 

UBMD OFFSETS 

UCB OFFSETS 

VIRTUAL ADDRESS FIELDS 

CRB TRANSFER VECTOR OFFSETS 


“LOADMREG 
V03-002 


52 


53 

52 7E AS 
10 A4 52 
51 7C AS 
OC A4 51 
OC A4 51 
O1FF C241 
52 F7 8F 
52 

51 0800 C4 
50 78 ADS 
81 80 

09 

F8 52 

61 

93 BE 

53 FC AQ 
0095 
80000000 8F 
FC Al 53 
ES 
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LOAD MASSBUS ADAPTER MAP REGISTERS 12-MAR-1982 17:12:47 DISKSVMSMASTER: [SYS.SRC]LOADMREG.M(1) 
0000 74 .-SBTTL LOAD MASSBUS ADAPTER MAP REGISTERS 
0000 75. 3+ 
0000 76 ; IOC$SLOADMBAMAP - LOAD MASSBUS ADAPTER MAP REGISTERS 
0000 77 ; 
0000 78 ; THIS ROUTINE IS CALLED TO LOAD THE MASSBUS ADAPTER MAP REGISTERS, THE 
0000 79 ; BYTE COUNT REGISTER, AND THE VIRTUAL ADDRESS REGISTER. 
0000 80 ; 
0000 81 ; INPUTS: 
0000 82 ; 
0000 83°; R4 = ADDRESS OF MBA CONFIGURATION STATUS REGISTER. 
0000 84 ; R5 = UCB ADDRESS OF UNIT TRANSFER IS TO OCCUR ON. 
0000 85 ; ; 
0000 86 ; OUTPUTS: 
0000 87 ; 
0000 88 ; THE TRANSFER BYTE COUNT, STARTING PAGE OFFSET, AND ADDRESS OF THE 
0000 89 ; PAGE TABLE ENTIRES THAT DESCRIBE THE TRANSFER ARE RETRIEVED FROM 
0000 90 ; THE SPECIFED UCB AND USED TO LOAD THE MBA BYTE COUNT, VIRTUAL ADDRESS, 
0000 91 ; AND MAP REGISTERS. ONE ADDITIONAL MAP REGISTER IS LOADED AS INVALID 
0000 92 ; TO STOP THE TRANSFER IF A HARDWARE FAILURE SHOULD OCCUR. 
0000 93 ; 
0000 94 ; R3 IS PRESERVED ACROSS CALL. 
0000 95 :- 
0000 96 
00000000 97 .PSECT WIONONPAGED 
0000 98 IOC$LOADMBAMAP: : ;LOAD MASSBUS ADAPTER MAP REGISTERS 
DDB 0000 99 PUSHL R3 ; SAVE REGISTERS 
3C 0002 100 MOVZWL UCB$W_BCNT(RS5) ,R2 ;GET TRANSFER BYTE COUNT 
CE 0006 101 MNEGL | R2,MBA$L_BCR(R4) ;LOAD BYTE COUNT REGISTER 
3C QOOA 102 MOVZWL UCB$W_BOFF(RS5),R1 ;GET BYTE OFFSET IN PAGE 
DO OOOE 103 MOVL R1,MBA$L_VAR(R4) ;LOAD STARTING VIRTUAL ADDRESS 
DO 0012 104 MOVL R1,MBASL_VAR(R4) ;***** TEMP UNTIL MBA ECO *****% 
9E 0016 105 MOVAB AX1FF(R2)[R1],R2 ;CALCULATE HIGHEST RELATIVE BYTE AND ROUND 
78 OO1C 106 ASHL #-9,R2,R2 ;CALCULATE NUMBER OF MAP REGISTERS TO LOAD 
0020 
DE 0021 107 MOVAL MBA$L_MAP(R4),R1 ;GET ADDRESS OF MBA MAP REGISTERS 
DO 0026 108 MOVL UCBEL_ SVAPTE(RS) ,RO ;GET ADDRESS OF PAGE TABLE 
DO OO02A 109 10$: MOVL (RO)+, (RI)+ ;LOAD MAP REGISTER 
18 002D 110 BGEQ 30$ ;IF GEQ PTE INVALID 
FS  O0O2F 111 20$: SOBGTR R2,10$ ;ANY MORE TO LOAD? 
D4 0032 112 CLRL (R1) ;LOAD INVALID MAP ENTRY 
DO 0034 113 MOVL (SP)+,R3 ;RESTORE REGISTER 
05 0037 114 RSB 
DO 0038 115 30$: MOVL ~4(RO),R3 ;GET THE PTE (NOT FROM MAP REGISTER! ) 
30 003C 116 BSBW IOCSPTETOPFEN ;GET PFN FROM INVALID PTE 
CQ OO03F 117 BISL3 #AX80000000,R3,-4(R1) ;AND LOAD THE MAP. REGISTER 
0045 
11 0048 118 BRB 20$ : 


LOADMREG 
VO3-002 


51 7C AS 
52 7E AS 
53 24 AS 


51 7C AS 
52 7E AS 
53 24 AS 


54 37 A3 


52 OFF C241 
52 F7 8F 
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LOAD UNIBUS ADAPTER MAP REGISTERS 12-MAR-1982 17:12:47 DISK$VMSMASTER: [SYS.SRC]LOADMREG.M(1) 
OO4A 120 .SBTTL LOAD UNIBUS ADAPTER MAP REGISTERS 
004A 121 3+ 
O0O4A 122 ; IOC$LOADUBAMAP - LOAD UNIBUS ADAPTER MAP REGISTERS 
004A 123 ; IOC$LOADUBAMAPA - LOAD UNIBUS ADAPTER MAP REGISTERS ALTERNATE ENTRY FOR 
OO4A 124 ; BYTE ALIGNED UNIBUS DMA DEVICES WHICH NEVER WISH TO SET THE BYTE 
004A 125 ; OFFSET BIT IN MAP REGISTERS. IN ALL OTHER RESPECTS THESE TWO 
004A 126 ; ENTRYPOINTS PRODUCE IDENTICAL RESULTS. 
OO4A 127 ; 
OO4A ° 128 ; THIS ROUTINE IS CALLED TO LOAD THE UNIBUS ADAPTER MAP REGISTERS. 
004A 129 ; 
004A 130 ; INPUTS: 
O04A 131° =; 
O04A 132 ; R5 = UCB ADDRESS OF UNIT TRANSFER IS TO OCCUR ON. 
004A 133 ; 
004A 134 ; IT IS ASSUMED THAT THE DATAPATH AND MAP REGISTERS HAVE BEEN PREVIOUSLY 
004A 135 ; ASSIGNED. 
OO4A 136 ; 
004A 137 ; OUTPUTS: 
004A 138 ; 
004A 139 ; EACH MAP REGISTER IS LOADED WITH THE APPROPRIATE PAGE FRAME NUMBER 
OO4A 140 ; MERGED WITH THE DATAPATH DESIGNATOR AND BYTE OFFSET BIT. ONE ADDITIONAL 
OO4A 141 =; MAP REGISTER IS LOADED AS INVALID TO STOP THE TRANSFER IF A HARDWARE 
004A 142 ; FAILURE SHOULD OCCUR. 
OO4A 143 =; 
O04A 144 ; R3 IS PRESERVED ACROSS CALL. 
O04A b45° 35 
OO4A 146 
O04A 147 »-ENABL LSB 
OO4A 148 IOCGLOADUBAMAPA:: ;LOAD UNIBUS ADAPTER MAP REGISTERS - ALTERNATE 
OO4A 149 ; HERE WE DUPLICATE THE CODE IN THE OTHER ENTRY 
004A 150 ; EXCEPT THAT WE DO NOT CHECK WHETHER THE BYTE 
OO4A 15] ; OFFSET IS ODD. INSTEAD WE BRANCH DIRECTLY 
004A 152 : PAST THE SETTING OF THE BYTE OFFSET BIT. 
7D OO4A 153 MOVQ R3,-(SP) ;SAVE REGISTERS 
3C 0040 154 MOVZWL UCB$wW_BOFF(RS),R1 ;GET BYTE OFFSET IN PAGE 
3C 60051 155 MOVZWL UCB$W_BCNT(R5),R2 ;GET TRANSFER BYTE COUNT 
DO 0055 156 MOVL UCB$L_CRB(R5),R3 ;GET ADDRESS OF CRB 
EF Q059 157 EXTZV #VEC$V_ DATAPATH,~— ;GET DATAPATH 
005B 158 #VECES DATAPATH, — ; NUMBER 
OO5C 159 CRB$L_INTD+VEC$B_ DATAPATH(R3) ,R4 
11 OOSF 160 BRB 10$ ; BRANCH AROUND TO JOIN COMMON CODE 
0061 161 IOCGLOADUBAMAP: : ;LOAD UNIBUS ADAPTER MAP REGISTERS 
7D 0061 162 MOVQ R3,-(SP) ;SAVE REGISTERS 
3C 0064 163 MOVZWL UCB$W_BOFF(RS),R1 ;GET BYTE OFFSET IN PAGE 
3C 0068 164 MOVZWL UCB$W_BCNT(RS5),R2 ;GET TRANSFER BYTE COUNT 
DO OO06C 165 MOVL UCB$L_CRB(R5) ,R3 ;GET ADDRESS OF CRB 
EF 0070 166 EXTZV #VEC$V_DATAPATH, - ;GET DATAPATH 
0072 167 #VEC$S DATAPATH,~ ; NUMBER 
0073 168 CRB$L_INTD+VEC$B_DATAPATH(R3) ,R4 
EQ 0076 169 BLBC R1,10$ ;I1F LBC WORD ALIGNED TRANSFER 
88 0079 170 BISB #\X10,R4 ;SET BYTE OFFSET BIT 
A8 OO07C 171 10$: BISW #4X400,R4 ;MERGE VALID WITH BYTE OFFSET AND DATAPATH 
El 0081 172 BBC #VECS$V_LWAE, - ;BRANCH IF LONGWORD ACCESS NOT ENABLED 
0083 173 ; CRB$L_INTD+VEC$B_DATAPATH(R3),15$ 
88 0086 174 BISB #AX20,R4 ;ELSE SET LWAE FOR MAP REG 
9E 0089 175 15$: MOVAB AXIFF(R2)[R1],R2 ;CALCULATE HIGHEST RELATIVE BYTE AND ROUND 
78 OO8F 176 ASHL #-9,R2,R2 ;CALCULATE NUMBER OF MAP REGISTERS TO LOAD 


LOADMREG 
VO3-002 
36 A383 52 
51 38 B3 
50 34 A3 
51 0800 C140 
50 78 AS 
53 80 
OB 15 54 


81 53 
EE 52 


53 8E 
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LOAD UNIBUS ADAPTER MAP REGISTERS 12-MAR-1982 17:12:47 DISK$VMSMASTER: [SYS.SRC]LOADMREG.M(1) 
0093 
91 0094 177 CMPB R2,CRB$L_INTD+VEC$B_NUMREG(R3) ;ENOUGH MAP REGISTERS ASSIGNED? 
1E 0098 178 BGEQU 40$ .;ITF GEQU NO 
DO OO9A 179 MOVL @CRB$L_INTD+VEC$L_ADP(R3),R1 ;GET ADDRESS OF CONFIGURATION REGISTER 
EF OO9E 180 EXTZV #¥VEC$V_MAPREG, — ;GET STARTING REGISTER 
OOAO 181 #VEC$S MAPREG, - 
00A1 182 CRB$L_INTD+VEC$W_MAPREG(R3) ,RO 
DE OO0OA4 183 MOVAL UBA$L_MAP(R1)[RO],R1 ;GET ADDRESS OF FIRST MAP REGISTER TO LOAD 
DQ OOAA 184 MOVL UCB$L_SVAPTE(RS5),RO ;GET ADDRESS OF PAGE TABLE 
DO OOAE 185 208: MOVL (RO)+,R3 ;GET NEXT PAGE TABLE ENTRY 
19 OOB1 186 BLSS 305 ;IF LSS VALID PAGE TABLE ENTRY 
10 00B3 187 BSBB IOC$PTETOPFN ;GET PFN FROM INVALID PTE 
FO OOBS5 188 30$: INSV R4,#21,#11,R3 ; INSERT VALID, BYTE OFFSET, AND DATAPATH 
OOB9 
DO OOBA 189 MOVL R3,(R1)+ ;LOAD UBA MAP REGISTER 
F5 OOBD 190 SOBGTR R2,20$ ; ANY MORE TO LOAD? 
D4 00Cco 191 CLRL (R1) ;LOAD INVALID MAP ENTRY 
7D 00C2 192 MOVQ (SP)+,R3 ;RESTORE REGISTERS 
05 oocs 193 RSB : 
00C6 194 40$: BUG_CHECK UBMAPEXCED, FATAL ;UNIBUS MAP REGISTER ALLOCATION EXCEEDED 
OOCA 195 .DSABL LSB 


LOADMREG 
V03-002 


00000000’FF43 


FB800000 


05 53 
E7 53 


53 
OF 


8F 
53 


1A 
16 
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GET PFN FROM INVALID PTE 12-MAR-1982 17:12:47 DISK$VMSMASTER: [SYS.SRC]LOADMREG.M(1) 
OOCA 197 .SBTTL GET PFN FROM INVALID PTE 
OOCA 198 ;+ 
OOCA 199 ; IOC$YPTETOPFN - GET PFN FROM INVALID PTE 
OOCA 200 ; 
OOCA 201 ; THIS ROUTINE IS CALLED TO RETURN THE PAGE FRAME NUMBER FROM A 
OOCA 202 ; PAGE TABLE ENTRY WHICH HAS ALREADY BEEN DETERMINED TO BE NOT VALID. 
OOCA 203 ; 
OOCA 204 ; INPUTS: 
OOCA 205 ; 
OOCA 206 ; R3 = PAGE TABLE ENTRY 
OOCA 207 ; 
OOCA 208 ; OUTPUTS: 
OOCA 209 ; 
OOCA 210 ; R3 -= PAGE FRAME NUMBER AND MAY INCLUDE THE FOLLOWING FIELDS 
OOCA 211 =; VALID BIT, MODIFY BIT, PROTECTION FIELD, OWNER FIELD 
OOCA 212 ; 
OOCA 213 ; ALL OTHER REGISTERS PRESERVED 
OOCA 214 ;3- 
OOCA 215 
OOCA 216 -ENABL LSB 
OOCA 217 GLOBAL: 
DO OOCA 218 MOVL @MMG$GL_GPTBASE[R3],R3 ;GLOBAL PAGE TABLE ENTRY 
OooD1 
19 00D2 219 BLSS 10$ ;BRANCH IF VALID 
00D4 220 IOC$PTETOPFN:: 
CA 00D4 221 BICL #AC<PTESM TYP 1 ! PTESM_TYPO '~ ;PTE TYPE BITS 
OODA 
OODB 222 PTE$SM_GPTX>,R3 ;AND GPTX/PFN 
EO OODB 223 BBS #PTESV_ TYP1,R3,20$ ;BRANCH IF BAD PTE FOR I/0 
E4 OODF 224 BBSC #PTE$V TYPO,R3,GLOBAL ;BRANCH IF GLOBAL PAGE 
05 GO0E3 225 10$: RSB 
QOE4 226 20$: BUG_ CHECK INVPTEFMT , FATAL ; INVALID PAGE TABLE ENTRY FORMAT 
OOE8 227 -DSABL LSB 
OOE8 228 


LOADMREG 
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51 15 


54 
09 
51 


00000000’ GF 


50 
54 
54 


54 


6441 


24 
38 


AS 
B4 


51 0800 C443 
00000400 8F 


54 


53 


15 


53 
81 


EE 


BE 
52 
80 
02 
BB 
54 
OB 
53 
52 
61 
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Load UBA map registers 


OOE8 
OOE8 
OOE8 
OOE8 
OOE8 
OOE8 
OOE8 
OOE8 
OOE8 
OOE8 
OOE8 
OOE8 
OOE8 
OOE8 
OOE8 
OOE8 
OOE8 
OOE8 
OOE8 
OOE8 
OOE8 
OOE8 
OOE8 
OOE8 
OOE8 
OOE8 
OOE8 
OOEA 
OOEE 
OOEF 
OOFS5 
OOF6 
OOFA 
OOFE 
0102 
0108 
O010E 
0110 
0112 
0115 
0117 
0119 
011C 
O11E 
0121 
0124 
0126 


230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 


258 


259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 


12-MAR-1982 17:12:47 DISKSVMSMASTER: [SYS.SRC]LOADMREG.M(1) 


.SBTTL Load UBA map registers 
2++ ; 
; ITOCSLOADUBAMAPN - Load UBA map registers 
; Functional description: 
; This routine is called to load the UNIBUS adapter map registers. 
; It differs from ITOC$LOADUBAMAPN in that it does not ogsain its 
- variant inputs from the UCB and CRB (which are normally synchronized 
; at fork IPL). Also, the byte offset and longword aligned 
: capabilities are not supported. 
; Inputs: 
; Ri = buffer address 
; R2 = number of map registers allocated 
; (last one should be extra one for wild transfer stopper) 
3 R3 = starting map register allocated 
: R4 = datapath number 
$ R5 = UCB address 
; Outputs: 
3 RO-R4 destroyed. - RS preserved. 
IOC$LOADUBAMAPN: : : 
PUSHL R4 ; Save datapath number 
EXTZV SA#VA$V_VPN,SA¥#VA$S VPN,R1,R1 ; Get buffer virtual page number 
MOVL GAMMG$GL_SPTBASE,R4 ; Get system page table addres 
MOVAL (R4)({R1],RO ; Get first PTE address 
MOVL UCB$L_CRB(RS) ,R4 ; Get CRB address 
MOVL @CRB$L_INTD+VEC$L_ADP(R4),R4 ; Get first UBA register address 
MOVAL UBA$L_MAP(R4)[R3],R1 ; Get address of first map register 
BISL3 #1@<UBAS$V_MAP_VALID-UBA$V_MAP_DPD>,- ; Get datapath number 
(SP)+,R4 ; and set map register valid bit 
DECL R2 ; Subtract last register from count 
20$: MOVL (RO)+,R3 ; Get next page table entry 
BLSS 30$ ; Br-if valid page 
BSBB IOCSPTETOPFEN ; Get PFN from invalid (global) page 
30$: INSV R4,#UBA$V_MAP_DPD, - ; Insert datapath and valid bit, 
#32-UBA$V_MAP_DPD,R3 ; clearing other PTE flags 
MOVL R3,(R1)+ ‘°; Load the map register 
SOBGTR R2,20$ ; Loop through all registers 
CLRL (R1) ; Invalidate last one to stop wild xfer 
RSB $ 


LOADMREG 
V03-002 


;RLRPDTADP 


; RLRPDTADP 
;RLRPDTADP 
; RLRPDTADP 
; RLRPDTADP 


; RLRPDTADP 
; RLRPDTADP 
; RLRPDTADP 
;RLRPDTADP 
;RLRPDTADP 
-9 


51 


50 


54 


54 


7E 


OOEO 


DO 
D2 
3C 


03 
03 


54 
0400 


51 
10 
8F 


52 O1FF C241 


52 


02 


F7 


AO 


50 


8F 
52 


51 
52 
28 


00 
OF 
60 


51 0800 C140 


50 


CC 
53 


AS 
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7D 


DD 


3C 
3C 


EF 


EQ 
88 
A8& 


78 


8EDO 
1E 


EF 


0127 
0127 
0127 
0127 
0127 
0127 
0127 
0127 
0127 
0127 
0127 
0127 
0127 
0127 
0127 
0127 
0127 
0127 
0127 
0127 
0127 
0127 
0127 
0127 
0127 
012A 
012A 
012A 
012E 
012E 
0132 
0136 
013A 
013C 
013D 
0140 
0140 


- 0143 


0146 
014B 
0151 
0155 
0156 
0156 
0159 
015D 
O015F 
O15F 
0161 
0162 
0164 
0164 
016A 
O16E 
0171 
0173 
0176 


276 
277 ;+ 
278 ; 
279 ; 
280 ; 
281 ; 
-? 4s 
282 ; 
283 ; 
284 ; 
285 ; 
286 ; 
287 ; 
288 ; 
289 ; 
290 ; 
291 ; 
292 ; 
293 ; 
294 ; 
295 ; 
296 


297 IOC$LUBAUDAMAP: : 


298 


309 10$: 


330 30$: 
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.-SBTTL LOAD UNIBUS ADAPTER MAP REGISTERS FOR UDA PORT 


IOC$LUBAUDAMAP ~ LOAD UNIBUS ADAPTER MAP REGISTERS FOR UDA PORT 


INPUTS: 


R4 => PDT. 
R5 => CDRP OF I/O REQUEST. 


IT IS ASSUMED THAT THE DATAPATH AND MAP REGISTERS HAVE BEEN PREVIOUSLY 
ASSIGNED. 


OUTPUTS: 


EACH MAP REGISTER IS LOADED WITH THE APPROPRIATE PAGE FRAME NUMBER 
MERGED WITH THE DATAPATH DESIGNATOR AND BYTE OFFSET BIT. ONE ADDITIONAL 
MAP REGISTER IS LOADED AS INVALID TO STOP THE TRANSFER IF A HARDWARE 
FAILURE SHOULD OCCUR. 


R3 IS PRESERVED ACROSS CALL. 


;LOAD UNIBUS ADAPTER MAP REGISTERS 


MOVQ R3,-(SP) ;SAVE REGISTERS 
ASSUME ADP$L_CSR EQ 0 
PUSHL  @PDT$L_ADP(R4) ; Push UBA CSR address on stack. 
MOVZWL CDRP$W_BOFF(RS5),R1 ; RI=BYTE OFFSET IN PAGE 
MOVZWL CDRP$W_BCNT(R5),R2 ; R2=TRANSFER BYTE COUNT 
MOVAB CDRP$L_UBARSRCE(R5),RO ; RO => MAPPING RESOURCE DESCRIPTOR 
EXTZV  #VEC$V_DATAPATH, - ; GET DATAPATH 
#VEC$S_DATAPATH, - ; NUMBER 
UBMD$B_DATAPATH(RQ) ,R4 
BLBC R1,10$ ;1F LBC WORD ALIGNED TRANSFER 
BISB #AX10,R4 ;SET BYTE OFFSET BIT 
BISW #AX400,R4 ;MERGE VALID WITH BYTE OFFSET AND DATAPATH 
MOVAB) = =AX1FF(R2)[R1],R2 ;CALCULATE HIGHEST RELATIVE BYTE AND ROUND 
ASHL #-9,R2,R2 ;CALCULATE NUMBER OF MAP REGISTERS TO LOAD 
POPL R1 ; Rl => UBA CSR. 
CMPB R2,UBMD$B_NUMREG(RO) ;ENOUGH MAP REGISTERS ASSIGNED? 
BGEQU 40$ ;1F GEQU NO 
EXTZV  #VEC$V_MAPREG, - ; GET STARTING REGISTER 
#VEC$S_MAPREG, - 
UBMD$W_MAPREG(RO) ,RO 
MOVAL  UBA$L_MAP(R1)[RO],R1 ;GET ADDRESS OF FIRST MAP REGISTER TO LOAD 
MOVL CDRP$L_SVAPTE(R5) ,RO ;GET ADDRESS OF PAGE TABLE 
MOVL (RO)+,R3 ;GET NEXT PAGE TABLE ENTRY 
BLSS 30$ ;I1F LSS VALID PAGE TABLE ENTRY 
BSBW IOC$PTETOPFN ;GET PFN FROM INVALID PTE 
INSV R4,#21,#11,R3 ; INSERT VALID, BYTE OFFSET, AND DATAPATH 


LOADMREG 


V03-002 
53 
81 53 
ED 52 
61 
53 BE 


- LOAD MBA AND UBA MAP REGISTERS 3-JUN-1984 11 
LOAD UNIBUS ADAPTER MAP REGISTERS FOR UD 12-MAR-1982 17 


O17A 
017B 
O17E 
0181 
0183 
0186 
0187 
018B 


40$: 


MOVL R3,(R1)+ 
SOBGTR R2,20$ 
CLRL (R1) 
MOVQ (SP)+,R3 
RSB 


BUG_CHECK UBMAPEXCED, FATAL 
.END 
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;LOAD UBA MAP REGISTER 
sANY MORE TO LOAD? 
;LOAD INVALID MAP ENTRY 
;RESTORE REGISTERS 


; UNIBUS MAP REGISTER ALLOCATION EXCEEDED 


LOADMREG ~ LOAD MBA AND UBA MAP REGISTERS 3-JUN-1984 11:45:48 VAX-11 Macro V0O3-01 Page 10 
Symbol table 12-MAR-1982 17:12:47 DISK$VMSMASTER: [SYS.SRC]LOADMREG.M(1) 
ADP$L_CSR = 90000000 
BUG$_INVPTEFMT RAE KE 02 
BUG$_UBMAPEXCED REE KK KE 02 
CDRP$L_SVAPTE = FPFFFFCC 
CORP$L_UBARSRCE = 0000003C 
CDORP$W_BCNT = FFFFFFD2 
CDRP$W_BOFF = FFFFFFDO 
CRB$L_INTD = 00000024 
GLOBAL OOOO00CA R 02 
IOC$LOADMBAMAP 00000000 RG 02 
IOC$LOADUBAMAP 00000061 RG 02 
IOCGLOADUBAMAPA OO00004A RG 02 
IOCS$LOADUBAMAPN OOOOOOEB RG 02 
IOCS$LUBAUDAMAP 00000127 RG 02 
IOCS$PTETOPFN O000000D4 RG 02 
MBA$L_BCR = 00000010 
MBASL_MAP = 00000800 
MBA$L_VAR = QoOo0o000C 
MMG$GL_GPTBASE KK RR EK 02 
MMGS$GL_SPTBASE KK KR RE 02 
PDT$L_ADP = OQOOOQ00ED 
PTESM_GPTX = OOSFFFFF 
PTESM_TYPO = 00400000 
PTE$SM_TYP1, = 04000000 
PTE$V_TYPO = 00000016 
PTE$V_TYP1 = O0000001A 
UBA$L_MAP = 00000800 
UBA$V_MAP_DPD = 00000015 
UBASV_MAP_VALID = QOOOO0I1F 
UBMD$B_DATAPATH = 00000003 
UBMD$B_NUMREG = 00000002 
UBMD$W_MAPREG = 00000000 
UCB$L_CRB = 00000024 
UCB$L_SVAPTE = 00000078 
UCB$W_BCNT = OOOOOO7E 
UCB$W_BOFF = Q0000007C 
VA$S_VPN = 00000015 
VA$V_VPN = 00000009 
VEC$B_DATAPATH = 00000013 
VEC$B_NUMREG = 00000012 
VEC$L_ADP = 00000014 
VEC$S_DATAPATH = 00000005 
VEC$S_MAPREG = QOOOOOOF 
VEC$V_DATAPATH = 00000000 
VECS$V_LWAE = 00000005 
VEC$V_MAPREG = 00000000 
VECSW_MAPREG = 00000010 
+o eee -  - + 
! Psect synopsis ! 
Ss leeleaaeeiehenienieatentententententntertertaes + 
_PSECT name Allocation PSECT No. Attributes 
ABS oooo0000 QO.) OO ( O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS. oooo00000§ § ( O.) O1(¢( 1.) #\NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
WIONONPAGED 00000188 ( 395.) O02 ( 2.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
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VAX-11 Macro Run Statistics 12-MAR-1982 17:12:47 
+--------------- + + 
! Performance indicators ! 
+------------------~+----- + 
Phase Page faults CPU Time Elapsed Time 
Initialization 9 00:00:00.08 00:00:00.77 
Command processing 75 00:00:00.61 00:00:06.93 
Pass 1 285 00:00:09.21 - 00:00:38.62 
Symbol table sort 0 00:00:01.35 00:00:06.01 
Pass 2 67 00:00:01.95 00:00:07.61 
Symbol table output 5 00:00:00.06 00:00:00.06 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 8) 00:00:00.00 00:00:00.00 
Assembler run totals 446 00:00:13.29 00:01:00.03 


The working set limit was 1050 pages. 
48842 bytes (96 pages) of virtual memory were used to buffer the intermediate code. 


There were 50 pages of symbol table space allocated to hold 892 non-local and 16 local symbols. 


322 source lines were read in Pass 1, producing 14 object records in Pass 2. 
20 pages of virtual memory were used to define 19 macros. 


Ho nr rrr re + 
! Macro library statistics ! 
to------ + 

Macro library name Macros defined 

_$255$DUA28:(SYS.OBJJLIB.MLB; 1 12 

_$255$DUA28: [SYSLIB] STARLET .MLB; 2 4 

TOTALS (all libraries) 16 


991 GETS were required to define 16 macros. 
There were no errors, warnings or information messages. 


MACRO/LIS=LIS$: LOADMREG/OBJ=OBJ$: LOADMREG MSRC$:LOADMREG/UPDATE=(ENH$:LOADMREG)+EXECML$/LIB 


VAX-11 Macro VO03-01 Page 11 
DISK$SVMSMASTER: [SYS.SRC]LOADMREG.M(1) 


lOCIOPOST 


IOCIOPOST 

Table of contents 
(1) 43 
(2) 793 
(3) 115 
(4) 315 
(5) 644. 
(6) 734 
(7) 856 
(8) 948 
(9) 1036. 
(10) 1037 
(11) 1054 


- I/O COMPLETION POSTING 


HISTORY ; DETAILED 
DECLARATIONS 

I/Q COMPLETION POSTING 

PAGIO - PAGE I/0 COMPLETION 

VIRTUAL (OR LOGICAL) I/O COMPLETION 
QUEUE NEXT SEGMENT 

BUFFERED READ COMPLETION AST ROUTINE 
DIRECT I/0 COMPLETION AST ROUTINE 
ERASE I/O HELPER ROUTINES 

MOVE DATA TO USER BUFFER 

UNLOCK AREAS IN IRPE‘S 


3-JUN-1984 11:26:47 


VAX-11 


Macro V03-01 


Page 


0 
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V03-024 24-APR-1982 15:46:59 DISK$VMSMASTER: [SYS.SRC]IOCIOPOST. (1) 
0000 1 -TITLE IOCIOPOST - I/O COMPLETION POSTING 

;ACG0422 0000 1 -IDENT ‘V03-024’ 

- 0000 3 
0000 4; 
0000 Bg RRR AR OR IR ROR CRC TORR ROR OR RE 
0000 6 ;* * 
0000 7 ;* COPYRIGHT (c) 1978, 1980, 1982 BY * 
0000 8 ;* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
0000 9 ;* ALL RIGHTS RESERVED. * 
000Q 10 ;* * 
0000 11 =#3;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0000 12 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0000 13 ;* %INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER, * 
0000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS'~ HEREBY * 
0000 16 ;* TRANSFERRED. * 
0000 17 =; * * 
0000 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AND SHOULD NOT BE. CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
0000 20 ;* CORPORATION. * 
0000 21). 3% * 
0000 22 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR’ RELIABILITY OF ITS * 
0000 23 ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 24 ;* * 
0000 25° FO * 
0000 QE RR ROR RRO GGG GGG GR OGG RR AOR GR GK 
0000 27 
0000 28 3++ 
0000 29 ; FACILITY: EXECUTIVE, I/0 SYSTEM 
0000 30 ; 
0000 31; ABSTRACT: 
0000 32 ; ITOCIOPOST IMPLEMENTS THE DEVICE INDEPENDENT COMPLETION PROCESSING FOR 
0000 33 =; I/O PACKETS. IT IS INVOKED BY QUEUEING THE PACKET ON THE I/0 POST QUEUE 
0000 34 ; AND TRIGGERING THE IPL$ _IOPOST SOFTWARE INTERRUPT. SOME OF THE IOPOST 
0000 35 ; OPERATIONS SUCH AS SETTING EVENT FLAGS, UNLOCKING BUFFER PAGES, 
0000 36 ; RELEASING BUFFERS AND PAGING I/O COMPLETION ARE PERFORMED IN THE IOPOST 
0000 37 ; INTERRUPT SERVICE ROUTINE, WHILE OTHER OPERATIONS THAT REQUIRE ACCESS 
0000 38 ; TO PROCESS ADDRESS SPACE ARE PERFORMED BY SENDING A SPECIAL KERNEL AST. 
0000 39 ; 
0000 40 ; ENVIRONMENT: MODE = KERNEL, RESIDENT 
0000 41 =; 
0000 42 ;-- 
0000 43 -SBTTL HISTORY ; DETAILED 
0000 44 ; 
0000 45 ; AUTHOR: R. HUSTVEDT, CREATION DATE: 26-AUG-76 
0000 46 ; 
0000 47 ; MODIFIED BY: 
0000 48 ; 

;ACG0422 0000 eo) ss V03-024 ACG0422 Andrew C. Goldstein, 1-May-1984 19:35 

35ACG0422 : 0000 2s Fix use of RO in ACGO0421 

;ACG0422 0000 Pe ba 

3;ACG0421 0000 4; V03-023 ACGO421_ Andrew C. Goldstein, 20-Apr-1984 14:19 

;ACG0421 0000 GB» ds Fix segment byte count limiting in erase QIO’s 

;ACG0421 0000 .6 ; 

; EMDO076 0000 ache V03-022 EMDO076 Ellen M. Dusseault 05-Apr-1984 

; EMD0076 0000 .8 ; Modify IOPOST to check for a valid status bit for 

;EMD0076 0000 EO. 8 encryption. If valid, deallocate nonpaged pool buffer 
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V03-024 HISTORY ; DETAILED 24-APR-1982 15:46:59 DISK$VMSMASTER: [SYS.SRC]JIOCIOPOST. (1) 
; EMDO076 0000 -10 ; which contains the encryption key. 

; EMD0O076 0000 .11°; 

3;SSA0021 0000 -12 =; V03-021 SSA0021 Stan Amway 22-Mar-1984 

3;SSA0021 0000 2.13 ~=; Decrement device queue length in UCB. 

;SSA0021 0000 .14 =; 

sWMCO020 0000 15 =; V03-020 wMC0020 Wayne Cardoza 07-Mar-1984 

;WMCO020 0000 -16 =; Move POSTEF to fork context to regain optimization which 

; WMCO020 0000 -17 =; avoids reexecution of WAITFR. , 

; WMCO0020 0000 -18 ; ; 

3; WMCO019 0000 19°; V0O3-019 WMCO0019 Wayne Cardoza 28-Dec-1983 

;WMCO0019 0000 .20 ; Erase QIOs can be physical, logical, or virtual. 

;WMCO0019 0000 e2l 

;CDS0003 0000 eed. % V03-018 CDSO0003 Christian D. Saether 14-Dec-1983 

;CDSO003 0000 .23 ; Add IOC$BUFPOST entry point. This is used to perform 
;CDSO0003 0000 24 ; the iopost level part of i/o posting to be executed as 
;CDS0003 0000 .25 ; a subroutine call directly and avoid the iopost software 
;CDSO003 0000 .26 ; interrupt entirely. The F11BXQP is the initial user 
;CDSO003 0000 227% of this feature. 

;CDSO003 0000 .28 ; 

;ROW49597C 0000 .29 ; V03-017 ROW49597C Ralph O. Weber 21-SEP-1983 
;ROW49597C 0000 .30 ; Change PAGEIO OR_SWAPIO patch (from ROW49597B and ROQW49597) to 
;ROW49597C 0000 odd, *3 zero bytes transfered count in the IOSB when status is not 
;ROW49597C 0000 .32 =; successful and bytes transfered is greater than or equal to 
;ROW49597C 0000 .33 ; bytes requested. 

;ROW49597C 0000 .34 ; 

;ROWO218 0000 .35 ; V03-016 ROWO218 Ralph O. Weber 7-SEP-1983 

;ROWO218 0000 .36 ; Change maximum byte count, UCB$L_MAXBCNT, tests to be 
;ROWO218 0000 .37 ; unsigned. 

;ROWO218 0000 .38 ; 

; ADE9005 0000 .39 ; V03-015 ADE9005 Alan D. Eldridge 30-May-1983 

; ADE9005 0000 -40 ; Changed BSBW to JSB for calls to IOC$MAPVBLK and IOC$CVTLOGPHY. 
; ADE9005 0000 -41 =; 

3;$TJ3100 0000 -42 ; V03-014 STJ3100 Steven T. Jeffreys, 03-May-1983 

;STJ3100 0000 .43 ; -Added local subroutine CHECK_ERASE. 

;S$TJ3100 0000 .44 ; -Do not update IRP$L_SVAPTE for ALL erase I/0’s. This 
;$TJ3100 0000 .45 ; is an extention of STJ3085. 

;STJ3100 oooo0 .46 ; 

;STJ3085 0000 47 3; V03-013 STJ3085 Steven T. Jeffreys, 13-Apr-1983 

;STJ3085 0000 -48 ; -Do not update IRP$L SVAPTE for erase I/0 segmented 

;STJ3085 0000 49 ; requests if using the specail erase PPT. 

sSTJ3085 0000 .50 ; -After segmentation complete, resore original SVAPTE 
;STJ3085 0000 Jb %: address to IRP$L_SVAPTE. 

3;STJ3085 0000 ~52 ; 

;ROW49597B 0000 .53 ; V03-012 ROW49597B Ralph O. Weber 9-APR-1983 
;ROW49597B 0000 .54 ; Change PAGEIO OR_SWAPIO from ROW49597 to zero bytes 
;ROW49597B 0000 .55 ; transfered count when status is not successful and bytes 
;ROW49597B 0000 :56"s transfered is greater than or equal to bytes requested. 
;ROW49597B 0000 ~or 4 

;RLRMXBCNTC 0000 .58 ; VO3-011 RLRMXBCNTc Robert L. Rappaport 28-Mar-1983 

; RLRMXBCNTC 0000 59> 3 Verify IRP$L_DIAGBUF is non-zero before assuming that it 
;RLRMXBCNTC : 0000 .60 ; contains the original value of IRP$L SVAPTE in VIRTUAL LOGIO. 
; RLRMXBCNTC 0000 .61 ; 7 7 

;R LRMXBCNTC 0000 .62 ; VO03-010 RLRMXBCNTb Robert L. Rappaport 22-Mar-1983 
;RLRMXBCNTC 0000 .63 ; Check for file oriented device before going to VIRTUAL _LOGIO. 
;R LRMXBCNTC j 0000 .64 ; 

;RLRMXBCNTA 0000 .65 ; VO03-009 RLRMXBCNTa Robert L. Rappaport 22-Mar-1983 

; RLRMXBCNTA 0000 .66 ; 


CLRL the byte count in the I/O status before queueing 


IOCIOPOST 
V03-024 


;RLRMXBCNTA 
; RLRMXBCNTA 
s RLRMXBCNT 
; RLRMXBCNT 
; RLRMXBCNT 
; RLRMXBCNT 
;ROW49597 
:ROW49597 
;ROW49597 
;ROW49597 
;ROW49597 
; ROW49597 
;ROW49597 
;ROW49597 
;ROW49597 
; ROW49597 
;ROW49597 
;STJ3049 
;STJ3049 
;STJ3049 
;CDOS0002 
;CDSO002 
;CDSO0002 
;CDSO002 
;CDSO001 
;CDSO0001 
;CDS0001 

; KDMO002 

; KOMO002 
;KDMO002 
;LUK45299 
;LUK45299 
;LUK45299 
-27 


- 1/0 COMPLETION POSTING 
DETAILED 


HISTORY 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


.67 
. 68 
.69 
.70 
71 
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* * 


V03-008 


V03-007 


V03-006 


V03-005 


V03-004 


V03-003 


V03-002 
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an IRP back to the ACP in VIRTUAL _LOGIO. 


RLRMXBCNT Robert L. Rappaport 11-Mar-1983 
Allow for segmentation of Logical I/0 (and Virtual) 
based on the UCB$L MAXBCNT field. 


ROW49597 Ralph O. Weber 26-JAN-1983 

Change both VIRTUAL and PAGETO OR_SWAPIO to guarantee an error 
status in IRP$L_IOST1 whenever the bytes transfered is less 
than the bytes requested. For V3.x, the error will be 
SS$_CTRLERR. After that, it will be SS$ _INCSEGTRA. The check 
and error status are required to detect and gracefully 
revcover from the instance where a driver returns success 
status but bytes transfered is less than bytes requested. 

The segmented transfer logic goes berserk when this happens 
and eventually crashes the system. 


STJ3049 Steven T. Jeffreys 06-Jan-1983 
Add support for the erase gqio. 
cDSO0002 ' C Saether 12-Oct-1982 


Fix bug where RS was not preserved when queuing 
packet to xqp. 


CcDSOO001 C Saether 18-Jul-1982 
Changes to accomodate XQP mechanism. 

KDMO002 Kathleen'D. Morse 28-Jun-1982 
Added $DEVDEF and $SSDEF. 

LJUK45299 Lawrence J. Kenah 2-Jun-1982 


Fix deaccess-pending-on-spooled-device logic. 


TOCIOPOST 
V03-024 


;STJ3049 
; KDMO002 
;STIU3049 


; KOMO002 


- 1/0 COMPLETION POSTING 


DECLARATIONS 
0000 79 /SBTTL 
0000 BO ; 

0000 81 ; INCLUDE FILES: 
0000 82 ; 

0000 83 $ACBDEF 
0000 84 $SAQBDEF 
0000 85 $CADEF 
0000 86 $CCBDEF 
0000 87 $CXBDEF 
0000 . $DCDEF 
0000 2 $DEVDEF 
0000 13 $IODEF 
0000 88 $IPLDEF 
0000 89 $IRPDEF 
0000 90 $IRPEDEF 
0000 91 $JIBDEF 
0000 92 $PCBDEF 
0000 93 $PFNDEF 
0000 94 $PHDDEF 
0000 95 $PRDEF 
0000 96 $PRIDEF 
0000 97 $PTEDEF 
0000 98 $RSNDEF 
0000 be $SSDEF 
0000 99 $SUCBDEF 
0000 #8100 $VADEF 
0000 ~=—101 $VCBDEF 
0000 = 102 $WCBDEF 
0000 38103 $WQHDEF 
0000 104 

0000 105 ; 

0000 106 ; OWN STORAGE: 
0000 107 ; 
00000000 ~=108 .PSECT 

0000 109 PRITBL: 
01 0000 110 .BYTE 
03 0001 111 -BYTE 
01 0002 112 - .BYTE 
04 0003 113 .BYTE 


3-JUN- 1984 
24-APR- 1982 


DECLARATIONS 


$SAEXENONPAGED, LONG 


PRI$_IOCOM 
PRI$ TOCOM 
PRI$_IOCOM 
PRI¢ TICOM 


11 
15 
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AST CONTROL BLOCK DEFINITIONS 
DEFINE AQB OFFSETS 
CONDITIONAL ASSEMBLY PARAMETERS 
CCB DEFINITIONS 

DEFINE CXB OFFSETS 

DEVICE TYPE CODES 

DEVICE TYPE DEFINITIONS 

T/O REQUEST CODES 

IPL DEFINITIONS 

IRP DEFINITIONS 

IRPE DEFINITIONS 

JIB DEFINITIONS 

PCB DEFINITIONS 

‘PFN DATA BASE DEFINITIONS 
PROCESS HEADER DEFINITIONS 
PROCESSOR REGISTER DEFINITIONS 
PRIORITY INCREMENT DEFS 

PAGE TABLE ENTRY DEFINITIONS 
DEFINE RESOURCE WAIT NUMBERS 
DEFINE SYSTEM STATUS CODES 
DEFINE UCB OFFSETS 

DEFINE VIRTUAL ADDRESS FIELDS 
DEFINE VCB OFFSETS 

DEFINE WCB OFFSETS 

WATT QUEUE HEADER DEFINITIONS 


we we we we ee we we we ee we et we wh ee we we ee ee we we we wt we we we 


TABLE OF PRIORITY INCR CLASSES 
O => DIRECT WRITE 

1 => BUFFERED WRITE 

2 => DIRECT READ 

3 => BUFFERED READ 


we we we we we 


IOCIOPOST 
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; RLRMXBCNT 
;SSA0021 
3SSA0021 
;SSA0021 
;SSA0021 
;SSA0021 
3;SSA0021 
-4 


; EMD0076 
; EMD0076 
; EMD0076 


54 


55 


7E 54 
7E 52 

7E 50 
0000’DF 

16 

50 BE 

52 8E 

54 ®BE 
038B 

61 

E8 

6A AO 

18 

51 OC AS 
FI 

51 51 
0000’DF41 
50 1C AS 
6A AO 

E3 


~ I/O COMPLETION POSTING 
1/0 COMPLETION POSTING 


70 


7D 
OF 
1c 
7D 
70 
7D 
02 


31 


11 


DO 
19 


3C 
DO 
DO 
B7 
19 


0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 


0004 


0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0007 
QOOOA 
000D 
0012 
0014 
0017 
OO1A 
001D 
OO1E 
OO1E 
0021 
0021 
0023 
0025 
0025 
0028 
002A 
002A 
002E 
0030 
0030 
0033 
0039 
003D 
0040 


115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 


NOOUBWN — 


161 
162 
163 
164 
165 


.SBTTL 


s++ 


QUEUE. 


NONE 


NONE 
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- ENABL 


TOC$IOPOST:: 


MOVQ 
MOVQ 
MOVQ 
IOPOST: REMQUE 

BVC 

MOVQ 
MOVQ 
MOVQ 
REI 


5$: BRW 


7$: JSB 
BRB 


8: CLRW 
BRB 


10$: MOVL 
BLSS 


MOVZWL 
MOVL 
MOVL 
DECW 
BLSS 
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I/O COMPLETION POSTING 


FUNCTIONAL DESCRIPTION: 


IOC$IOPOST IS INITIATED BY TRIGGERING AN IPL$ IOPOST SOFTWARE 
INTERRUPT AFTER PLACING A COMPLETED I/O PACKET IN THE I0OPOST 


IOC$IOPOST PERFORMS ALL APPROPRIATE COMPLETION ACTIVITY 


CALLING SEQUENCE: 
SOFTINT #IPL$_ IOPOST 


INPUT PARAMETERS: 


IMPLICIT INPUTS: 
TOC$GL_PSFL - IOPOSTING QUEUE 


OUTPUT PARAMETERS: 


LSB 


R4,-(SP) 

R2,-(SP) 

RO,-(SP) 
@WAIOC$GL_PSFL,R5S 
10$ 

(SP)+,RO 

(SP)+,R2 

(SP)+,R4 


VIRTUAL_LOGIO 


(R1) 
IOPOST 


UCB$W_QLEN(RO) 
11 


IRP$L_PID(R5),R1 
7$ 


R1,R1 
@WASCHS$GL_PCBVEC([R1],R4 
IRP$L_UCB(R5) ,RO 
UCB$W_QLEN(RO) 

8S 


we we we we we we ws we we we 


we we we we we ee ee we 


REQUIRED FOR THE PACKET EITHER DIRECTLY OR BY QUEUEING KERNEL 
ASTS TO CONCLUDE PROCESSING IN THE CONTEXT OF THE PROCESS 
WHEN REQUIRED. 


1/0 POSTING INTERRUPT 
SAVE 

NORMAL 

REGISTERS 

GET HEAD OF POST QUEUE 
QUEUE NOT YET EMPTY 
RESTORE 

REGISTERS 

AND EXIT | 

IF QUEUE EMPTY 


PROCESS VIRTUAL (OR LOGICAL) I/O COMPLETIO 


CALL END ACTION ROUTINE 


Device queue length went negative 
Reset queue length and continue 


GET PID/END ACTION ADDRESS 

BR IF END ACTION ADDRESS 

(SYSTEM SPACE ADDRESSES ARE NEGATIVE) 
GET PROCESS INDEX 

AND TRANSLATE TO PCB ADDRESS 

RO => UCB. (Presets UCB for DIO path) 
Decrement device queue length 

Length went negative, so go adjust 


IOCIOPOST 
V03-024 

; EMD0076 07 2A AS OF 

; EMD0076 50 5C AS 

; EMD0076 FFB2 

; EMD0076 03 2A AS 00 

; EMDO076 00cé6 

; EMDO0076 3E A4 

-3 53. 2C AS 

2A AS 44 BF 

5D 

53 

42 

51 32 A5 

52 30 AS 

;SSA0021 08 

;SSA0021 1C 2A A5 

;SSA0021 OE 

;SSA0021 17 38 AO 

;SSA0021 AO 38 AS 

-2 46 AS 

07 

3A AS 

44 AS 

05 

3A AS 

44 AS 

8D 

51 OFF C142 

51. F7 8F 

51 

;STJ3100 OA 

;STJ3100 06 20 AS 

;STJ3100 O66C 

;STJ3100 0B 50 

;STJ3100 FF56 

1 0B 

03 2A AS 

06B3 

FF4B’ 


- I/O COMPLETION POSTING 


I/O COMPLETION POSTING 


93 
12 


E1 
EQ 
BS 


13 
D1 


Bl 


12 
78 
El 
30 


30 
E1 


30 


30 


0042 
0047 
0048 
004E 
0053 
0056 
0059 
005D 
0050 
005D 
005D 
0062 
0064 
0064 
0064 
0064 
0064 
0064 
0066 
0068 
006C 
0070 
0072 
0075 
0077 
OO7A 
OO7E 
0081 
0083 
0086 
0088 
0088 
OO8A 
008A 
008D 
OO8F 
OO8F 
OO8F 
0091 
0097 
009B 
009c 
OO09E 
O0A1 
O0A4 
OOA7 
OOAA 
OOAC 
OOAF 
00B2 
00B2 
00B2 
00B2 
00B2 
00B5 
00B5 
00B5 


194 
195 
196 
197 
198 
199 


ORWN 


201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 


11$: 


12$: 


13$: 


BBC 
MOVL 
BSBW 
BBC 
BRW 
INCW 
MOVL 


ASSUME 
ASSUME 
BITB 
BNEQ 
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#IRP$V_KEY,IRPSW_STS(R5),12$ ; set, buffer alloc for encryption 


IRP$L_KEYDESC(R5), RO ; rO contains address of alloc buffer 
EXE$SDEANONPAGED ; deallocate this buffer 

#IRP$V_ BUFIO,IRP$W_STS(R5),13$ ; IF CLEAR, DIRECT I/0 

BUFIO ; BUFFERED I/0 

PCB$W_DIOCNT(R4) ; UPDATE DIRECT 1/0 COUNT 
IRP$L_SVAPTE(RS) ,R3 ; GET ADDRESS OF FIRST PTE 


IRP$V_PAGIO LE 7. 
IRP$V_SWAPIO LE 7 

#<IRP$M_PAGIO ! IRP$M_SWAPIO>,IRP$SW_STS(R5) ; PAGIO OR SWAPIO? 
PAGIO_OR_SWAPIO 


; DIRECT I/O COMPLETION 


DIRIO: 


14$: 


16$: 


UNLOCK: 


17$: 
18$: 


19$: 


TSTL 
BEQL 
MOVL 
MOVZWL 
BBS 


BBC 
BLBC 
TSTW 
BEQL 
CMPL 
BRB 


CMPW 


BNEQ 
MOVAB 
ASHL 
BBC 
BSBW 
BLBS 
BSBW 
BBC 


BSBW 


.IF DF 
BSBW 


ENDC 


R3 ; PTE ADDRESS VALID? 

18$ ; IF EQL NO PAGES TO UNLOCK 
IRP$L_BCNT(R5S),R1 ; GET REQUESTED TRANSFER BYTE COUNT 
IRP$wW_BOFF(RS5),R2 ; GET BYTE OFFSET IN PAGE 
#IRP$V_PHYSIO,- , 

IRP$W_STS(R5) ,UNLOCK ; BRANCH IF PHYSICAL I/O 

#DEVS$V_FOD,~- If NOT file oriented, go to UNLOCK. 
UCB$L_DEVCHAR(RO) , UNLOCK (RO preloaded in common DIO/BIO path) 
IRP$L_IOST1(RS) ,5$ BRANCH IF ERROR IN VIRT. OR LOG. REQUEST 
IRP$L_OBCNT+2(R5) WAS ORIGINAL COUNT > 64K? 

14$ EQuL IMPLIES NO 

IRP$L_IOST1+2(R5),- LONGWORD COMPARE FOR > 64K OBCNT 
IRP$L_OBCNT(R5) IF COMPLETED ORIGINAL BYTE COUNT 

THEN NO SPECIAL VIRTUAL PROCESSING 


Or Td 


16$ BRANCH AROUND TO COMMON ’BNEQ’ 
IRP$L_IOST1+2(R5),- ; *NOTE ‘CMPW’ DUE TO CODE PATH FOR <64K BCN 
IRP$L_OBCNT (RS) ; IF COMPLETED ORIGINAL. BYTE COUNT 

; THEN NO SPECIAL VIRTUAL PROCESSING 
5$ ; OTHERWISE DO THE SEGMENTED COMPLETION 
511(R1)[R2],R1 ; COMBINE OFFSET AND COUNT AND ROUND 
#-VA$S BYTE,R1,R1 ; CONVERT TO NUMBER OF PAGES 
#1I0$V_ERASE,- ; BRANCH IF DEFINITELY NOT AN ERASE 


IRP$W_FUNC(R5),17$ 


CHECK_ERASE IS THIS AN ERASE FUNCTION? 


we we we ee 


RO,19$ BRANCH IF IT IS AN ERASE 
MMG$UNLOCK UNLOCK PAGES 

#IRP$V_EXTEND,~— 

IRP$W_STS(R5),19$ ; BRANCH IF NO IRPE’S ATTACHED 
UNLOCK_MORE ; UNLOCK AREAS DESCRIBED IN IRPE’S 


; REFERENCE LABEL 
CA$_MEASURE_IOT 


PMS$SEND_RQ ; INSERT END OF I/O REQUEST MESSAGE 


ITOCIOPOST 
V03-024 


;CDSO0003 


;CDSO003 
;CDSO003 
;WMCO020 
;WMC0020 
;WMC0020 
=2 


;ROW49597 

;ROW495978B 
;ROW49597B 
;ROW49597B 
;ROW49597B 
;ROW49597B 
;ROW49597B 


;ROW49597B 
;ROW49597B 
;ROW49597B 
;ROW49597B 
;ROW49597B 
;ROW49597C 
;ROW49597 

;ROW49597 


;ROW49597 
-18 


51 


0648 ’CF 
18 AS 
OO9A 


O34A 


51 3A ADS 
12 38 AS 
44 AS 51 
32 AS 51 
2234 8F 

38 AS 


32 AS 51 


40 A5 


53 4C A5 
2C AS 53 


FEFO’ 


- 1/0 COMPLETION POSTING 


I/O COMPLETION 


9E 
31 


31 


DO 


DO 
DO 


30 


OOBS 
OOB9 
OOBB 
OOBE 
OOBE 
OOBE 
00C1 
00C1 
00C1 
00C1 
00Cc1 
00C1 
00C1 
00C1 
00C1 
00C1 
ooc! 
00C1 
00C1 
00C1 
00C1 


00C1 


00C5 
00cg 
oocD 
OOCF 
00D3 
00D5 
0009 
OODB 
0ODB 
00DB 
OODF 
OOE1 
OOE3 
OOE6 
OOEA 
OOEE 
OOEF 
OOEF 
OOF3 
OOF7 
OOFA 
OOFC 
OOFE 
0100 
0100 
0100 
0100 
0100 
0103 
0105 
0109 
010D 
010D 
010D 
010D 


263 


3-JUN-1984 


POSTING 24-APR-~1982 15:46:59 
MOVAB = WADIRPOST,ACB$L_KAST(R5) 
BRW 405 
BRW_QNXTSEG: 
BRW QNXTSEG 
: PAGE 1/0 OR SWAP 1/0 COMPLETION 
PAGIO_OR_SWAPIO: 
MOVL IRP$L_IOST1+2(R5), R1 
BLBC IRP$L_IOST1(R5), 21$ 
CMPL R1, .IRP$L_OBCNT(R5) 
BEQL 265 
CMPL R1, IRP$L_BCNT(RS5) 
BEQL 234 
MOVW #SS$_INCSEGTRA, 
IRP$L_IOST1(R5) 
21$: CMPL R1, IRP$L_BCNT(RS5) 
BLSSU 23 
CLRL RI 
CLRL IRP$L_IOST1+2(R5) 
23$: ADDL R1, IRP$L_ABCNT(R5) 
EXTZV #VASV_VPN, - 
#<32-VA$V_VPN>, R1, R1 
ADDL R1,IRP$L_SEGVBN(R5) 
BLBC IRP$L_IOST1(R5),24$ 
SUBL3 IRP$L_ABCNT(R5),- 
IRP$L_OBCNT(R5) ,- 
IRP$L_BCNT(R5) 
BNEQ BRW_QNXTSEG 
; LAST SEGMENT COMPLETED OR ERROR 
24$: 
MOVL IRP$L_ABCNT(R5) ,~- 
IRP$L_IOST1+2(R5) 
MOVL IRP$L_DIAGBUF(RS5) ,R3 
MOVL R3,IRP$L_SVAPTE(RS5) 
26$: 
IF DF CAS _MEASURE_IOT 
BSBW PMS$END_ RQ 


11:26:47 


’ 


Or SS ee ee Ts ee try 


wh we we we we we wk we 


VAX-11 Macro V03-01 Page 7 
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SET SPECIAL KERNEL AST ADDRESS 


GO DO THE NEXT VIRTUAL SEGMENT 


HERE WE ASSUME DISK I/O FOR PAGING 
AND SWAPPING AND WE FURTHER RELY 

ON THE FACT THAT ALL DISK DRIVERS 
TRADITIONALLY RETURN ZERO IN THE 2ND 
LONGWORD OF THE I/0 STATUS BLOCK FOR 
DATA TRANSFER OPERATIONS. THEREFORE 
THIS IS COMPATIBLE WITH DISK CLASS 
DRIVER WHICH GROWS THE # OF BYTES 
TRANSFERRED FIELD IN THE IOSB TO A 
FULL LONGWORD. 

Get bytes transfered. 

Branch if transfer not successful. 

If completed whole transfer, skip 

all this segmenting junk. 

Bytes transfered = bytes requested? 
Branch if equal. 

Else, change success status 


to error status. 

For the error cases: 

Bytes transfered < bytes requested? 
Branch if less than. 

Else, assume no bytes transfered. 
Clear bytes transfered in IRP too. 
Update accumulated byte count. 
Convert bytes transfered to 


pages transfered. 
NEXT STARTING VBN (OR ERROR VBN) 
BRANCH IF ERROR 


CALCULATE REMAINING BYTE 
COUNT TO BE TRANSFERRED 
BRANCH IF ANOTHER SEGMENT TO DO 


SET BYTES TRANSFERRED 
GET SAVED SVAPTE 
AND PUT IT BACK 


INSERT END OF 1/0 REQUEST MESSAGE 


IOCIOPOST 
V03-024 


;CDSO003 
;CDSO003 
;CDSO003 
3; CDSO003 
;CDSO003 
;CDSO003 
;CDSO0003 
;CDSO003 
;CDSO003 
;CDSO003 
;CDSO003 
;CDSO003 
;CDSO0003 
;CDSO003 
;CDSO003 
;CDSO003 
;CDSO003 
;CDSO003 
;CDSO003 
;CDSO003 
;CDSO003 
;CDSO003 
;CDSO0003 
;CDSO003 
;CDSO003 
;CDSO003 
;CDSO0003 
;CDSO0003 
;CDSO003 
;CDSO003 
-4 


76 2A A5 02 


18 AS 


14 AS 
3c 


00000158’ EF 


03 2A 


50 


3A AA 
A5 oc 
SE A4 


FEDO’ 


0080 C4 


- 1/0 COMPLETION POSTING 3-JUN-1984 11:26:47 VAX-11 Macro V03-01 Page 8 


I/O COMPLETION POSTING 24-APR-1982 15:46:59 DISK$VMSMASTER: [SYS.SRC]IOCIOPOST. (3) 
0110 264 
0110 265 . ENDC 
0110 266 

EO 0110 267 BBS #IRP$V_PAGIO,IRP$W_STS(RS5),PAGIO ; BRANCH IF PAGE I/0 
0115 268 
0115 269 ; 
0115 270 ; SWAP I/0 COMPLETION 
0115 271 =; 
0115 272 

DO 0115, 273 MOVL IRP$L_ASTPRM(RS),ACB$L_KAST(R5) ; SET KERNEL AST ADDRESS 

11. O11A 274 BRB 40$ ; AND ENQUEUE AST 
011C 275 
011C 276 
011C 277 ; BUFFERED I/0 COMPLETION 
011C 278 ; 
011C 279 

9F O11C .1 BUFIO: PUSHAB 40$ ; ‘INLINE’ SUBROUTINE CALL. 
0122 2 
0122 .3 3 
0122 -4 ; THE FOLLOWING PIECE OF CODE MAY BE CALLED AS A SUBROUTINE DIRECTLY 
0122 -5 ; TO DO THE PART OF BUFFERED I/0 COMPLETION THAT NORMALLY EXECUTES 
0122 -6 3; AS A RESULT OF AN IOPOST SOFTWARE INTERRUPT. 
0122 Pe ae 
0122 -8 ; THE F11BXQP, FOR EXAMPLE, EXECUTES VIRTUAL FILE SYSTEM FUNCTIONS 
0122 -9 ; IN PROCESS CONTEXT. THERE IS NO NEED FOR THE IOPOST INTERRUPT 
0122 10 ; AND SPECIAL KERNEL AST TO POST I/O COMPLETION. AFTER RETURNING 
0122 11; FROM THIS SUBROUTINE, THE F11BXQP WILL DO A 
0122 lz 
0122 .13 =; JSB @ACB$L_KAST (R5) 
0122 -14 =; 
0122 -15 ; TO COMPLETE POSTING THE I/O COMPLETION. 
0122 -16 ; BOTH THE IOPOST SOFTWARE INTERRUPT AND THE SPECIAL KERNEL COMPLETION 
0122 .17 3; AST ARE AVOIDED. 
0122 .18 ; 
0122 -19 ; THE CALLER SHOULD TEST IRP$L_PID AND POST A NORMAL IOPOST INTERRUPT 
0122 -20 ; IF IT IS NEGATIVE, AS THAT CASE IS NOT HANDLED HERE. 
0122 o2t 3 
0122 -22 ; THE F11BXQP CODE THAT USES THIS ROUTINE IS IN [F11X.SRC]IODONE.MAR. 
0122 .23 ; 
0122 -24 ; IPL = IPL$ ASTDEL TO BLOCK PROCESS DELETION (PREVENT LOSS OF IRP). 
0122 -25 ; R4 = PCB ADDRESS 
0122 .26 ; RS = IRP ADDRESS 
0122 .27 «=; 
0122 . 28 
0122 .29 IOC$BUFPOST:: 

B6 0122 .30 INCW PCB$w_BIOCNT(R4) ; UPDATE BUFFERED I/0 COUNT 

El 0125 281 BBC . #IRP$V_FILACP, IRP$W_STS(R5),NOTACP ; BR IF NOT ACP I/0 

BE 012A 282 INCW PCBSW_ DIOCNT(R4) ; RESTORE DIRECT 1/0 COUNT 
012D 283 NOTACP: ; 
012D 284 
012D 285 .IF DF CA$_ MEASURE_IOT 
012D 286 

30 012D 287 BSBW PMSSEND_RQ ; INSERT END OF I/O REQUEST MESSAGE 
0130 288 
0130 289 .ENDC 
0130 290 

DO 0130 291 MOVL PCB$L_JIB(R4),RO ; GET JIB ADDRESS 


IOCIOPOST 


V03-024 


;CDS0003 
+» CDS0003 
;CDSO0003 


;CDSO003 
;CDS0003 
;CDS0003 
~3 


;WMCO020 
;wMCD020 
;WMCO020 
;wMC0020 
;wMC0020 
;wMC0020 
; WMCO0020 
;WMC0020 


51 30 AS 

20 AO 51 

50 2C A5 

OE 

0566’CF 

18 AS 

09 2A AS 01 
FEAF’ 

0648'CF 

18 A5 

02 00 

50 2A AS 

03 2A AS 09 
50 01 

51 OC AS 

52 FEQ91 CF40 
53 22 AS 
FE83’ 

OB A5 80 8F 
FE7B’ 

FE82 


- I/0 COMPLETION POSTING 
I/O COMPLETION POSTING 


3C 
co 
DO 
13 
QE 


EO 
30 
9E 


05 


EF 


EO 
AA 


DO 
9A 
9A 


30 
88 
30 


31 


0135 
0139 
013D 
0141 
0143 
0147 
0149 
O14E 
0151 
0155 
0157 
0158 
0158 
0158 
015B 
O15E 
0163 
0166 
0166 
O16A 
0170 
0174 
O17A 
017D 
0182 
0185 
0188 
0188 


292 
293 
294 
295 
296 


30$: 


35$: 


40$: 


50$: 


MOVZWL 
ADDL 
MOVL 
BEQL 
MOVAB 


BBS 
BSBW 
MOVAB 


RSB 


EXTZV 


BBS 
BICW 


MOVL 
MOVZBL 
MOVZBL 
DSBINT 
BSBW 
BISB 
BSBW 
ENBINT 
BRW 
.DSABL 


3-JUN=1984 11:26:47 VAX-11 Macro V03-01 Page 9 
24-APR-1982 15:46:59 DISKSVMSMASTER: [SYS.SRC]IOCIOPOST. (3) 


IRP$W_BOFF(RS5),R1 
R1,JIB$L_BYTCNT(RO) 
IRP$L_SVAPTE(R5),RO 


Convert 1/0 byte count to a longword. 
Update Byte Count Quota. 
ANY BUFFER SPECIFIED? 


oo we we we 


30$ IF EQL NO 
WABUFPOST,ACB$L_KAST(R5) ; ASSUME READ FUNCTION 
#IRP$V_FUNC,IRPSW_STS(R5),35$ ; IF SET, READ FUNCTION 
EXESDEANONPAGED ; DEALLOCATE WRITE BUFFER 


WADIRPOST,ACB$L_KAST(RS) ; SET SPECIAL KERNEL AST ADDRESS 


; RETURN TO PROCESS CONTEXT IOPOSTING 

; PROCESS, OR CONTINUE INLINE IF THIS 

; IS NORMAL IOPOST SOFTWARE INTERRUPT. 
#IRP$V_BUFIO,#¥2,IRP$W_STS(R5),RO ; GET PACKET TYPE 


#IRP$V_TERMIO,IRPSW_STS(R5),50$ ; BR IF TERMINAL I/0 

#1,R0 ; ELSE TREAT AS NORMAL 1/0 COMPLETION 
FOR PRIORITY INCREMENT SELECTION 
PROCESS IDENTIFICATION 

SET PRIORITY INCREMENT CLASS 

GET EVENT FLAG NUMBER 

PREVENT INTERRUPT FROM MP SECONDARY 


IRP$L_PID(R5),R1 
PRITBL[RO],R2 
IRP$B_EFN(R5),R3 
#IPL$_SYNCH 


we wk ee we we we we we 


SCHSPOSTEF AND POST IT 
#\X80,ACB$B_RMOD(R5) SET INTERNAL AST FLAG 
SCHSQAST NOW QUEUE THE KERNEL AST 
LOPOST ; GET NEXT PACKET TO POST 
LSB 


IOCIOPOST 
V03-024 


7E° 56 
56 55 


55 6C A4 

09 

17 

57 3A A6 

33 2A A6 01 


1F 
63 15 00 
50 
50 
00000000’EF 


03 
FE43° 


- 1/0 COMPLETION POSTING 


PAGIO - 


7D 
DO 


DO 
EF 


EO 


13 
EF 


D1 
1A 


DD 
30 


14 
30 


018B 
018B 
018B 
018B 
018B 
018B 
018B 
018B 
018B 
018B 
018B 
018B 
018B 
018B 
0188 
018B 
0188 
0188 
018B 
018B 
018B 
018B 
018B 
018B 
018B 
018B 
0188 
0188 
018B 
0188 
018B 
0188 
018E 
0191 
0191 
0194 
0198 
019A 
0198 
O19E 
01A3 
01A3 
01A3 
O1A3 
0143 
O1A5 
01A9 
O1AA 
O1AC 
01B1 
01B3 
01B5 
01B8 
0188 
01B8 
01B8 
O1BA 


315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 


354 


355 
356 
357 
358 
359 
360 


361 


362 
363 
364 
365 
366 
367 
368 
369 


PAGE I/0 COMPLETION 


SBTTL 


INPUTS: 


R3 
R4 
R5 


AGIO: MOVQ 
MOVL 


SETIPL 


MOVL 
EXTZV 


BBS 


we we we we 


BEQL 
EXTZV 


CMPL 


BGTRU 
20$: PUSHL 
BSBw 


> 


IRP$L_AST 


THE 1/0 REQUEST 


IRP$L_AST 
IRP$L_ASTPRM 
IRP$L_IOSB 
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PAGIO —- PAGE I/0 COMPLETION 


PAGING I/O COMPLETION 


SYSTEM VIRTUAL ADDRESS OF PAGE TABLE ENTRY 
PROCESS CONTROL BLOCK ADDRESS 
I/O REQUEST PACKET ADDRESS 


FOR PAGE READ COMPLETION, THE FOLLOWING LOCATIONS IN THE 


IRP$L_ASTPRM = 


T/O REQUEST PACKET HAVE SPECIAL SIGNIFICANCE. 


ORIGINAL PROCESS PAGE TABLE ENTRY BACKING STORE 
ADDRESS IF PAGE WAS A COPY ON REFERENCE PAGE. 
PFN$V_GBLBAK SET IF IT WAS GLOBAL CRF 

QO IF NOT A COPY ON REFERENCE PAGE 

MASTER PTE CONTENTS IF GLOBAL CRF (>0) 

SLAVE PTE ADDRESS IF GLOBAL NOT CRF (<0) 

QO IF NOT GLOBAL 


FOR PAGE WRITE COMPLETION, THE FOLLOWING LOCATIONS IN 


IRP$B_RMOD = 


PACKET HAVE SIGNIFICANCE. 


REQUEST MODE ! ACB$V_QUOTA. IF ACB$V_QUOTA IS SET, 
PROCESS REQUESTED AN AST ON PAGE WRITE COMPLETION 
AST ADDRESS IF REQUESTED 

AST PARAMETER IF SPECIFIED 

ADDRESS OF I/O STATUS BLOCK IF SPECIFIED. IF 
NON-ZERO, THEN PROCESS EXPECTS 1/0 STATUS RETURNED. 


R6,-(SP) ; SAVE SOME MORE REGISTERS 

R5,R6 ; USE R6 FOR IRP ADDRESS 

#IPL$_ SYNCH ; SYNCHRONIZE ACCESS TO SYSTEM DATA BASE 
PCB$L_PHD(R4),R5 ; USE R5 FOR PROCESS HEADER ADR 
#VASV_VPN,- 

#<32-VA$V_VPN>,- ; FORM PAGE COUNT 

IRP$L_IOST1+2(R6) ,R7 ; OF THE DATA TRANSFERRED 
#IRP$V_FUNC,IRP$W_STS(R6),PAGRD DONE ; BRANCH IF PAGE READ 


60$ 


PAGE WRITE COMPLETE - R7 = NUMBER OF PAGES 
CONDITION CODES SET FROM LOAD OF R7 


; BRANCH IF NO PAGES SUCCESSFULLY TRANSFERRE 


#PTESV_PFN,#¥PTE$S PFN,(R3),RO ;GET PFN FROM PTE 


RO ,MMG$GL 


60$ 
R3 


PFN_I0_ DONE 


_MAXPFN ;IS THIS PAGE IN SHARED MEMORY? 


;BR IF PAGE IN SH MEM, NO PFN DATABASE 
; SAVE SVAPTE 
; SET PFN DATA BASE 


; CONDITION CODES SET FROM DECREF 


BGTR 
BSBW 


40$ 


MMG$RELPFN 


; BRANCH IF REFCNT NOT O 
; RELEASE THE PAGE 
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53 BE 04 C1 018D 370 40$: ADDL3 #4,(SP)+,R3 ; GET NEXT PTE ADDRESS 
EF 57 F5 0O1C1 371 SOBGTR R7,20$ ; DO THE NEXT PAGE IF ANY 
00C4 8F A3 01C4 372 609: SUBW3 #IRP$C_LENGTH,IRP$W_SIZE(R6),R7 ; IF EXTENDED 1/0 PACKET 
57 08 A6 01C8 
01CB 373 ; THEN COMPLETION IS DONE BY 
01CB 374 ; SPECIAL UPDATE SECTION KERNEL AST 
04 38 A6 E9 0O1CB 375 BLBC IRP$L_IOST1(R6),PAGWRT_ERR ; BRANCH IF PAGE WRITE ERROR 
O1CF 376 ; : 
O1CF 377 ; CONDITION CODES SET FROM LOAD OF R7 
O1CF 378 ; 
O1CF 379 PAGWRT_ERR_DONE: 
68 13. OCF 380 ~ BEQL PAGIO_ DONE} ; BRANCH IF NOT, COMPLETE THE I/O HERE 
6D 11 010-1 381 BRB PAGIQ_ DONE2 ; COMPLETE I/O IN PROCESS CONTEXT 
0103 382 PAGWRT_ERR: 
0150 31 01D3 383 BRW PAGWRT_ERR1 
01D6 384 ; . 
0106 385 ; PAGE READ COMPLETE - R7 = NUMBER OF PAGES 
01D6 386 ; CONDITION CODES SET FROM LOAD OF R7 
01D6 387 ; 
01D6 388 PAGRD_DONE: 
3C 13 0O1D6 389 BEQL 100$ ; BRANCH IF NO PAGES SUCCESSFULLY TRANSFERRE 
Q01A0 30 01D8 390 204: BSBW PFN_IO DONE ; RECORD PAGE READ DONE 
01DB 391 ; 
01DB 392 ; CONDITION CODES SET FROM DECREF 
010B 393 ; j 
11 14 0O1D0B 394 BGTR 30$ ; BRANCH IF REFCNT NOT ZERO 
01D0D 395°; 
01DD 396 ; NO MORE REFERENCES FOR THIS PAGE, DON’T MAKE IT VALID, RELEASE IT 
01DD 397 ; 
04 AZ DF 0O10D 398 PUSHAL 4(R3) ; SAVE PTE ADR FOR NEXT PTE 
FE1D 30 O1E0 399 BSBW MMGS$RELPFN ; RELEASE THE PFN 
08 BA 01E3 400 POPR #AMKR3> ; RECOVER PTE FOR NEXT PAGE IN CLUSTER 
10 A6 04 Ci O1E5 401 ADDL3 #4,IRP$L_AST(R6),R1 ; GLOBAL PAGE? 
51 O1E9 ; 
25 18 OQO1EA 402 BGEQ 80$ ; BRANCH IF IT ISN‘T 
1F 11 Q1EC 403 BRB 60$ ; YES, SET CONTEXT FOR NEXT PAGE IN CLUSTER 
0000 ’DF40 07 88 OQO1EE 404 309: BISB #PFNSC ACTIVE,@WAPFNSAB STATE[RO] ; PAGE IS NOW ACTIVE 
00 50 1F E2 O1F4 405 BBSS #PTE$SV_VALID,RO,40$ ; TURN VALID ON WITH PFN 
83 50 CB O1F8 406 40$: BISL RO, (R3)+ ; SET VALID IN PTE 
O1FB 407 ; NEXT PTE ADDRESS IN R3 
51 10 A6 DO O1FB 408 MOVL IRP$L_AST(R6),R1 ; GLOBAL PAGE? 
10 18 O1FF 409 BGEQ 80$ ; BRANCH IF NOT 
0201 410 ; ; 
0201 411 ; PAGE IS A GLOBAL PAGE, R1 = PROCESS PTE, MUST MAKE IT VALID TOO 
0201 412 ; 
867FFFFF 8F CB 0201 413 BICL3 #AC<PTESM PROT ! PTE$M_OWN>,(R1),R2 ; PROTECTION AND OWNER FIELDS 
52 61 0207 
81 52 50 C9 0209 414 BISL3 RO,R2,(R1)+ ; MAKE PROCESS PTE VALID 
10 A6 51 BDO O20D 415 60$: MOVL R1,IRP$L_AST(R6) ; SET UP FOR NEXT PAGE IN CLUSTER 
C4 57 F5 0211 416 80$: SOBGTR R7,20$_ : ; DO THE NEXT PAGE IF ANY 
7F 38 A6 E9 0214 417 100$: BLBC IRP$L_IOST1(R6),PAGRD_ERR ; BRANCH IF PAGE READ ERROR 
; 0218 418 ; , , 
0218 419 ; LAST PAGE IN CLUSTER HAS BEEN PROCESSED, COMPLETE THE PROCESSING 
0218 420 ; ASSOCIATED WITH THE TRANSFER AS A WHOLE. : 
0218 421 ; 
0218 422 PAGIO_ DONE: 
51 14 A6 DO 0218 423 MOVL IRP$L_ASTPRM(R6) ,R1 ; COPY ON REFERENCE SECTION? 
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13 O21C 424 BEQL 20$ ; ; BRANCH IF NOT 
El O21E 425 BBC #PFNSV_GBLBAK,R1,10$ ; BRANCH IF NOT GBL CRF 
DE 0222 426 MOVAL @MMG$GL_SYSPHD,RS ; SYSTEM HDR FOR GBL CRF PAGE 
0228 
DO 0229 427 MOVL IRP$L_AST(R6),R1 ; CONTENTS OF GBL PTE FOR GBL CRF 
32 0220 428 10$: CVTWL R1,R1 ; SECTION INDEX 
EF 0230 429 EXTZV #VASV_VPN,~ 
0232 430 #<32-VA$V_VPN>,- ; PAGE COUNT FROM 
0233 431 IRP$L IOST1+2(R6),RO ; BYTE COUNT TRANSFERRED 
30 0236 432 BSBW ’ MMG$SUBSECREF ; SUBTRACT RO FROM SECTION REFERENC COUNT 
0239 433 ; 
0239 434 ; REPORT THAT PAGE I/O HAS COMPLETED. 
0239 435 ; 
0239 436 ; NORMALLY IT IS ONLY NECESSARY TO REPORT "PAGE FAULT COMPLETE" 
0239 437 ; TO THE PROCESS. THAT INITIATED THE I/0, BUT FOR SYSTEM PAGES 
0239 438 ; AND FOR GLOBAL PAGES, MULTIPLE FAULTS CAN OCCUR FOR THE SAME 
0239 439 ; PAGE WHILE IT IS ON ITS WAY INTO MEMORY. ALL PROCESSES WHICH 
0239 440 ; FAULT THE PAGE WHILE ITS STATE IS “READ IN PROGRESS" GET QUEUVED 
0239 441 ; ON THE COLLISION PAGE QUEUE, AND THE COLLISION BIT IS SET IN THE 
0239 442 ; TYPE BYTE OF THE PFN DATA BASE. THIS ROUTINE ALSO REPORTS THE 
0239 443 ; COLLISION PAGE AVAILABLE EVENT TO ALL PROCESSES ON THE COLLISION 
0239 444 ; QUEUE, IF THE COLLISION BIT IS SET. 
0239 445 ; 
0239 446 20$: 
0239 447 PAGIO_DONE?: 
9A 0239 448 MOVZBL #PRIG NULL,R2 ; SET FOR NULL PRIORITY INCREMENT 
Q23C 449 RPTEVT PFCOM ; REPORT PAGE FAULT COMPLETE 
0240 450 ; 
0240 451 ; IRP$W_BOFF WAS INCREMENTED IF ANY OF THE PAGES HAD THE COLLISION BIT SET 
0240 452 ; 
0240 453 ; R7 = NON ZERO IF SUPPOSED TO ISSUE KERNEL AST 
0240 454 ; USED ONLY FOR PAGE WRITE COMPLETION 
0240 A55 ; BUT MUST BE ZERO FOR PAGE READ COMPLETION 
0240 456 ; 
. 0240 457 PAGIO_ DONE2: 
BS 0240 458 TSTW IRP$W_BOFF (R6) ; ANY PAGES WITH COLLISION BIT SET? 
13 0243 459 BEQL 60$ ; BRANCH IF NOT 
DDB 0245 460 PUSHL R4 ; SAVE PCB ADDRESS 
BS 0247 461 40$: TSTW WASCH$GQ _ COLPGWQ+WQH$W_| MgEUT ; ANYONE WAITING? 
15 0248 462 BLEQ 50$ BRANCH IF NOT 
DO 024D 463 MOVL WASCH$GQ_COLPGWQ,R4 ; GET NEXT PCB 
0252 464 RPTEVT COLPGA ; REPORT "COLLISION PAGE AVAILABLE" 
11 0256 465 BRB 40$ ; REPEAT UNTIL QUEUE IS EMPTY 
BA 0258 466 50$: POPR #AMK<R4> ; RESTORE SAVED PCB ADDRESS 
O25A 467 6O0$: SETIPL #IPL$_ IOPOST ; LOWER TO I/O POST LEVEL 
D5 O25D 468 TSTL R7 ; EXHAUSTED PAGE COUNT NON-ZERO? 
12 O25F 469 BNEQ PAGIO_KAST ; BRANCH IF YES, COMPLETE I/0 IN PROCESS 
E9 0261 470 BLBC IRP$L_IOST1(R6),PAGIO_ERR ; BRANCH IF MORE ERROR PROCESSING TO DO 
DO 0265 471 MOVL R6,RO ; GET PACKET ADDRESS FOR RELEASE 
70 0268 472 MOVQ (SP)+,R6 ; RESTORE SAVED REGISTERS 
026B 473 ; 
026B 474 ; RO = I/O REQUEST PACKET ADDRESS 
026B 475 ; 
026B 476 PAGIO ERR DONE: 
30 0268 477 BSBwW EXESDEANONPAGED ; AND RELEASE IT 
3C O26E 478 MOVZWL =#RSNG$ ASTWAIT,RO ; SET AST WAIT RESOURCE WAIT NUMBER 
30 0271 479 BSBW SCH$RAVAIL ; SET RESOURCE AVAILABLE 
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31 0274 480 BRW IOPOST ; CONTINUE TO PROCESS POST QUEUE 
0277 481 ; 
0277 482 ; COMPLETE THE PAGE WRITE IN THE PROCESS CONTEXT 
0277 483 ; . 
0277 484 PAGIO_KAST: 
DO 0277 485 MOVL R6,RS ; I/O PACKET ADDRESS BACK TO NORMAL REG 
7D OQ27A 486 MOVQ (SP)+,R6 ; ; RESTORE SAVED REGISTERS 
DO 027D 487 MOVL IRP$L_PID(R5),R1 ; PROCESS ID FOR ISSUING KERNEL AST 
9E 0281 488 MOVAB MMG$UPDSECAST,ACB$L_KAST(R5) ; ADDRESS TO START KERNEL AST 
0287 
9A 0289 489 MOVZBL #PRI$_IOCOM,R2 ; PRIORITY INCREMENT 
88 O28C 1 BISB #AX80,ACB$B_RMOD(R5) ; SET INTERNAL AST FLAG 
30 0291 .2 BSBW SCH$QAST ; NOW QUEUE: THE KERNEL AST 
31 0294 3 BRW IOPOST ; GET NEXT PACKET TO POST 
0297 491 ; 
0297 492 ; PAGE READ ERROR - CLEAN UP LOGIC 
0297 493 ; 
0297 494 ; R3 = PTE ADDRESS OF BAD PAGE 
0297 495 ; R4 = PCB ADDRESS 
0297 496 ; RS = PROCESS HEADER ADDRESS 
0297 497 ; R6 = 1/0 REQUEST PACKET ADDRESS 
0297 498 ; R7 = 0 AND MUST BE PRESERVED 
0297 499 ; IRP$L_AST(R6) = PROCESS PTE ADR OF BAD PAGE IF GLOBAL PAGE 
0297 500 ; IRP$L_ASTPRM(R6) = GPTX FOR START OF TRANSFER IF GLOBAL CRF 
0297 501 ; 
0297 . 502 PAGRD ERR: 
30 0297 503 BSBW PFN_IO_ DONE ; COMPLETE THE I/O FOR ERR PAGE 
90 029A 504 MOVB - #<PFN$M DELCON ! PFN$C_RDERR>,- ; SET PAGE TO 
029C ©6505 @WAPFN$SAB_STATE[RO] ; READ ERROR STATE 
DO O2A0 506 MOVL IRP$L_ASTPRM(R6),R1 ; GET BACKING STORE ADR IF CRF 
13 O02A4 507 BEQL 120% ; BRANCH IF NOT COPY ON REFERENCE 
El O2A6 508 BBC #PFNSV_GBLBAK,R1,100$  ; BRANCH IF NOT GLOBAL CRF 
EF O2AA 509 EXTZV -#VA$V_VPN,- 
O2AC 510 #<32-VA$V_VPN>, - ; ADJUST GPTX BY 
O2AD 511 IRP$L_IOST1+2(R6) ,R2 ; TRANSFERRED PAGE COUNT 
CO O02B0 512 ADDL R2,R1 ; TO GET CORRECT GPTX FOR BAD PAGE 
C1 0283 513 ADDL3 #1,R1,IRP$L_ASTPRM(R6) j; SET GPTX FOR START OF NEXT TRANSFER 
02B6 
DO O2B8 514 100$: MOVL R1,@WAPFN$AL_BAK[RO] ; FIX BACKING STORE ADDRESS 
D5 O2BE 515 120$: TSTL IRP$L_AST(R6) ; IF GLOBAL PAGE (NOT CRF) 
18 O2C1 516 BGEQ 140$ 
CO 02C3 517 ADDL #4, IRP$L_AST(R6) ; THEN SKIP OVER PROCESS PTE ADR 
B5 O2C7 518 140$: TSTW @WAPFN$SAW_REFCNT[RO] ; IS THIS THE LAST REFERENCE? 
14 02CC 519 BGTR 160$ ; BRANCH IF NOT 
B5 O2CE 520 TSTW @WAPFNSAW_SWPVBN[RO] ; IF THIS PROCESS HAS BEEN SWAPPED OUT 
13 0203 521 BEQL 150% 
9A O02D5 522 MOVZBL #PFN$C_BADPAGLST,R2 ; THEN PUT THIS PAGE IN LIMBO 
30 02D8 523 BSBW MMG$INSPFNT ; ON THE BAD PAGE LIST 
11 02DB 524 BRB 160$ 
30 O02DD 525 150$: BSBW MMGSRELPEN ; OTHERWISE RELEASE THE PAGE 
31 O2E0 526 160%: BRW PAGIO_DONE ; COMPLETE THIS PORTION OF THE PAGE READ 
O2E3 527 ; 
O02E3 528 ; DO THE REMAINING SEGMENT OF THE I/O FOR A PAGE READ OR WRITE ERROR 
O2E3 529 ; SKIP OVER THE PORTION THAT WAS TRANSFERRED SUCCESSFULLY AND SKIP OVER 
O2E3 530 ; THE PAGE IN ERROR WHICH WAS DEALT WITH BY EITHER PAGRD_ERR OR 
O02E3 531 ; PAGWRT_ERR AND SET UP TO TRANSFER THE REMAINING PAGES TF ANY. 
O2E3 532 ; 


NOTE THAT FOR PAGE WRITE ERRORS THE REST OF THE TRANSFER IS NOT DONE 
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02E3 533 ; IF I/O COMPLETION STATUS IS RETURNED TO THE PROCESS. 
O02E3 534 ; 
02E3 535 PAGIO_ ERR: 


55 56 DO O2E3 536 MOVL R6,R5 ; IRP ADDRESS 
56 8&£ 7D O2E6~ 537 MOVQ (SP)+,R6 ; RESTORE ADDITIONAL SAVED REGISTERS 
09 EF O2E9 538 EXTZV  #VAS$V_VPN,- 
17 O2EB 539 #<32-VA$V_VPN>,- ; GET PAGE COUNT TRANSFERRED 
51 3A AS O2EC 540 IRP$L_IOST1+2(R5),R1 
51 D6 O2EF 541 INCL R1 ; COUNT THE ERROR PAGE AS DONE 
50. Si 09 9C O2F1 542 ROTL #9,R1,R0 ; BYTE COUNT COMPLETED 
44 A5 50 C2 O2F5 543 SUBL RO, IRP$L_OBCNT(R5) ; BYTE COUNT REMAINING 
25 13 O2FQ9 544 BEQL 40$ ; BRANCH IF NOTHING LEFT TO DO 
40 A5 D4 O2FB- 545 CLERL IRP$L_ABCNT(RS) ; ZERO ACCUMULATED BYTE COUNT 
O2FE 546 
30 A5 B4 O2FE 547 CLRW IRP$W_BOFF(R5) ; ZERO BOFF AND 
44 45 DO 0301 548 MOVL IRP$L_OBCNT(R5) 
32 AS 0304 549 IRP$L_BCNT(R5) ; SET NEW BYTE COUNT 
48 AS D6 O3806~ 550 INCL IRP$L_SEGVBN(R5) ; SEGMENT VBN WAS POINTING AT ERROR VBN 
53 4C A5 DO 0309 551 MOVL IRP$L_DIAGBUF(R5) ,R3 ; STARTING SVAPTE OF ENTIRE TRANSFER 
4C A5- 6341 DE O30D 552 MOVAL (R3)(R1],IRP$L_DIAGBUF(R5) ; STARTING PTE ADDRESS OF THIS SEGMENT 
Qg12° 553 é 
0312 554 ag DF ,CA$_MEASURE_IOT 
53 DD 0312 ~~ 555 PUSHL = RB ;REMEMBER SVAPTE 
53 55 DO 0314 556 MOVL R5,R3 ;SET ADR OF IRP 
PCEG*~ 30 --0317' -:557 BSBW PMS$START_RQ ; INSERT START OF I/O REQUEST MESSAGE 
53 8EDO O31A 558 POPL R3 ;RESTORE SVAPTE 
031D 559 . ENDC 
031D 560 
OOEB 31 0310 561 BRW QNXTSEG ; QUEUE THIS SEGMENT AND RETURN TO IOPOST 
50 55 DO 0320 £562 40$: MOVL R5,RO ; 1/0 PACKET ADDRESS 
FF45 31 0323 563 BRW PAGIO_ERR_DONE 
0326 564 ; 
0326 565 ; PAGE WRITE ERROR ~- CLEAN UP LOGIC 
0326 566 ; 
0326 567 ; R3 = PTE ADDRESS FOR ERROR PAGE 
0326 568 ; R4 = PCB ADDRESS 
0326 569 ; R5 = PROCESS HEADER ADDRESS 
0326 570 ; R6 = I/O REQUEST PACKET ADDRESS 
0326 S71 ; R7 = O IF ALL COMPLETION LOGIC IS DONE IN IOPOST 
O326° (S72; = NON-ZERO IF COMPLETION (AND ERROR REPORT) ARE TO BE 
0326 573 4 RETURNED TO THE PROCESS. 
0326 574 ; 
0326 575 PAGWRT_ERR1: 
57 OD 0326 £576 PUSHL = R7 ; SAVE KERNEL AST FLAG 
09 EF 0328 S77 EXTZV  #VA$V_VPN,- 
17 032A 578 #<32-VA$V_VPN>, ~ ; PAGE COUNT TRANSFERRED 
50 3A A6 032B 579 IRP$L_IOST1+2(R6) ,RO 
09 EF 032E £580 EXTZV #VA$V_VPN,- 
17 0330 581 #<32-VA$V_VPN>,- ; ORIGINAL PAGE COUNT 
57 44 A6 0331 582 IRP$L_OBCNT(R6) ,R7 
57 50 C2 0334 583 SUBL RO, R7 ; COUNT OF REMAINING PAGES 
6E D5 0337 #4584 TSTL (SP) ; IF NOT REPORTING ERROR TO PROCESS 
03 12 0339 585 BNEQ 20$ 
z 57 O41 DO O33B 586 MOVL #1,R7 ; ONLY CLEAN UP THE ERROR PAGE HERE 
O033E 587 ; REST OF TRANSFER WILL BE DONE BY PAGIO_ERR. 
7E. D4 O33E 588 20$: CLRL -(SP) ; INIT "ERROR PAGE" FLAG = 


63 15 00 EF. 0340 589 EXTZV #PTE$V_PFN,#PTE$S_ PFN,(R3),RO ;GET PFN FROM PTE 
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0344 
0345 590 CMPL RO,MMG$GL_MAXPFN ;I1S THIS PAGE IN SHARED MEMORY? 
0347 
034C = 591 BGTRU =: 130$ ;BR IF PAGE IN SH MEM, NO PFN DATABASE 
O34E 592 70$: PUSHL = RB ; SAVE SVAPTE 
0350 593 BSBW PFN IO DONE ; COMPLETE I/O FOR THIS PAGE 
0353 594 BBSS #PFNSV_MODIFY,@WAPFN$SAB_STATE[RO],80$ ; FORCE MODIFY BIT 
0359 
035A 595 80$: 
O35A 596 ; . 
035A 597 ; CONDITION CODES STILL SET FROM DECREF AT END OF PFN_IO DONE 
O35A 598 ; 
035A 599 BGTR 120$ ; BRANCH IF NOT THE LAST REFERENCE 
035C 600 BBSS #0,4(SP),100$ ; BRANCH IF NOT ERROR PAGE 
0361 601 ; 
0361 602 ; THIS IS THE PAGE THAT HAD THE WRITE ERROR 
0361 603 ; 
0361 604 MOVL. #PFN$C_BADPAGLST,R2 ; PUT IT ON THE BAD PAGE LIST 
0364 605 BSBW MMG$INSPFNT ; WITH “MODIFY” SET AND "BAD" CLEAR 
0367 606 BRB 120$ 
0369 607 100$: BSBW MMG$RELPFN ; NO MORE REFERENCES, RELEASE THE PAGE 
O36C 608 120$: ADDL3  #4,(SP)+,R3 ; NEXT PTE ADDRESS 
0370 609 SOBGTR R7,70$ 
0373 610 130$:  POPR #AM<RO,R1> ;CLEAN OFF BAD PAGE FLAG 
0375 611 ; R1 = SAVED KERNEL AST INDICATOR 
0375 612 MOVL R1,R7 ; PUT IT IN R7, SET CONDITION CODES 
0378 613 BRW PAGWRT_ERR_DONE 
037B 614 ; 
037B 615 ; PFN_IO DONE 
037B 616 ; 
037B 617 ; INPUTS: 
037B 618 ; 
037B 619 ; R3 = SVAPTE 
037B 620 ; R4 = PROCESS CONTROL BLOCK ADDRESS OF PROCESS THAT REQUESTED THE 1/0 
037B 621 ; R5 = PROCESS HEADER OF THE PROCESS THAT REQUESTED THIS 1/0 
037B 622 ; R6 = I/O REQUEST PACKET ADDRESS 
037B 623 ; 
037B 624 ; OUTPUTS: 
037B 625 ; 
037B 626 ; RO = PFN 
037B 627 ; R3 PRESERVED 
037B 628 ; IRP$W_BOFF(R6) INCREMENTED IF THIS WAS A COLLISION PAGE 
037B 629 ; CONDITION CODES SET FROM DECW @WAPFNSAW_REFCNT[RO] 
037B 630 ; ~ 
037B 631 PFN _IO DONE: 
037B 632 EXTZV _#PTES$V_PFN,#PTE$S PFN,(R3),RO ; GET PAGE FRAME NUMBER 
O37F 
0380 633 BICB3 #AC<PFNSM_COLLISION ! PFN$M_PAGTYP>,~- ; FETCH THESE 
0383 634 @WAPFNGAB_TYPE[RO],R1  ; BITS FROM PFN TYPE BYTE 
0388 635 BBCC #PFN$V_COLLISION,R1,20$ ; CLEAR COLLISION BIT, BRANCH IF WAS CLEAR 
038C 636 BICB #PFNSM_ COLLISION, @WAPFN$AB_TYPE[RO}] ; CLEAR IT IN PFN DATA 
0392 637 INCW IRP$W_BOFF(R6) ; MUST EMPTY THE COLLISION QUEUE 
0395 638 20$: CMPB R1,#PFNSC_PPGTBL ; IF PROCESS PAGE TABLE PAGE 
0398 639 BNEQ 40$ 
039A 640 MOVZWL PHD$W_PHVINDEX(RS),R1 ; MUST COUNT ONE LESS 
O39E 641 BSBW MMG$DECPHDREF 1 ; PROCESS HEADER REFERENCE 
O3A1 642 40$: DECREF ; ONE LESS REFERENCE FOR THE PAGE 
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05 O3AB 643 RSB ; RETURN WITH CONDITION CODES SET 
O3AC 644 


; TO NEW STATE OF THE REFCNT 
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; RLRMXBCNT O3AC .2 .SBTTL VIRTUAL (OR LOGICAL) 1/0 COMPLETION 
;RLRMXBCNT O3AC -3 3 
; RLRMXBCNT O3AC -4 ; VIRTUAL (OR LOGICAL) I/0 COMPLETION 
-6 O3AC 651 ; 
O3AC 652 ; CALLING SEQUENCE: 
O3AC 653 ; 
O3AC 654 ; BRW VIRTUAL 
O3AC 655 ; 
O3AC 656 ; INPUTS: 
O3AC 657 ; 
O3AC 658 ; R1 = REQUESTED BYTE COUNT, POSSIBLY DIFFERENT FROM TRANSFERRED 
O3AC 659 ; BYTE COUNT FOR MAGTAPE 
O3AC 660 ; R2 = IRP$W_BOFF CONTENTS 
O3AC 661 ; R38 = SVAPTE OF START OF TRANSFER 
;ROW49597 OSAC sally 3 R4 = PCB ADDRESS ASSOCIATED WITH THE PID IN THE PACKET 
; RLRMXBCNT O3AC i258 R5 = IRP ADDRESS 
O3AC 662 ; 
O3AC 663 ; OUTPUTS: 
O3AC 664 ; 
O3AC 665 ; BRANCHES TO UNLOCK, PRESERVING R1,R2,R3 
O3AC 666 ; OR BRANCHES TO IOPOST 
i O3AC 667 ; 
O3AC 668 
O3AC 669 -ENABL LSB 
O3AC 670 
; RLRMXBCNT QO3AC .1 VIRTUAL_LOGIO: ; VIRTUAL (OR LOGICAL) I/0 FUNCTION 
; RLRMXBCNT 46 A5 B5 O3AC 2 TSTW IRP$L_OBCNT+2(R5) ; SEE IF BYTE COUNT > 64K 
;R LRMXBCNT OF 13. OSAF .3 BEQL 1$ ; EQL IMPLIES NO, BRANCH TO OLD CODE 
;RLRMXBCNT 03B1 .4 
; RLRMXBCNT 50 SA A5 DO O3B1 oi MOVL IRP$L_IOST1+2(R5), RO ; Else pickup new, longer count. 
;RLRMXBCNT 40 A5 50 CO O3B5 On ADOL RO, IRP$L_ABCNT(R5) ; Accumulate total bytes transfered. 
; RLRMXBCNT SA AS 40 A5 DO O3B9 vil MOVL IRP$L_ABCNT(R5), - ; Set accumulated bytes transfered. 
; RLRMXBCNT O3SBE 7B. x IRP$L_IOST1+2(R5) 
; RLRMXBCNT OD 11 O3BE 9 BRB 3$ ; Rejoin common code. 
; RLRMXBCNT 03CO 2 HO 
; RLRMXBCNT 50 SA A5 3C O3CO .11 =1$: MOVZWL IRP$L_IOST1+2(R5), RO ; Get old bytes transfered count. 
;RLRMXBCNT 40 A5 50 CO O03C4 ae 4 ADDL RO, IRP$L_ABCNT(R5) ; Accumulate total bytes transfered. 
; RLRMXBCNT 3A ADS 40 AS BO O3C8 13 MOVW IRP$L_ABCNT(R5), - ; Set accumulated bytes transfered. 
; RLRMXBCNT O3CD 14 IRP$L_IOST1+2(R5) ; (Note movw due to code path that 
;RLRMXBCNT O3CD 15 ; insures < 64K byte. transfer.) 
;RLRMXBCNT O3CD 16 
;RLRMXBCNT 50 DDB O38CD 17 34: PUSHL RO ; Save # bytes transferred. 
; RLRMXBCNT 51 50 Di OS3CF 18 CMPL RO, RI ; Do bytes xfered and requested match? 
; RLRMXBCNT 13 13. O3D2 19 BEQL 9$ ; Branch if they match. 
; RLRMXBCNT 50 . 1C A5 DO O3D4 .20 MOVL IRP$L_UCB(RS),RO ; RO => UCB. 
; RLRMXBCNT 05 EO 0Q3D8 21 BBS SA¥DEV$V_SQD, - 
;RLRMXBCNT OA 38 AO O3DA 22 UCB$L_DEVCHAR(RO) ,9$ ; If SET, sequential device 
;RLRMXBCNT 06 38 A5 EQ O3DD 23 BLBC IRP$L_IOST1(R5), OF ; If xfer count wrong, guarantee 
;RLRMXBCNT 2234 BF BO O3€E1 24 MOVW #SS$_INCSEGTRA, - ; that final status is an error 
38 AS O3E5 
; RLRMXBCNT O3E7 25 IRP$L_IOST1(R5) ; (either the driver’s or ours). 
; RLRMXBCNT BE F7 8F 78 O3E7 26 9§: ASHL #-VA$S BYTE,(SP)+, RO ; Calculate number of blocks transfered. 
50 03EB 
; RLRMXBCNT 48 AS 50 CO O3EC 27 ADDL RO, IRPS$L_SEGVBN(RS5) ; Calculate next disk segment address. 
-20 4C 38 A5 EQ OQ3FO 691 BLBC IRP$L_IOST1I(R5) , 20$ ; IF LBC I/O ERROR 
50 1¢ AS DO O3F4 692 MOVL IRPS$L_ _UCB(R5),RO GET ADDRESS OF DEVICE UCB 
2E 38 AQ 05 EO O3F8 693 BBS SA#DEVS$V_ SQD ,UCB$L _DEVCHAR(RO), 10$ ; IF SET, SEQUENTIAL DEVICE 
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;$TJ3100 
;$TJ3100 
3S8TJ3100 
;STJ3100 
;STJ3100 
;STJ3100 
3;STJ3100 
;STJ3100 
;STJ3100 
3;STJ3100 
;$TJ3100 
3;STJ3100 
3;STJ3100 
-4 


;STU3085 
;STJU3085 
;STJ3085 
;STJ3085 
;STJ3085 
;STJ3085 
;STJ3085 
;STJ3085 
;STJ3085 
-4 


;RLRMXBCNTA 
;RLRMXBCNTA 
;RLRMXBCNTA 
;RLRMXBCNTA 
;RLRMXBCNTA 
;RLRMXBCNTA 
;RLRMXBCNTA 
;RLRMXBCNTA 
;RLRMXBCNTA 
;RLRMXBCNTA 
3ACG0421 

;ACGO0421 


40 


32 


51 F7 


0000’ 


06 20 


CF 
OA 
AS 


O2F9 


05 


50 


2C AS 6341 


53 
55 1c 


55 
A3 
47 


FBE2 


EG 2A 
46 


3A 


3A 


53 
3E 
2A AZ 
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VIRTUAL (OR LOGICAL) I/0 COMPLETION 24-APR-1982 15:46:59 DISK$VMSMASTER: [SYS.SRC]IOCIOPOST. (5) 
C3 O3FD 694 SUBL3 IRP$L_ABCNT(R5),- ; 
0400 695 IRP$L_OBCNT(RS),- ; CALCULATE BYTES REMAINING 
0402 696 IRP$L_BCNT(R5) ; 
13 0404 697 BEQL 10$ ; IF EQL NONE 
78 0406 698 ASHL #-VA$S BYTE,R1,R1 ; CALCULATE NUMBER OF PAGES REQUESTED 
O40A 
040B 699 QNXTSEG: 
040B re es 
040B .2 ; ADVANCE THE SVAPTE TO POINT TO THE PORTION OF THE PAGE TABLES THAT MAP THE 
040B .3 ; BUFFER FOR THIS SEGMENT. IF THIS IS AN ERASE 1/0, DO NOT ADVANCE THE 
040B .4 ; SVAPTE, AS THE ENTIRE TRANSFER IS MAPPED BY A SINGLE PAGE TABLE PAGE. 
0408 AS: 3 
D6 O40B — .6 INCL WAPMS$GL_ SPLIT ; COUNT A SPLIT TRANSFER 
E1 O40F .7 BBC #IO$V_ERASE,-— ; BRANCH IF NOT ERASE - UPDATE SVAPTE 
0411 .8 IRP$W_FUNC(R5) ,13$ 3 
30 0414 9 BSBW CHECK ERASE ; IS THIS AN ERASE I/0 REQUEST 
E8 0417 .10 BLBS RO,69$ ; BRANCH IF YES - DO NOT ADVANCE SVAPTE 
DE O41A 11 °#13: MOVAL (R3)(R1],IRP$SL_SVAPTE(RS) ; SET ADDRESS OF NEXT PTE ENTRY 
DO O41F 12 699: MOVL R5,R3 ; COPY I/O REQUEST PACKET ADDRESS 
DO 0422 .13 MOVL IRP$L_UCB(R3),R5 ; COPY UCB ADDRESS 
10 0426 704 BSBB IOC$QNXT SEG ; QUEUE THE NEXT VIRTUAL SEGMNET 
31 0428 705 5$: BRW IOPOST 
042B 706 ; 
042B 707 ; ALL SEGMENTS OF THIS TRANSFER ARE COMPLETE 
042B 708 ; 
042B 709 10$: 
DO 0428 710 MOVL IRP$L_OBCNT(R5),R1 ; GET ORIGINAL BYTE COUNT 
DO O42F 711 MOVL IRP$L_DIAGBUF(R5),R3 ; GET ORIGINAL PAGE TABLE ADDRESS 
12 0433 2A BNEQ 15$ ; NEQ implies IRP$L_DIAGBUF was valid. 
DO 0435 2 MOVL IRP$L_SVAPTE(R5) ,R3 ; If not valid, then IRP$L_SVAPTE is. 
DO 0439 .3 15$: MOVL R3,IRP$L_SVAPTE(RS) ; SVAPTE MUST BE CORRECT 
31 043D .4 BRW UNLOCK 3 
0440 5 
0440 -6 ; 
0440 -7 3; I/O OPERATION ENDED WITH AN UNSUCCESSFUL STATUS 
0440 .8 ; 
0440 9; IF THE REQUEST IS LOGICAL 1/0, BRANCH BACK TO UNLOCK. (10$) 
0440 716 ; 
0440 717°; IF THE DEVICE IS A SEQUENTIAL DEVICE, THEN THE 1/0 PACKET IS 
0440 718 ; MERELY SENT TO THE ACP FOR NOTIFICATION, OF THE ERROR. 
0440 719 ; 
0440 720 ; IF THE DEVICE IS A RANDOM DEVICE, THEN THE VIRTUAL BLOCK NUMBER 
0440 721 =; STORED IN IRP$L_SEGVBN IS THE BLOCK THAT HAS AN ERROR. 
0440 722 ; 
0440 723 
E} 0440 -1 20$: BBC #IRPS$V_VIRTUAL, — 
0442 we IRP$W_STS(R5),10$ ; Branch IF Logical I/0 
B5 0445 .3 TSTW IRP$L_OBCNT+2(R5) ; SEE IF BYTE COUNT > 64K 
13. 0448 .4 BEQL 30$ ; EQL implies < 64K. 
D4 044A 25 CLRL IRP$L_IOST1+2(R5) ; Zero byte count before recycleing IRP 
11 0440 .6 BRB 40$ ; Branch around 
O44F -7 30§: 
B4 0O044F .8 _CLRW IRP$L_IOST1+2(R5) ; Zero byte count before recycleing IRP 
0452 -9 40$: 
DO 0452 -10 MOVL RS,R3 ; COPY IRP. ADDRESS 
B7 0455 214 DECW PCB$w_DIOCNT(R4) ; ADJUST DIRECT I/O COUNT 
AA 0458 -12 BICW #IRP$M_VIRTUAL,IRP$W_STS(R3) ; CLEAR VIRTUAL I/O FLAG 
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3;ACGO0421 2C A3 
3;ACG0421 52 
3;ACGO0421 

-6 


AC A3 
44 A3 
OO09F 
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VIRTUAL (OR LOGICAL) I/O COMPLETION 24-APR-1982 15:46:59 DISK$VMSMASTER: [SYS.SRC]IOCIOPOST. (5) 
DO O45C 13 MOVL IRP$L_DIAGBUF(R3),IRP$L_SVAPTE(R3) ; RESET PAGE TABLE ADDRESS 
DO 0461 14 MOVL IRP$L_OBCNT(R3) ,R2 ; GET ORIGINAL BYTE COUNT 
30 0465 -15 - BSBW TOCS$QTOACP ; QUEUE PACKET TO ACP 
11 0468 730 BRB 5$ 
046A 731 
O46A 732 -OSABL LSB 
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V03-024 QUEUE NEXT SEGMENT 24-APR-1982 15:46:59 DISK$VMSMASTER: [SYS.SRC]IOCIOPOST. (6) 
O46A 734 .SBTTL QUEUE NEXT SEGMENT 
O46A 735 ; 
O46A 736 ; FUNCTIONAL DESCRIPTION: 
046A 737 =; 
O46A 738 ; IOCSQNXTSEG PERFORMS THE FUNCTION OF QUEUEING THE NEXT 
O46A 739 =; SEGMENT OF A VIRTUAL 1/0 REQUEST THAT DID NOT MAP TO A 
O46A 740 ; SINGLE CONTIGUOUS I/O REQUEST. 
046A 741~=; 
O46A 742 ; CALLING SEQUENCE: 
046A 743 ; 
O46A 744 ; BSBw ITOC$QNXTSEG 
046A = 745 —s=; ‘ 
046A 746 ; INPUTS: 
O46A 747 ; 
O46A 748 ; R3 = I/0 REQUEST PACKET ADDRESS 
046A 749 ; R4 = PCB ADDRESS ASSOCIATED WITH THE PID IN THE PACKET 
O46A 750 ; R5 = UCB ADDRESS OF THE ASSOCIATED DEVICE 
O46A 751~==; 
O46A 752 ; OUTPUTS: 
O46A 753 ; 
O46A 754 ; R4 NOT PRESERVED 
046A 755 ; 
3;ACG0421 046A 1 
3;ACGO0421 O46A .2 .ENABLE LSB 
sACGO0421 O46A .3 ; Out of line code for Logical I/O. 
;ACG0421 046A .4 ; This code mimics results of 
;ACG0421 O46A 5 ; IOCS$MAPVBLK for Logical I/0. 
3;ACGO0421 51 50 DO O46A .6 5$: MOVL RO,R1 ; Namely R1 = LBN. 
;ACG0421 24 11 046D 7 BRB 10$ ; Branch back to common code. 
3;4CG0421 O46F .8 
O46F 756 IOCEQNXTSEG:: 
52 18 A3 DO O46F 757 MOVL IRP$L_WIND(R3) ,R2 ; GET ADDRESS OF MAPPING WINDOW 
51 32 A3 DO 0473 758 MOVL IRP$L_BCNT(R3),R1 >; GET SIZE OF NEXT SEGMENT 
50 48 A3 DO 0477 759 MOVL IRP$L_SEGVBN(R3) ,RO ; GET STARTING VIRTUAL BLOCK NUMBER 
047B 760 ; 
047B 761 ; ALTERNATE ENTRY TO IOC$QNXTSEG: 
047B 762 =; 
047B 763 =; BSBW LOC$ZQNXTSEGI 
047B 764 ; 
047B 765 ; ADDITIONAL INPUTS: 
0478 766 ; 
0478 767 ; RO = VIRTUAL BLOCK NUMBER OF START OF NEXT SEGMENT 
0478 768 ; R1 = DESIRED BYTE COUNT OF NEXT SEGMENT 
047B 769 ; R2 = WINDOW ADDRESS 
047B 770 ; 
047B 771 TOC$QNXTSEG1:: 
3E A4 B7 0478 772 DECW PCB$W_DIOCNT(R4) ; ADJUST THE DIRECT I/0 COUNT 
3; ADE9005 04 El O47E od BBC #IRP$V_VIRTUVAL, - ; Branch to out of line code if this 
; ADE9005 E7 2A AZ3 0480 2 IRP$W_STS(R3) ,5$ : is Logical I/0. 
; ADE9005 OQ000000’ GF 16 0483 23 JSB GAIOCSMAPVBLK ; MAP VIRTUAL TO LOGICAL BLOCK 
3;ACG0422 1C AB 55 DO 0489 .4 MOVL RS,IRP$L_UCB(R3). ; STORE POSSIBLY MODIFIED UCB ADDRESS 
3;ACG0422 32 A3 52 C2 O048D <5 SUBL R2,IRP$L_BCNT(R3) ; CALCULATE SIZE OF NEXT SEGMENT 
:;ACG0422 74 13 0491 .6 BEQL 30$ ; IF EQL TOTAL MAP FAILURE 
;ACG0422 52 OOB4 C5 DO 0493 .7 10$: MOVL UCB$L_MAXBCNT(R5) ,R2 ; R2 = O or Max. permissible BCNT. 
;ACG0422 05 12 0498 .8 BNEQ 15$ ; NEQ implies Max. permissible BCNT in RO. 
3;ACG0422 52 FEQO 8F 3C 049A 9 MOVZWL #€512*127,R2 ; If O, use default Max. permissible. 
;ACG0422 OA El O49F .10 15$: BBC #10$V_ERASE,~- ; BRANCH IF DEFINITELY NOT AN ERASE 
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DD 
DO 
30 
8EDO 
EQ 
DS 
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D4 
OE 


05 


04A1 
04A4 
04A6 
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812 
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IRP$W_FUNC(R3),17$ 
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46:59 DISK$VMSMASTER: [SVYS.SRC]IOCIOPOST. (6) 


SAVE UCB ADDRESS 

COPY IRP ADDRESS 

ITS THIS AN ERASE FUNCTION? 
RESTORE UCB ADDRESS 

BRANCH IF IT IS NOT AN ERASE 

ARE WE USING A DUMMY PAGE TABLE? 
BRANCH IF NOT 

GET MAX BYTE COUNT FOR PPT 

CHECK LIMIT AGAINST MAX 

BRANCH IF OK 

LIMIT TRANSFER TO PPT SIZE 

if BCNT too large. 

; GEQU implies we are OK. 

; Else scale down to maximum allowed. 


; GET TRANSFER BYTE COUNT 
; ROUND DOWN AND... 
; SHIFT DOWN FOR BLOCK COUNT - 1 


COMPUTE ENDING BLOCK NUMBER 

BRANCH ON OVERFLOW 

AND CHECK AGAINST DEVICE SIZE 
BRANCH IF NOT LEGAL 

COPY STARTING LOGICAL BLOCK NUMBER 
CONVERT LOGICAL TO PHYSICAL BLOCK 
INSERT 1/0 PACKET IN DEVICE QUEUE 
AND RETURN , 


THE END OF THE VOLUME. COMPLETE THE 
RATHER THAN WANDERING 


OFF INTO THE COMPLETION CODE BECAUSE THIS IS A GENERALLY CALLABLE ROUTINE. 


#SS$_ILLBLKNUM,IRP$L_IOST1(R3) ; SET ILLEGAL BLOCK NUMBER STATUS 


; ZERO 2ND I/O STATUS LONGWORD 
; INSERT AT TAIL OF I/O POST QUEUE 


; BRANCH IF NOT EMPTY 
; WAKE UP I/O COMPLETION 


PUSHL RS : 
MOVL R3,R5 : 
BSBW CHECK _ERASE 
POPL R5 
BLBC RO, 17$ : 
TSTL IRP$L_SVAPTE(R3) : 
BEQL 17g ; 
MOVZWL #512*127,RO 
CMPL R2,RO : 
BLEQU 17% g 
MOVL. RO,R2 

17$: CMPL R2,IRP$L_BCNT(R3) x ‘See 
BGEQU 20$ 
MOVL R2,IRP$L_BCNT(R3) 

20$: 
MOVL IRP$L_BCNT(R3) ,R2 
DECL R2 
ASHL #-VA$S_BYTE,R2,R2 
ADDL R1,R2 ‘ 
BCS 25$ :; 
CMPL R2,UCB$L_MAXBLOCK(RS) ; 
BGEQU -25$ ; 
MOVL R1,RO_ ; 
JSB GALOCS$CVTLOGPHY 
BRW EXEGINSIOQ ; 

'. TO HERE IF THE VIRTUAL BLOCKS MAP OFF 

; I/O WITH AN ERROR. WE QUEUE THE PACKET FOR PROCESSING, 

25$: MOVZWL 
CLRL IRP$L_I0ST2(R3) 
INSQUE (R3),@10C$GL_PSBL 
BNEQ 26$ 
SOFTINT #IPL$_IOPOST 

26$: RSB 

30$: 
_DISABLE LSB 

; ALTERNATE ENTRY TO IOC$WAKACP: 

: BSBW LOC$QTOACP 

; INPUTS: 

: R2 = DESIRED BYTE COUNT 

: R3 = IRP ADDRESS 

; PCB$W_DIOCNT(R4) ALREADY DECREMENTED 

LOC$QTOACP: 
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0518 835 


R4 ALTERED 
0518 836 


VO03-024 QUEUE NEXT SEGMENT 24-APR-1982 15:46:59 DISKS$VMSMASTER: [SYS.SRC]JIOCIOPOST. (6) 
32 A3 52 DO 0507 813 MOVL R2,IRP$L_BCNT(R3) ; SET REMAINING BYTES TO TRANSFER 
52 18 A3 DO O50B 814 MOVL IRP$L_WIND(R3) ,R2 ; GET WINDOW ADDRESS 
OB A2 02 EO OS0F 815 BBS #WCB$SV_NOTFCP,WCB$B_ACCESS(R2),- ; IF SET THEN 

4E 0513 816 NOTFCPWCB ; NOT FCP WINDOW 

52 1C AS DO 0514 817 MOVL IRP$L_UCB(R3) ,R2_ ' 3; GET ADDRESS OF DEVICE UCB 
0518 818 ; . 
0518 819 ; FUNCTIONAL DESCRIPTION: 
0518 820 ; 
0518 821 ; SUBROUTINE TO QUEUE AN-I/O PACKET FOR AN ACP PROCESS AND WAKE 
0518 822 ; THE PROCESS IF ITS QUEUE WAS PREVIOUSLY EMPTY. 
0518 823 ; 
0518 824 ; CALLING SEQUENCE: 
0518 825 ; 
0518 826 ; BSBW ITOCSWAKACP 
0518 827 ; 
0518 828 ; INPUTS: 
0518 829 ; 
0518 830 ; R2 = DEVICE UCB ADDRESS 
0518 831 ; R3 = I/0 REQUEST PACKET ADDRESS 
0518 832 ; 
0518 833 ; OUTPUTS: 
0518 834 ; 


;CDSO001 0518 a -ENABL LSB 
;CDSO001 0518 -2 IOCSWAKACP: : ; QUEUE 1/0 PACKET AND WAKE ACP PROCESS 
;CDSO001 0518 .3 DSBINT #IPL$ SYNCH ; SYNCHRONIZE ACCESS TO SYSTEM DATA BASE 
;CDSO001 52 34 A2 DO OSIE -4 MOVL UCB$L_VCB(R2),R2 ; GET ASSOCIATED VCB ADDRESS 
;CDSO0001 - 52 10 A2 DO 0522 25 MOVL VCB$L_AQB(R2),R2 ; GET ACP QUEUE BLOCK ADDRESS 
;CDSO001 OC A2 D5 0526 6 TSTL AQB$L_ACPPID(R2) ; PROCEDURE BASED? NO PID IF SO 
;CDSO0001 17 13° 0529 af BEQL XQP ; EQL THEN IS NOT AN ACP 
-4 FAD2‘ 30 0528 841 BSBw EXESINSERTIRP ; INSERT I/O PACKET IN ACP QUEUE 
OE 12 OQO52E 842 BNEQ 10$ ; IF NEQ NOT FIRST IN QUEUE 
51 OC A2 BO 0530 843 MOVL AQB$L_ACPPID(R2),R1 ; GET ACP PROCESS ID 
FAC9’ 30 0534 844 BSBw SCHSWAKE ; WAKE ACP PROCESS 
04 50 EB 0537 845 BLBS RO, 10$ ; IF LBS ACP STILL PRESENT 
053A 846 BUG_CHECK NONEXSTACP ; NONEXISTENT ACP PROCESS 
O53E 847 10$: ENBINT ; RESTORE SAVED IPL 
OS 0541 848 RSB ; 

0542 849 ; 
;CDSO002 0542 -1 >; THIS VOLUME IS BEING HANDLED BY AN XQP INSTEAD OF AN ACP. CALL THE 
;CDSO002 0542 -2 3; XQP QUEUEING ROUTINE AS A SPECIAL KERNEL AST TO GET IN THE CONTEXT 
;CDSO002 0542 -3 ; OF THE PROCESS THAT INITIATED THIS REQUEST TO HANDLE IT. 
;CDSO002 0542 Pe ae 
;CDSO002 0542 5 
;CDSO002 0542 -6 XQP: 
;CDSO002 55 DDB 0542 7 PUSHL RS ; PRESERVE R65. 
;CDSO0002 55 60 A3 9E 0544 .8 MOVAB IRP$L_FQFL(R3), RS ; GET TEMP ACB ADDR INTO R5. 
; CDSO002 OB A5 80 8F 90 0548 9 MOVB #ACB$M_KAST, ACB$B_RMOD(RS) ; NOTE AS SPECIAL KERNEL AST 
;CDSO002 OC AS OC A3 DO O54D .10 MOVL IRP$L_PID(R3), ACB$L_PID(RS5) ; COPY PID OF PROCESS. 
;CDSO002 0000’CF 9E 0552 11 MOVAB WAEXESQXQPFKT, ACBS$L_KAST(RS) ; ADDR OF QUEUEING ROUTINE. 

18 AS 0556 

; COSO002 52 D4 0558 .12 -CLRL R2 ; NO PRIORITY INCREMENT. 
;CDSO0002 FAA3’ 30 O55A 13 BSBW SCHSQAST ; QUEUE THE AST. 
; CDSO0002 55 8EDO O55D 14 POPL R5 ; RESTORE RS. 
;CDS0002 DC 11. O560 15 BRB 10$ ; BRANCH TO EXIT. 


;CDSO002 0562 .16 
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;CDSO002 
;CDSO002 
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0562 17 .DSABL LSB 

0562 .18 ; 

0562 850 ; WINDOW IS NOT AN FCP WINDOW, ONLY USED FOR BOOT TIME INTIALIZED WINDOWS 

0562 851 ; FOR CONTIGUOUS FILES. IT IS NOT POSSIBLE TO NEED TO TURN SUCH A WINDOW. 

0562 852 ; 

0562 853 NOTFCPWCB: 

0562 854 BUG_ CHECK NOTFCPWCB, FATAL 
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0566 
0566 
0566 
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0566 
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0566 
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0566 
0566 
0566 
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O56A 
O56E 
0572 
0577 
O57C 
OS7F 
0583 
0585 
0589 
058C 
0591 
0594 
0597 
059C 
05A3 
O5A6 
O5AA 
O5AC 
OSAF 
O5B2 
O5B4 
O5B7 
OSBA 
O5BD 
O5CO 
05C2 
05C5 
05C8 
O5CD 
O5D0 
O5D3 
O5D5 
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856 
857 
858 
859 
860 
861 
862 
863 
864 
865 


897 


ott 


ee we ee ee ee ee ee we ee ee we te we we ee we we we we lw 


BUFPOST: 


10$: 


20$: 


30$: 


35$: 
40$: 


-SBTTL 


3-JUN- 1984 
24-APR-1982 


FUNCTIONAL DESCRIPTION: 


11:26:47 
15:46:59 
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DI SKSVMSMASTER: [SYS.SRCJIOCIOPOST. (7) 


BUFFERED READ COMPLETION AST ROUTINE 


BUFPOST PERFORMS ALL NECESSARY COMPLETION OPERATIONS REQUIRED 
FOR A BUFFERED READ OPERATION IN THE CONTEXT OF THE PROCESS 
ISSUING THE 1/0 REQUEST. 


JSB 


R4 
RS 


SCH$GL_CURPCB - 


CALLING SEQUENCE: 


BUFPOST 


INPUT PARAMETERS: 


IRP/AST CONTROL BLOCK. 


IMPLICIT INPUTS: 


CURRENT PROCESS PCB ADDRESS. 


POINTER TO PCB OF 


CURRENT PROCESS 


; BUFFERED READ COMPLETION 
PUSHR #AMK<R5,RE,R7> ; SAVE REGISTERS 
MOVL IRP$L_ SVAPTE(RS5) ,R6 ; GET ADDRESS OF 1/0 BUFFER 
MOVL IRP$L ~BCNT(RS5), R7 GET COUNT OF BYTES OR DESCRIPTORS 
BBC #IRPSV_ COMPLX,IRP$W_ STS(R5), 40$ ;IF CLR, NOT COMPLEX BUFFER FORMAT 
BBS #IRPS$V_ CHAINED, IRP$W_ STS ths)"; 50$ ;IF SET ,CHAINED BUFFERS 
MOVL (R6),R6 ; GET ADDRESS OF FIRST BUFFER DESCRIPTOR 
MOVZWL 2(R6),RO ; GET COUNT OF BYTES TO TRANSFER 
BEQL 30$ ; IF EQL NONE THIS DESCRIPTOR 
MOVL 4(R6),R1 ; GET ADDRESS OF USER BUFFER 
ADDL 1,RO ; CALCULATE ENDING ADDRESS OF BUFFER 
BICW #VASM_BYTE,R1 ; TRUNCATE ADDRESS TO PAGE BOUNDARY 
SUBL 1,RO ; COMPUTE NUMBER OF BYTES TO PROBE 
MOVZWL (R6),R4 ; GET OFFSET TO DATA AREA 
CVTWL #-AX200,R3 ; SET ADDITION CONSTANT 
IFNOWRT RO, (R1),35$, (R6) [R44] ; CAN BUFFER BE WRITTEN? 
SUBL R3,R1 ;” UPDATE ADDRESS OF BUFFER 
MOVAW (RO) [R3],RO ; UPDATE REMAINING LENGTH 
BGTR 20$ ; IF GEQ MORE TO CHECK 
MOVC 2(R6),1(R6)[R4] ,@4(R6) ; MOVE DATA TO USER BUFFER 
MOVL (SP) ,R5 ; RESTORE ADDRESS OF I/0 PACKET 
ADDL #8,R6 ; ADVANCE TO NEXT BUFFER DESCRIPTOR 
SOBGTR 7,10$ 3; ANY MORE DESCRIPTORS TO PROCESS? 
BRW 1308 ; 
BRB 120$ ; CONTINUE 
BSBW MOVBUF ; MOVE BUFFER TO USER 
MOVL (SP) ,R5 ; RETRIEVE ADDRESS OF I/0 PACKET 
BBC #IRP$V_MBXIO,IRP$W_STS(R5),130$; BR IF NOT MAILBOX READ 
MOVZBL) #RSNG$_ MAILBOX, RO SET UP RESOURCE RELEASE 
BSBW SCHSRAVAIL ; DECLARE MAILBOX RESOURCE AVAILABLE 
BRB 130$ ; 
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OC 


55 
08 


oc 


03 


0138 


2C 
10 


AS 
AO 
OF 


F9OCB 


50 


56 
F2 


0123 


2C 


A5 


FOBC’ 


OOEO 


8F 


- I/O COMPLETION POSTING 


BUFFERED READ COMPLETION AST ROUTINE 


O5D5 
05D5 
O05D5 
0505 
05D8 
O5DC 
OSDF 
O5E4 
O5E7 
OSEA 
OSED 
OSF2 
OSF8 
OSFB 
OSFF 
0601 
0605 
0609 
O60B 
O60F 
0613 
0614 
0617 
061B 
061D 
0621 
0623 
0625 
0628 
062C 
0630 
0632 
0635 
0638 
063A 
063D 
0641 
0644 


911 
912 
913 
914 
915 
916 
917 
918 
919 


920 
921 
922 
923 
924 
925 
926 
927 
928 
929 


930 
931 
932 
933 
934 


936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 


; NB: 


. 
, 
+ 


50$: 


60$: 


70$: 


BOS: 


90$: 


100$: 
110$: 


120$: 
130$: 
140$: 
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24-APR-1982 15:46:59 DISKSVMSMASTER: [SYS.SRC]IOCIOPOST. (7) 


THE FOLLOWING SECTION OF CODE USES A WORD-SIZE BUFFER LENGTH 
(ALTHOUGH IRP$L_BCNT WAS EXPANDED TO BE A LONGWORD). 


MOVL 
MOVL 
ADDL 
BICW 
SUBL 
EXTZV 


CVTWL 
I FNOWRT 
SUBL 
MOVAW 
BGTR 
MOVL 
CMPW 
BGEQU 
MOVW 
MOVC 


MOVL 
SUBW 
BEQL 
MOVL 
BNEQ 
BRB 

BSBW 
MOVL 
MOVL. 
BEQL 
BSBW 
MOVL 
BRB 

BSBW 
MOVL 
BSBW 
POPR 


R7,RO 
4(R6),R1 
R1,RO 
#VA$M_BYTE,R1 


R1,RO 


#0,#2,IRP$B_ RMOD(RS),R2 


#-AX200,R3 
RO,(R1),90$,R2 

R3,R1 

(RO) [R3],RO 

60$ 

4(R6) ,R3 
R7,CXBSW_LENGTH(R6) © 
80$ 

R7,CXB$W_LENGTH(R6) 
CXB$W_LENGTH(R6) ,@(R6)+, 


(SP) ,RS5 
CXB$W_LENGTH-4(R6) ,R7 
100$ 
CXB$L_LINK-4(R6) .R6 
70$ 

100$ 

ACCVIO 
IRP$L_SVAPTE(R5) ,RO 
CXB$L_LINK(RO),R6 
140$ 
EXE$DEANONPAGED 
R6,RO 

110$ 

ACCVIO 
IRP$L_SVAPTE(RS5) ,RO 
EXESDEANONPAGED 
#AMKR5 ,R6,R7> 


we we we we we we 


wee we we we te ee ee ee ee ee ee we ee we 


SET LENGTH OF USER BUFFER 

SET ADDRESS OF USER BUFFER 
CALCULATE END OF USER BUFFER 
TRUNCATE TO PAGE BOUNDARY 
COMPUTE NUMBER OF BYTES TO PROBE 
GET REQUEST ACCESS MODE 


SET ADDITION CONSTANT 

CAN BUFFER BE WRITTEN? 

UPDATE ADDRESS OF BUFFER 

CALCULATE NEW LENGTH 

IF GEQ MORE TO PROBE 

GET STARTING ADDRESS OF USER BUFFER 
REMAINING LENGTH LARGER THAN DATA AREA? 
IF GEQU YES 

TRUNCATE LENGTH OF DATA AREA 


R3) ; MOVE DATA TO USER BUFFER 


RETRIEVE ADDRESS OF I/O PACKET 
REDUCE REMAINING BYTES TO TRANSFER 
IF EQL DONE 

GET ADDRESS OF NEXT BUFFER IN CHAIN 
IF NEQ MORE TO GO 


SET ACCESS VIOLATION 

GET ADDRESS OF FIRST BUFFER 
GET ADDRESS OF NEXT BUFFER 
IF EQL NONE © 

DEALLOCATE BUFFER 

SET ADDRESS OF NEXT BUFFER 


SET ACCESS VIOLATION STATUS 

GET ADDRESS OF BUFFER TO RELEASE 
DEALLOCATE BUFFER 

RESTORE REGISTERS 
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0648 948 .SBTTL DIRECT I/0 COMPLETION AST ROUTINE 
0648 949 ;++ 
0648 950 ; FUNCTIONAL DESCRIPTION: 
0648 951 ; 
0648 952 ; DIRPOST PERFORMS ALL GENERAL I/O COMPLETION ACTIVITIES WHICH 
0648 953 ; MUST BE DONE IN THE CONTEXT OF THE PROCESS. THESE INCLUDE 
0648 954 ; I/O STATUS POSTING IF AN IOSB WAS SPECIFIED, CHANNEL CONTROL 
0648 955 ; BLOCK ACTIVITY COUNT DECREMENTING, QUEUEING OF ANY REQUESTED 
0648 956 ; AST OR RELEASE OF THE I/O REQUEST PACKET. 
0648 957 ; 
0648 958 ; CALLING SEQUENCE: 
0648 959 ; 
0648 960 ; JSB DIRPOST 
0648 961 ; 
0648 962 ; INPUT PARAMETERS: 
0648 963 ; 
0648 964 ; R4 = CURRENT PROCESS PCB ADDRESS. 
0648 965 ; R5 = IRP/AST CONTROL BLOCK ADDRESS. 
0648 966 ; 
0648 967 ; IMPLICIT INPUTS: 
0648 968 ; 
0648 969 ; SCH$GL_CURPCB - POINTER TO CURRENT PCB 
0648 970 ;-- 
0648 971 
0648 972 DIRPOST: ; DIRECT 1/0 POSTING AST 
01 OO EF 0648 973 EXTZV  #IRP$V_BUFIO,#1,IRP$W_STS(R5),RO ; GET INDEX TO ACCOUNTING ENTRY 
50 2A AS 064B 
00000000’9F DO O64E 974 MOVL @#CTL$GL_PHD,R1 ; GET PROCESS HEADER ADDRESS 
51 0654 
54 A140 D6 0655 975 INCL PHD$L_DIOCNT(R1) [RO] ; ACCOUNT FOR BUFFERED OR DIRECT 1/0 
0659 976 
00000002 0659 977 .IF NE CA$ MEASURE ; CHECK FOR MEASUREMENT ENABLED 
O00000000’EF40 06 0659 978 INCL PMS$GL_DIRIO[RO] ; UPDATE MEASUREMENT I/O COUNTER 
0660 979 . ENDC . 
0660 980 . 
1D 24 AS O7 £1 0660 QB81 BBC #IRP$V_DIAGBUF,IRP$W_STS(R5),10$ ; IF CLR, NO DIAGNOSTIC BUFFER 
OOEO 8F BB 0665 982 PUSHR  #AM<R5,R6,R7> ; SAVE REGISTERS 
56 4C AS DO O669 983 MOVL IRP$L_DIAGBUF(R5) ,R6 ; GET ADDRESS OF DIAGNOSTIC BUFFER 
57 08 A6 3C O66D 984 MOVZWL IRP$W_SIZE(R6),R7 ; GET SIZE OF DIAGNOSTIC BUFFER 
57 OC C2 0671 985 SUBL #12,R7 ; REDUCE BY SIZE OF BUFFER HEADER 
o0CC 30 0674 986 BSBW MOVBUF ; MOVE DIAGNOSTIC INFORMATION TO USER 
OO0EO 8F BA 0677 987 POPR #AM<R5 ,R6,R7> ; RESTORE REGISTERS 
50 4C A5 DO O67B- 988 MOVL IRP$L_DIAGBUF(RS5) ,RO ; RETRIEVE ADDRESS OF DIAGNOSTIC BUFFER 
FO7E’ 30 O67F 989 BSBW EXE$DEANONPAGED ; DEALLOCATE DIAGNOSTIC BUFFER 
50 28 A5 32 0682 990 10S: CVTWL I RP$W_CHAN(R5) ,RO ; GET CHANNEL NUMBER (NEGATED) 
QO000000’FF40 9E 0686 991 MOVAB @CTL$GL_CCBBASE[ROJ],R1 ; SET CCB BASE ADDRESS 
51 068D 
OA Al B7 O68E 992 DECW CCB$W_IOC(R1) ; DECREMENT 1/0 COUNT FOR CHANNEL 
13 12 0691 993 BNEQ 30$ ; NOT IDLE YET 
53 OC Al DO 0693 994 MOVL CCB$L_DIRP(R1),R3 ; GET ADDRESS OF DEACCESS PACKET 
OD 13 0697 995 BEQL 30% ; IF EQL NONE 
OC Al D4 0699 996 CLRL CCB$L_DIRP(R1) ; CLEAR ADDRESS OF DEACCESS PACKET 
OA Al B6 O69C 997 INCW CCB$W_IOC(R1) ; ACCOUNT FOR DEACCESS 
;LUK45299 52 1C AS DO O69F 4 MOVL IRP$L_UCB(R3) ,R2 ; GET ASSIGNED DEVICE UCB ADDRESS 
-1 FE72 30 O6A3 999 BSBW IOCSWAKACP ; QUEUE I/O PACKET AND WAKE ACP 
O6A6 1000 ; R4 ALTERERED 
O6A6 1001 30$: 
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O6A6 1002 ; 
O6A6 1003 ; R4 DOES NOT NECESSARILY HAVE CURRENT PCB ADDRESS IN IT AT THIS POINT 
O6GAG 1004 ; 
O6A6 1005 ILOC$DIRPOST1:: 
50 24 AS DO O6A6- 1006 MOVL IRP$L_IOSB(RS) ,RO ; GET IOSB ADDRESS 
~ 10 13. O6GAA 1007 BEQL 35$ ; IF EQL NONE SPECIFIED 
02 00 EF OQO6AC 1008 EXTZV #0,#2,IRP$B_RMOD(R5),R1 ; GET REQUEST ACCESS MODE 
51 OB A5 O6GAF 
O06B2 1009 IFNOWRT #8, (RO),35$,R1 ; CAN I/O STATUS BE WRITTEN? 
60 38 A5 70 O6BB 1010 MOVQ IRP$L_IOST1(R5), (RO) ; MOVE STATUS INTO IOSB . 
51 OC A5 DO O6BC 1011 35$: MOVL IRP$L_PID(RS),R1 ; PROCESS IDENTIFICATION 
3; WMC0020 17 2A AS OB EO O6CO at BBS #IRP$V_EXTEND,IRP$W_STS(R5),50$ ; BRANCH TO DEALLOCATE IRPE’S 
;WMCO0020 05 OB AS 06 E1 O6C5 -2 37$: BBC #ACB$V_QUOTA,IRP$B_ RMOD(R5),40$ ; IF CLR, NO AST SPECIFIED 
;WMCO020 52 D4 O6CA .3 CLRL R2 ; SET NULL PRIORITY INCREMENT 
;WMCO020 F931’ 31 O6CC 4 BRW SCHSQAST ; QUEUE AST FOR REQUESTOR 
;5TJ3049 OA E1 O6CF -5 40$: BBC #I10$V_ERASE,~- ; BRANCH IF. NOT AN ERASE REQUEST 
3;STJ3049 02 20 AS 0601 .6 IRP$W_FUNC(R5) , 424 é 
;STJU3049 1F 10 O6D4 ot BSBB CLEANUP_ERASE ; CLEAN UP AFTER AN ERASE REQUEST 
;5TJ3049 50 55 DO O6D6 -8 42¢: MOVL R5,R0 ; SETUP ADDRESS FOR DEALLOCATE 
;STJ3049 F924’ 31 O6D9 9 BRW EXE$SDEANONPAGED ; AND RELEASE 1/0 PACKET 
;STU3049 O6DC .10 
-11 O6DC 1023 ; 
O6DC 1024 ; DEALLOCATE IRPE‘S 
O6DC 1025 ; 
O6DC 1026 
50 54.A5 DO O6DC 1027 50$: MOVL IRP$L_EXTEND(R5) ,RO ; GET ADDRESS OF FIRST IRPE 
OG6EO 1028 
54 D4 O6EO 1029 60$: CLRL R4 ; WILL HOLD ADDRESS OF NEXT IRPE 
04 2A AO 0B E1 O6E2 1030 BBC #IRPESV_EXTEND, IRPE$W_STS(RO),70$ ; BR. IF NO MORE IRPE’S 
54 54 AO DO O6E7 1031 MOVL IRPE$SL_EXTEND(RO) ,R4 ; SAVE ADDRESS OF NEXT IRPE 
F912’ 30 OQO6EB 1032 70$: BSBW EXE$SDEANONPAGED ; DEALLOCATE IRPE POINTED TO BY RO 
50 54 DO O6EE 1033 MOVL R4,RO ; PUT ADDRESS OF NEXT IRPE IN RO 
ED 12 O6F 1 1034 BNEQ 60$ ; BR. IF THERE IS ANOTHER IRPE 
DO 11. QO6F3 1035 BRB 37$ ; DONE DEALLOCATING IRPE’S 
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;WMCO019 O6F5 Se .SBTTL ERASE I/O HELPER ROUTINES 
;WMCO019 O6F5 “2 stt+ 
;WMCO019 O6F5 .3 ; CLEANUP ERASE 
;wMCO019 O6F5 re ; 
;wMCO019 O6F5 £5 ; LOCAL SUBROUTINE TO FINISH PROCESSING AN ERASE REQUEST 
;wMCOO019 O6F5 .6 ; THE CLEANUP WILL VARY WITH THE TYPE OF ERASE REQUEST. 
;wMCO019 O6F5 ae ; SEE THE ROUTINE HEADER OF THE SUBROUTINE "SETUP_ERASE" 
;WMCO0O19 O6FS5 .8 ; IN SYSACPFDT FOR DETAILS. 
;wMCO019 O6F5 .9 ; 
;wMCO019 O6F5 .10 ; INPUT: R5 = IRP ADDRESS 
;wMCO0O19 O6F5 .11 ; OUTPUT: NONE. 
;wMCO0O19 O6F5 x2 ;-- 
;wWMCO019 O6F5 <2 
;WMCOO19 O6F5 .14 CLEANUP_ERASE: ; FINISH UP AFTER AN ERASE REQUEST 
;wMCO0O19 19 10 O6FS 215 BSBB CHECK_ERASE ; IS THIS AN ERASE I/0? 
;wWMCO019 15 50 EQ O6F7 .16 BLBC RO, 69$ ; BRANCH IF NOT 
;wMCO019 50 2C AS DO O6FA le; MOVL IRP$L_SVAPTE(RS) ,RO ; GET ADDRESS OF PPT 
;wMCOO19 OF 13. O6FE .18 BEQL 69 ; BRANCH IF NONE 
;wMCOO019 00000000’ GF D1 0700 .19 CMPL GAEXE$GL_ERASEPPT,RO ; IS THIS THE SYSTEM PPT? 
50 0706 
;WMCOO19 06 13. 0707 .20 BEQL 69$ ; BRANCH IF VES 
;wMCOO19 50 Oc C2 0709 ra SUBL2 #12,RO ; CALC ADDRESS OF HEADER 
;wMCO019 F8F1‘ 30 0O70C 22 BSBW EXE$DEANONPAGED ; RETURN THE POOL TO THE SYSTEM 
;wMCO019 05 O70F .23 69$: RSB ; RETURN 
;wMCO019 0710 .24 
;wMCO019 0710 225 
;WMCO019 0710 -26 ;++ 
;wMCOO19 0710 .27 ; CHECK ERASE 
;wMCO019 0710 .28 ; 
;WMCOO019 0710 .29 ; LOCAL SUBROUTINE TO DETERMINE IF THIS IRP IS FOR AN ERASE I1/0 REQUEST. 
;wWMCO019 0710 .30 ; THIS LEVEL OF PARANOIA IS NECESSARY TO PREVENT THE TOTAL CHAOS THAT 
;WMCO019 0710 .31 ; WOULD ARISE SHOULD AN IRP THAT ‘LOOKS’ LIKE AN ERASE IRP BE TREATED 
;wWMCO019 0710 .32 ; INCORRECTLY. 
;wMCO019 0710 yaar x 
;wWMCO019 0710 .34 ; INPUT: R5 = IRP ADDRESS 
;wMCOG19 0710 .35 ; OUTPUT: RO = STATUS; LOW BIT SET IMPLIES THIS IS AN ERASE IRP 
;wMCOO19 0710 .36 ;-- 
;WMCO019 0710 .37 
;WMCOO19 0710 .38 CHECK_ERASE: ; CHECK FOR ERASE 1/0 REQUEST 
;WMCO0O19 50 1C AS DO 0710 .39 MOVL IRP$L_UCB(R5),RO ; GET UCB ADDRESS. NOTE: LOW BIT CLEAR 
;wMCO019 OA E1 0714 .40 BBC #10$V_ERASE,- ; BRANCH IF ERASE MODIFIER NOT SET 
;wMCO019 29 20 AS - 0716 .41 IRP$W_FUNC(RS),13$ ; 
;wMC0019 00 ED 0719 42 CMPZV #IRP$V_FCODE,- ; CHECK FUNCTION CODE 
;wMCOO19 06 071B £43 #IRP$S FCODE,- ; ONLY DISKS AND TAPES SUPPORT DSE 
;WMCO019 15 20 AS 071C .44 IRP$W_FUNC(RS),#10$ DSE ; 
;wMCO019 1E 13. O71F .45 BEQL 11$ ; BRANCH IF SO 
;wMCO019 01 91 0721 .46 CMPB #DC$_DISK,- ; IS THIS A DISK DEVICE? 
;wMCO019 40 AO 0723 AT UCB$B_DEVCLASS(RO) ; 
;wMCO019 1B 12 0725 . 48 BNEQ 13$ ; NO - THEREFORE NOT AN ERASE 
;wMCO019 00 ED: 10727 .49 CMPZV #IRP$V_FCODE, - ; CHECK FUNCTION CODE 
;wMCOO19 06 0729 .50 #IRP$S_FCODE,- ; ONLY DISKS SUPPORT THE, MODIFIED- 
;wMCO019 20 AS O72A 57 IRP$W_FUNC(R5),- ; WRITE TYPE OF ERASE REQUEST 
;wMCO019 OB O72C 52 #10$ WRITEPBLK ; 
;WMCO019 10 13. 072D ves BEQL 11$ 
;wMCO019 00 ED 0O72F .54 CMPZV #IRP$V_FCODE,- 
;WMCOO19 06 0731 .55 #IRP$S FCODE,- 


;WMCO019 20 A5 0732 .56 IRP$W_FUNC(RS5) ,- 
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;WwMCOO19 20 0734 57 #10$ WRITELBLK 

;WMCOQ19 08 13 0735 °#£«.58 BEQL 11$ 

;wWMCO019 00 ED 0737 59 CMPZV #IRP$V_FCODE, - 

;wMCO019 06 : 0739 .60 #IRP$S FCODE,- 

;WMCO0019 20 AS 073A 61 IRP$W_FUNC(R5) ,- 

;WwMCOO19 30 073C 62 #10$ WRITEVBLK 

;WMCO019 03 12 0O73D .63 BNEQ 13$ ; NOT A WRITE - THEREFORE NOT AN ERASE 


;WMCO019 50 01 88 O73F .64 11$: BISB2 #1,RO ; SET LOW BIT IN RO TO INDICATE ERASE 
+ WMCOO019 05 0742 .65 13$: RSB ; RETURN STATUS VALUE 
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V03-024 MOVE DATA TO USER BUFFER 24-APR-1982 15:46:59 DISK$VMSMASTER: [SYS.SRC]IOCIOPOST(10) 
0743 1037 .SBTTL MOVE DATA TO USER BUFFER 
0743 1038 ; 
0743 1039 ; SUBROUTINE TO MOVE DATA FROM A SIMPLE BUFFERED I/0 BUFFER TO A USER BUFFER 
0743 1040 
0743 1041 
0743 1042 MOVBUF: ; MOVE BUFFER 
51 57 DO 0743 1043 MOVL R7,R1 3; SET LENGTH OF USER BUFFER 
17 13 O746 1044 BEQL 5$ ; BR IF NULL STRING 
50 04 A6 DO 0748 1045 MOVL 4(R6),RO ; GET ADDRESS OF USER BUFFER 
02 00 EF O74C 1046 EXTZV #0,#2,IRP$B_RMOD(RS),R3 ; GET REQUEST ACCESS MODE 
53 OB AS O74F 
00000000’EF 16 0752 1047 JSB EXESPROBEW ; CHECK ACCESS 
05 50 E—9 O758 1048 BLBC RO,ACCVIO ; IF LBC, NO ACCESS 
96 96 57 28 O75B 1049 MOVC R7,@(R6)+,@(R6)+ ; MOVE DATA TO USER BUFFER 
O05 O75F 1050 5$: RSB ; RETURN 
38 A5 OC BO 0760 1051 ACCVIO: MOVW #SS$_ACCVIO,IRP$L_IOST1(R5S) ; SET FINAL TRANSFER STATUS 


O05 0764 1052 RSB 


TOCIOPOST 
VO03-024 


55 
53 


52 
51 


53 
52 


51 


D7 2A AS 


51 O1FF 
51 


55 


54 AS 
2C AS 


30 AS 
34 AS 


38 AS 


3C AS 
40 AS 


C142 
F7 8F 

51 
F85E 


- I/O COMPLETION POSTING 
UNLOCK AREAS IN IRPE’S 


DD 


9E 
78 


30 


0765 
0765 
0765 
0765 
0765 
0765 
0765 
0765 
0765 
0765 
0765 
0765 
0765 
0765 
0765 
0765 
0765 
0765 
0765 
0765 
0765 
0765 
0765 
0765 
0767 
0767 
0767 
0767 
076B 
O76F 
0771 
0775 
0779 
077B 
077B 
O77F 
0781 
0785 
0789 
078B 
0788 
0790 
0793 
0794 
0794 
0794 
0794 
0794 
0794 
0794 
0794 
0794 
0794 
O79A 
O79E 
O79F 
O7A2 


1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 

1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 

1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 

1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 

1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 

1102 
1103 
1104 
1105 
1106 
1107 


1108 
1109 


wh we we we we Oe te we we we we ee wh we we we we we 


SBTTL 
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UNLOCK AREAS IN IRPE‘’S 


FUNCTIONAL DESCRIPTION: 


THIS ROUTINE UNLOCKS THE AREAS DESCRIBED BY FIELDS IN THE IRPE’S. EACH 
IRPE HAS SPACE TO HOLD TWO AREA DESCRIPTIONS. 


BSBW 


CALLING SEQUENCE: 


UNLOCK_MORE 


INPUT PARAMETERS: 


R5 = I/0 REQUEST PACKET ADDRESS 


SIDE EFFECTS: 


RO - R83 


ASSUME 


UNLOCK_MORE: 


10$: 


20$: 


30$: 


UNLK: 


PUSHL 


ARE NOT PRESERVED 


IRP$L_EXTEND EQ IRPE$L_EXTEND 


R5 ; SAVE IRP ADDRESS 


; UNLOCK AREAS SPECIFIED IN NEXT IRPE 


MOVL 
MOVL 
BEQL 
MOVZWL 
MOVL 
BSBB 


MOVL 
BEQL 
MOVZWL 
MOVL — 
BSBB 


BBS 


POPL 
RSB 


LOCAL 


we we we we ee we we 


MOVAB 
ASHL 


BSBW 
RSB 


IRPE$SL_EXTEND(RS) ,R5 
IRPE$L_SVAPTE1(R5),R3 
20$ 
IRPE$W_BOFF1(R5) ,R2 
IRPE$L_BCNT1(R5),R1 


GET ADDRESS OF NEXT IRPE 
GET SVAPTE OF FIRST AREA 
BR. IF NOTHING TO UNLOCK 
GET BYTE OFFSET IN PAGE 
GET SIZE OF AREA 


we ee we wt ee we 


UNLK UNLOCK FIRST AREA 
IRPE$L_SVAPTE2(R5),R3  .; GET SVAPTE OF SECOND AREA 
30$ BR. IF NOTHING TO UNLOCK 


IRPE$W_BOFF2(R5),R2 
IRPE$L_BCNT2(R5),R1 
UNLK 


GET BYTE OFFSET IN PAGE 
GET SIZE OF AREA 
UNLOCK SECOND AREA 


we ee we we 


#IRPES$V_EXTEND,IRPESW_STS(R5),10$ ; BR. IF THERE’S ANOTHER IRPE 
RS ; RESTORE R5 


SUBROUTINE TO UNLOCK PAGES 


R1 = BYTE COUNT (OR SIZE OF AREA) 

R2 = BYTE OFFSET IN PAGE 

R3 = SVAPTE OF START OF AREA 

511(R1)(R2],R1 ; COMBINE OFFSET AND SIZE AND ROUND 


#-VA$S BYTE,R1,R1 ; CONVERT TO NUMBER OF PAGES TO UNLOCK 


MMGS$UNLOCK 3; UNLOCK PAGES 
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O7A3 1110 
O7A3 1111 
O7A3 1112 . END 
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ACB$B_RMOD = 0000000B IRP$L_AST = 90000010 
ACB$L_KAST = 00000018 IRP$L_ASTPRM = 00000014 
ACB$L_PID = 0000000C IRP$L_BCNT = 00000032 
ACB$M_KAST = 00000080 IRP$L_DIAGBUF = 0000004C 
ACB$V_QUOTA = 00000006 IRP$L_EXTEND = 00000054 
ACCVIO 00000760 R 02 IRP$L_FQFL = 00000060 
AQB$L_ACPPID = 0000000C IRP$L_IOSB = 00000024 
BRW_QNXTSEG OOOOOOBE R 02 IRP$L_IOST1 = 00000038 
BUFIO 0000011C R 02 IRP$L_IOST2 = 0000003C 
BUFPOST 00000566 R 02 IRP$L_KEVDESC = 0000005C 
BUG$_NONEXSTACP #RRRHKER X02 IRP$L_OBCNT = 00000044 
BUG$_NOTFCPWCB HHKKREKE XZ IRP$L_PID = 0Q000000C 
CA$_MEASURE = 00000002 IRP$L_SEGVBN = 00000048 
CCB$L_DIRP = 0000000C IRP$L_SVAPTE = 0000002C 
CCB$W_IOC = 0000000A IRP$L_UCB = 0000001C 
CHECK_ERASE 00000710 R 02 IRP$L_WIND = 00000018 
CLEANUP_ERASE OOOOO6F5 R 02 IRP$M_PAGIO = 00000004 
CTL$GL_CCBBASE FEKKEEEE xX = 02 IRP$M_SWAPIO = 00000040 
CTL$GL_PHD RERKKKER X02 IRP$M_VIRTUAL = 00000010 
CXB$L_LINK = 00000010 IRP$S_FCODE = 00000006 
CXB$W_LENGTH = 9000000C IRP$V_BUFIO = 00000000 
DC$_DISK = 00000001 IRP$V_CHAINED = 00000005 
DEV$V_FOD = O000000E IRP$V_COMPLX = 00000003 
DEV$V_SQD = 00000005 IRP$V_DIAGBUF = 00000007 
DIRIO 00000064 R 02 IRP$V_EXTEND = 00000008 
DIRPOST 00000648 R 02 IRP$V_FCODE = 00000000 
EVT$_COLPGA eREEERE X02 IRP$V_FILACP = 0000000C 
EVT$_PFCOM RRRKKRER X02 IRP$V_FUNC = 00000001 
EXE$DEANONPAGED #eKEREEE X= 02 IRP$V_KEY = 0000000F 
EXE$GL_ERASEPPT RHKRHRKR  X — O2 IRP$V_MBXIO = 0000000A 
EXESINSERTIRP RRKRRERE  X — Q2 IRP$V_PAGIO = 00000002 
EXESINSIOQ ceeeeEER =X 602 IRP$V_PHYSIO = 00000008 
EXE$PROBEW HEHEEEER =X 02 IRP$V_SWAPIO = 00000006 
EXE$QXQPPKT ARRREKER XK 2 IRP$V_TERMIO = 00000009 
IO$V_ERASE = 00000004 IRP$V_VIRTUAL = 00000004 

- 10$_DSE = 90000015 IRP$W_BOFF = 00000030 
10$_WRITELBLK = 00000020 IRP$W_CHAN = 00000028 
I10$_WRITEPBLK = 0000000B IRP$W_FUNC = 00000020 
I10$_WRITEVBLK = 00000030 IRP$W_SIZE = 00000008 
IOC$BUFPOST 00000122 RG 02 IRP$W_STS = 0000002A 
IOC$CVTLOGPHY HHKKEREE XX = 2 IRPESL_BCNT1 = 00000034 
IOC$DIRPOST1 OO0006A6 RG 02 IRPE$L_BCNT2 = 00000040 
IOC$GL_PSBL RKRKRKK X= 02 IRPE$L_EXTEND = 00000054 
IOC$GL_PSFL #RRKHEKE  X 2 IRPE$L_SVAPTE1 = 0000002C 
IOC$IOPOST 00000004 RG 02 IRPESL_SVAPTE2 = 00000038 
IOC$MAPVBLK AHKKEREKE X 2 IRPESV_EXTEND = 00000008 
TOC$QNXTSEG QO00046F RG 02 IRPESW_BOFF1 = 00000030 
ITOC$QNXTSEG1 0000047B RG 02 IRPESW_BOFF2 = 0000003C 
ITOC$QTOACP 00000507 'R 02 IRPESW_STS = 0000002A 
IOCSWAKACP 00000518 RG 02 JIB$L_BYTCNT = 00000020 
IOPOST Q000000D R 02 MMG$DECPHDREF 1 44KeeEHE CX | O2 
IPL$_IOPOST = 00000004 MMG$GL_MAXPFN RKKKKREK xX 2 
IPL$_ SYNCH = 00000008 MMGS$GL_SYSPHD FRKKEEER =X 2 
IRP$B_EFN = 00000022 MMG$INSPFNT AeKKKREE =X = 02 
IRP$B_RMOD = 00000008 MMGSREFCNTNEG HEKHEHEKHE  X — O2 
IRP$C_LENGTH = 000000C4 MMG$RELPFN HEKRHEKE X02 
IRP$L_ABCNT = 00000040 MMG$ SUBSECREF AKERREKE xX 02 


IOCIOPOST 
Symbol] table 


MMG$UNLOCK 
MMG$UPDSECAST 
MOVBUF 

NOTACP 
NOTFCPWCB 
PAGIO 

PAGIO DONE 
PAGIO_DONE1 
PAGIO_DONE2 
PAGIO_ ERR 
PAGIO_ERR_DONE 
PAGIO_KAST 
PAGIO_OR_SWAPIO 
PAGRD_DONE 
PAGRD_ERR 
PAGWRT_ERR 
PAGWRT_ERR1 
PAGWRT_ERR_DONE 
PCB$L_JIB 
PCB$L_PHD 
PCB$W_BIOCNT 
PCB$W_DIOCNT 
PFN$AB_STATE 
PFN$AB_TYPE 
PFN$AL_BAK 
PFNSAW_REFCNT 
PFNSAW_SWPVBN 
PFN$C_ACTIVE 
PFN$C_BADPAGLST 
PFN$C_PPGTBL 
PFNSC_RDERR 
PFN$M_COLLISION 
PFN$M_DELCON 
PFN$M_PAGTYP 
PFN$V_COLLISION 
PFN$V_GBLBAK 
PFN$V_MODIFY 
PFN_IO_DONE 
PHD$L_DIOCNT 
PHD$W_PHVINDEX 
PMS$END_RQ 
PMS$GL_DIRIO 
PMS$GL_SPLIT 
PMS$START_RQ 
PRG IPL 
PR$_SIRR 
PRI$_IOCOM 
PRI$ NULL 

PRI$ TICOM 
PRI$ TOCOM 
PRITBL 
PTESM_OWN 
PTE$M_PROT 
PTE$S PFN 
PTE$V_PFN 
PTE$V. VALID 
QNXTSEG 
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00000743 
0000012D 
00000562 
0000018B 
00000218 
00000239 
00000240 
000002E3 
0000026B 
00000277 
000000C1 
000001D6 
00000297 
000001D3 
00000326 
OOOOOICF 
00000080 
ooo0c0é6c 
0000003A 


OOO00003E 
RRR KR KR K 


2 KK ORR OK K 
kK RK RK 
KOK KKK RK 
RRR ROKK 
00000007 
00000002 
00000004 
00000004 
00000010 
00000010 
00000007 
00000004 
00000017 
00000007 
0000037B 
00000054 


00000042 
eR OK RK 


OK OK ROK OK Ok 
ROR ROKR ORK 
ROKK ORK ROK 


00000012 
00000014 
00000001 
00000000 
00000004 
00000003 
00000000 
01800000 
78000000 
00000015 
00000000 
O0000001F 
00000408 
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R 


x KKK O&K 


xx & & 


02 


02 


RSN$_ASTWAIT 
RSN$_ MAILBOX 
SCH$GL_PCBVEC 
SCH$GQ_COLPGWQ 
SCH$POSTEF 
SCH$QAST 
SCHSRAVAIL 
SCH$RSE 
SCH$WAKE 
SS$_ACCVIO 
SS$_ILLBLKNUM 
SS$_INCSEGTRA 
TMP... 
UCB$B_DEVCLASS 
UCB$L_DEVCHAR 
UCB$L_MAXBCNT 
UCB$L_MAXBLOCK 
UCB$L_VCB 
UCB$W_QLEN 
UNLK 

UNLOCK 
UNLOCK_MORE 
VA$M_BYTE 
VA$S_BYTE 
VA$V_VPN 
VCB$L_AQB 
VIRTUAL_LOGIO 
wCB$B_ACCESS 
wCB$V_NOTFCP 
WQH$W_WQCNT 
XQP 


3-JUN- 1984 
24-APR-1982 


11:26: 
15:46: 


ou ot oot 


47 VAX-11 


00000001 


00000002 
4 OOK ORR 


ORK KR ROKK 
2B ROKR ROKK 
AK KA AK K 
ARK RRR KR 
BRR KR AK K 
ok KK KOK OK 


0000000C 
ooo000nC 
00002234 
00000000 
00000040 
00000038 
00000084 
O0O00000B0 
00000034 
OOOO006A 
00000794 
00000091 
00000765 
OOOO01FF 
00000009 
00000009 
00000010 
OO0003AC 
0000000B 
00000002 
00000008 
00000542 
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11:26:47 
15:46:59 


3-JUN-1984 VAX-11 


24-APR-1982 


toe oe rr ree + 
! Psect synopsis ! 
+-—------- + 

PSECT name Allocation PSECT No. Attributes 
. ABS ooo00c000§ ¢ Oo.) OO € O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD 
$ABS$ ooo00000 Oo.) O1 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD 
$AEXENONPAGED OOO0007A3 ( 1955.) 02 ( 2.) NOPIC USR CON REL LCL NOSHR EXE RD 

+--------- - - - - + 

! Performance indicators ! 

toe ne rrr + 
Phase Page faults CPU Time Elapsed Time 
Initialization 9 00:00:00.09 00:00:02.62 
Command processing 74 00:00:00.57 00:00:04.90 
Pass 1 568 00:00:27.01 00:01:48.68 
Symbo) table sort 0 00:00:03.89 00:00:13.26 
Pass 2 250 00:00:07.44 00:00:51.36 
Symbol table output 23 00:00:00. 20 00:00:00.73 
Psect synopsis output 3 00:00:00.03 00:00:00.20 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 930 00:00:39.24 00:03:01.76 
The working set limit was 1950 pages. 
141145 bytes (276 pages) of virtual memory were used to buffer the intermediate code. 
Tnere were 130 pages of symbol table space allocated to hold 2474 non-local and 100 local symbols. 


1388 source lines were read 
41 pages of virtual 


Macro library name 


$255$DUA28:([SYS.OBJ]LIB.MLB; 1 


_$255$DUA28: [SYSLIB] STARLET .MLB; 2 
TOTALS (all libraries) 


2625 GETS were required to define 
There were no errors, warnings or 


MACRO/LIS=LIS$: IOCIOPOST/OBJ=OBJ$ 


in Pass 
memory were used to define 40 macros. 


1, producing 20 object records 


! Macro 


library statistics ! 


37 macros. 
information messages. 


: IOCIOPOST MSRC$: IOCIOPOST/UPDATE=(ENH$ 


in Pass 2. 


: IOCIOPOST )+EXECML$/LIB 
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NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
WRT NOVEC LONG 
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DRIVERS SUBROUTINES 3-JUN-1984 10:56:56 VAX-11 Macro VO03-01 Page 1 
24-APR-1982 15:46:24 DISK$VMSMASTER: [SYS.SRC]COMDRVSUB. (1) 


.TITLE COMDRVSUB - COMMUNUCATION DRIVERS SUBROUTINES 
-IDENT ‘’VO03-007’ 


0 RK A KK RRR aR RK OR KOR OR RRO RRR KK RK RK KKK RK ROK KR KR KOK KR RK KR KR ROR KOK KOK OK KKK ROK KE KKK KK KOK EK KOK KK 


. * 
;* COPYRIGHT (c) 1978, 1980, 1982 BY * 
3;* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
;* ALL RIGHTS RESERVED. * 
-* * 
3;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
3 * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
se COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS'~ HEREBY * 
3 * TRANSFERRED. * 
-* * 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
;* CORPORATION. * 
-* * 
3 * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
al SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
-* * 
3 * * 
KKK KKK KK KK RK KK KKK RK K KKK KKK KKK KK KEK KE KK ARK KEE KKK KEE KAKA KK KAKA KE KRKKKEKAKEKR KKK KEK 
str 

FACILITY: 

VAX/VMS I/O DRIVERS _ 
ABSTRACT: 
AUTHOR: 


R.HEINEN 8-SEPT-1977 


’ 


REVISION HISTORY: 


VO3-007 MHBO0137 Mark Bramhal]1 12-Apr-1984 
Define minimum deallocatable block size as FKB$C_LENGTH. 
Restore stacked register after BADDALRQSZ bug check. 


V03-006 RKSOO6 RICK SPITZ 2-MAR-1984 
Make sure that TAST is removed from UCB queue when 
TAST replaced and currently busy. 


V03-005 DWT0157 David W. Thiel 30-DEC-1983 
Modify COM$DRVDEALMEM to avoid unnecessary forks. 


V03-004 JLVO0272 Jake VanNoy 14-JUN-1983 
Add abort I/0 flag to out of band logic. Also 
add new entry points for checking PIDs to qualify 
AST delivery. 


% 
‘J 
’ 
’ 
’ 
’ 
’ 
’ 
’ 
’ 
’ 
’ 
. 
J 
. 
. 
’ 


; THIS MODULE CONTAINS SUBROUTINES FOR THE TERMINAL ,MAILBOX AND DMC11 DRIVERS. 
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VO0O3-007 24-APR-1982 15:46:24 DISK$VMSMASTER: [SYS.SRC]COMDRVSUB. (1) 
;RKSOO003 0000 .17~=; V03-003 RKSOO003 RICK SPITZ 23-SEP-1982 
;RKSO003 0000 -18 =; INSURE THAT TAST IS NOT BUSY WHEN A REPLACE. CURRENT 
;RKSOOO3 0000 -19 ;3 BLOCK OPERATION OCCURS. IF SO, FLAG THE CURRENT BLOCK 
s;RKSO003 0000 .20 ; FOR DELETE AND BUILD A NEW BLOCK. 
;RKSOO0O03 0000 .21~ =; 
: KDMOO02 0000 .22 ; V03-002 KDMO002 Kathleen D. Morse 28-Jun-1982 
: KDMO002 0000 .23 ; Added $IODEF and $SSDEF. 
-20 0000 62 ; 
0000 63 ; 
0000 64 ;-- 
0000 65 ; 
0000 66 ; EXTERNAL SYMBOLS 
0000 67 ; 
0000 68 $ACBDEF ; DEFINE AST CONTROL BLOCK 
0000 69 $CCBDEF ' 3; DEFINE CCB 
0000 70 $DYNDEF ; DEFINE DYNAMIC MEMORY BLOCKS 
;MHBO137 0000 .1 $FKBDEF ; DEFINE FORK BLOCK 
; KDMD002 0000 .2 $IODEF ; DEFINE I/0 FUNCTION CODES 
0000 71 $IPLDEF ; DEFINE IPL LEVELS 
0000 72 $IRPDEF ; DEFINE I/0 PACKET 
0000 73 $PCBDEF ; DEFINE PCB 
0000 74 $PRDEF ; DEFINE PROCESSOR REGISTERS 
0000 75 $PRIDEF ; DEFINE NEW PRIORITIES 
0000 76 SPRVDEF ; DEFINE PRIVELEGE BITS 
0000 77 $PSLDEF ; DEFINE PSL 
0000 78 SRSNDEF ; DEFINE RESOURCES 
;KDMO002 0000 a $SSDEF ; DEFINE SYSTEM STATUS CODES 
0000 79 $TASTDEF ; DEFINE TERMINAL AST BLOCK 
0000 80 SUCBDEF ; DEFINE UCB 
0000 81 ; 
0000 82 ; LOCAL DEFINITIONS 
0000 83 ; 
00000000 a000 B84 P1= 0 
00000004 0000 85 P2= 4 
oo0000008g8 a000 86 P3= 8 
ooo0000c adn00 87 P4= 12 
00000010 0000 88 P5= 16 
00000014 0000 89 P6= 20 
0000 90 


00000000 91 -PSECT WIONONPAGED 
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V03-007 COM$DELATTNAST - DELIVER ATTENTION ASTS 24-APR-1982 15:46:24 DISKSVMSMASTER: [SYS.SRC]COMDRVSUB. (2) 
0000 93 .-SBTTL COM$DELATTNAST - DELIVER ATTENTION ASTS 
0000 94 3;++ 
;JLVO272 0000 .1 3; COM$DELATTNAST - DELIVER ATTENION ASTS 
*JLVO0272 0000 .2 3; COM$DELATTNASTP - DELIVER ATTENION ASTS BY PID 
~] 0000 96 ; 
0000 97 ; FUNCTIONAL DESCRIPTION: 
0000 98 ; 
0000 99 ; THIS ROUTINE IS USED BY THE TERMINAL AND MAILBOX DRIVERS TO DELIVER 
0000 100 ; ALL OF THE ASTS AWAITING ATTENTION. THE CONTROL BLOCKS ARE USED AS FORK BLOCKS 
0000 101 ; TO IPL$ QUEUEAST. 
0000 102 ; 
0000 103; INPUTS: 
0000 104 ; 
0000 105 ; R4 = ADDRESS OF LIST HEAD OF AST CONTROL BLOCKS 
0000 106 ; R5 = UCB OF UNIT 
;JLVO272 0000 oe ee R6 = ACTIVE PID (AT ENTRY POINT COM$DELATTNASTP) 
0000 107 ; 
0000 108 ; OUTPUTS: 
0000 109 ; 
0000 110 ; R2,R3,R4,R5 ARE PRESERVED. 
0000 11to 3-7 
0000 112 COM$DELATTNAST:: ; DELIVER ATTENTION ASTS 
;JLVO272 OOF8 8F BB 0000 Pa PUSHR #AMKR3,R4,R5,R6,R7> ; SAVE 
3;JLVO272 56 D4 0004 oe CLRL R6 ; CLEAR SO ALL ASTs WILL BE DELIVERED 
;JLVO0272 04 11 0006 .3 BRB ATTN2 3; continue 
;JLVO272 0008 .4 
3; JLVO0272 0008 .5 COM$DELATTNASTP:: ; DELIVER ATTENTION ASTS BY PID 
;JLVO272 OOF8 8F BB 0008 .6 PUSHR #AM<R3,R4,R5,R6,R7> ; SAVE 
;JLVO0272 O00C .7 ATTN2: 
;JLVO272 5 54 DO oOd0C 8 MOVL R4,R7 ; R7 WILL TRACK LIST 
;JLV0272 OOOF 9 
3; JLVO272 55 67 DO OOOF .10 10$: MOVL (R7),R5 ; GET NEXT ENTRY 
;JLVO272 36 13 0012 211 BEQL 50$ ; IF EQL THEN NONE 
;JLVO272 56 DS 0014 212 TSTL R6 ; CHECKING PIDS? 
;JLVO272 OB 13 0016 Pad ke BEQL 30$ ; NOT IF ZERO 
;JLVO272 56 24 A5 D1 0018 .14 CMPL ACB$L_KAST+12(R5),R6 ; COMPARE PIDOS 
;JLV0272 05 13. OOTC .15 BEQL 30$ ; EQUAL, DELIVER AST 
; JLVO272 OO1E .16 3 
;JLV0272 OOI1E .17 ; PIDS NOT EQUAL, SKIP THIS ENTRY AND LEAVE IT IN QUEUE 
3;JLVO0272 OO1E .18 3 
;JLVO0272 57 55 DO OO1E .19 MOVL R5,R7 ; NEXT 
;JLVO272 EC 11 0021 .20 BRB 10$ ; LOOP 
;JLVO272 0023 .21 ; 
;JLVO272 0023 .22 :; DELIVER AST AND CLOSE UP LIST 
;JLVO272 0023 .23 7 
; JLVO272 67 65 DO 0023 .24 30$: MOVL (R5), (R7) ; CLOSE LIST 
-4 E6 AF 9F 0026 117 PUSHAB- BA10$ ; SET UP RETURN ADDRESS 
0029 118 FORK ; ; CREATE FORK PROCESS 
OO2F 119 ; 
002F 120 ; AST QUEUE FORK PROCESS 
002F 121 =; 
10 AS 18 AS 7D OO2F 122 MOVQ ACB$L_KAST(RS),ACB$L_AST(RS); REARRANGE ENTRIES 
OB AS5 20 A5 90 0034 123 MOVB ACB$L_KAST+8(R5),ACB$B_RMOD(RS5); 
OC AS 24 AS DO 0039 124 MOVL ACB$L_KAST+12(R5) ,ACBSL_PID(R5); 
18 A5 D4 OOSE 125 CLRL ACB$L_KAST(R5) ; 
52 01 9A 0041 126 MOVZBL #PRI$ IOCOM,R2 ; SET UP PRIORITY INCREMENT 


00000000’ GF 17 0044 127 JMP GASCHEQAST ; QUEUE THE AST 
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V03~-007 COM$DELATTNAST - DELIVER ATTENTION ASTS 24-APR-1982 15:46:24 DISKSVMSMASTER: [SYS.SRC]COMDRVSUB. (2) 


;JLVO272 OOF8 8F BA OO04A .1 50$; POPR #AMKR3,R4,R5,R6,R7> ; 
71 05 O04E 129 RSB 


COMDRV SUB 
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50 


24 AO 


22 AO 


67 


57 


50 


60 


38 
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COM$FLUSHATTNS 
OO4F «131 
O04F 132 
O04F 133 
O04F 134 
O0O4F =-:135 
O04F 136 
004F = =137 
O04F =: 138 
004F =139 
O04F 140 
OO4F «141 
OO4F =:142 
O04F 143 
O04F 144 
O04F 145 
OO4F 146 
OO4F =:147 
O04F 8148 
OO4F 149 
004F  =150 
OO4F 151 
OO4F 152 
O04F =153 
O0O4F 154 
O04F 155 
OO4F 156 
DO OO56 157 
13 0059 158 
D1 0058 #159 
12 0060 160 
B1 0062 161 
12 0066 162 
DO 0068 163 

006B 164 
B6 OO6E 165 
10 0071 #4166 
11 0073 167 
DO 0075 168 
11 0078 + 169 

007A 170 
94 OO7D 171 
05 0080 172 


- FLUSH ATTENTION AST LIS 24-APR-1982 15:46:24 DISK$VMSMASTER: [SYS.SRC]COMDRVSUB. (3) 


.-SBTTL COM$FLUSHATTNS ~- FLUSH ATTENTION AST LIST 


o++ 


COM$FLUSHATTNS ~- FLUNS ATTENTION AST LIST 


THIS ROUTINE IS USED BY THE TERMINAL AND MAILBOX DRIVERS TO FLUSH 
AN ATTENTION AST LIST. THIS IS DONE AT CANCEL 1/0 TIME AND WHEN A 


; QIO SPECIFIES A O AST ADDRESS ON A SET ATTENTION AST FUNCTION. 
; IF THE AST CONTROL BLOCK OWNER IS NO LONGER IN THE SYSTEM THE AST IS ALSO 
; FLUSHED. 
; INPUTS: 
; R4 = PCB ADDRESS 
; R5 = UCB ADDRESS OF RELATED UNIT 
: R6 = CHANNEL NUMBER 
: R7 = LIST HEAD 
; OUTPUTS: 
: RO = SS$_ NORMAL 
; R1,R2,R7 ARE DISTROVED. 
COM$FLUSHATINS: : ; FLUSH ATTENTION AST LIST 
DSBINT UCB$B_DIPL(RS5) ; DISABLE INTERRUPTS 
10$: MOVL (R7),RO | ; GET LIST ENTRY 
BEQL 50$ ; IF EQL THEN DONE 
CMPL PCB$L_PID(R4) ,ACB$L_KAST+12(RO) ; PID MATCH? 
BNEQ 40$ ; IF NEQ THEN NO 
CMPW R6,ACB$L_KAST+10(RO) ; CHANNEL MATCH? 
BNEQ 40$ ; IF NEQ THEN NO 
MOVL (RO), (R7) ; CLOSE UP LIST TO REMOVE ENTRY 
ENBINT ; REENABLE INTERRUPTS 
INCW PCB$W_ASTCNT(R4) ; RESTORE AST QUOTA 
BSBB COM$DRVDEALMEM ; DEALLOCATE THE BLOCK 
BRB COM$FLUSHATTNS ; CONTINUE 
40$: MOVL RO,R7 ; LOOK TO NEXT ENTRY 
BRB 10$ ; CONTINUE 
50$: ENBINT ; REENABLE INTERRUPTS 


MOVZBL #SS$ NORMAL ,RO 
RSB 


SET NORMAL RETURN 
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70 AS 
63 
00000000’ FF 


- COMMUNUCATION 
COM$POST - POST 
0081 174 
0081 175 
0081 176 
0081 177 
0081 178 
0081 179 
0081 180 
0081 181 
0081 182 
0081 183 
0081 184 
0081 185 
0081 186 
0081 187 
0081 188 
0081 189 
0081 190 
0081 191 
0081 192 
0081 193 
0081 194 
0081 195 
0081 196 
0081 197 
0081 198 
D6 0081 199 
OE 0084 200 
0086 
008B 201 
0S QO8E 202 
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I.0 COMPLETION INDEPENDE 24-APR-1982 15:46:24 DISK$VMSMASTER: [SYS.SRC]COMDRVSUB. (4) 


_SBTTL COM$POST - POST 1.0 COMPLETION INDEPENDENT OF UNIT STATUS 
++ 
COM$POST - POST 1/0 COMPLETION INDEPENDENT OF UNIT STATUS 
FUNCTIONAL DESCRIPTION: 
THIS ROUTINE IS USED BY THE TERMINAL, MAILBOX AND DMC DRIVER TO COMPLETE 
1/0 OPERATIONS INDEPENDENT OF THE STATUS OF THE UNIT. NO ATTEMPT IS MADE 
TO DE-QUEUE ANOTHER PACKET OR CHANGE THE BUSY STATUS OF THE UNIT. 
INPUTS: a 


R3 
RS 


I/O PACKET ADDRESS 
UCB. ADDRESS 


IMPLICIT INPUTS: 


CALLER AT DRIVER FORK IPL OR GREATER. 
IRP$L_MEDIA AND IRP$L_MEDIA+4 ARE THE IOSB QUAD WORD. 


OUTPUTS: 


RO,R1 ARE DISTROYED. 


+ 
’ 
’ 
’ 
. 
’ 
> 
’ 
. 
’ 
. 
> 
. 
’ 
. 
’ 
. 
’ 
’ 
’ 
> 
’ 
’ 
, 
’ 
’ 
’ 
’ 
’ 


OMS$POST: : , ; COMPLETE 1/0 
INCL UCB$L_OPCNT(RS) ; INCREMENT OPERATION COUNT 
INSQUE (R3),@IOC$GL_PSBL ; INSERT PACKET ON QUEUE 
SOFTINT #IPL$_IOPOST ; REQUEST FORK 
RSB ; RETURN 


COMDRVSUB 
V03-007 


;MHBO137 
;MHBO137 
;MHBO137 
-1 


;MHB80137 
;MHBO137 
;MHBO137 
;MHBO 137 
;MHBO 137 
;MHBO137 
;MHBO137 
;MHBO137 
;MHBO 137 
;MHBO137 
;MHBO137 
;MHBO 137 
;MHBO137 
;MHBO137 
:MHBO137 


08 


08 AQ 


7E 


0608 
OA 
;MHBO137 


~4 55 


CB’ 
00000000’ 


50 


00000000’ 


;MHBO137 
;MHBO137 
;MHBO137 
;MHBO137 
;MHBO137 


54 


00000000’ 


— COMMUNUCATION DRIVERS SUBROUTINES 


COM$DRVDEALMEM — 
OO8F 204 

OO8F 205 

OO8F 206 

OO8F 207 

OO8F 208 

OO8F 209 

OO8F 210 

OO8F 211 

OO8F 212 

OO8F 213 

OO8F 214 

OO8F 215 

OO8F 216 

OO8F 217 

OO8F 218 

OO8F 219 

OO8F ool 

OO8F .2 

OO8F #3 

OO8F 2271 

OO8F 222 

OO8F 223 

OO8F 224 

OO8F 225 

OO8F 226 

OO8F 227 

OO8F 228 

53 DD OO8F BA 
0091 22 

53 D1 0094 .3 
OB 14 0097 .4 
07 BB 0099 5 
GF 16 0098 .6 
OF BA OOA1 .7 
05 O0A3 .8 

O0A4 .9 

18 Bi OOA4 10 
25 1A QOA8 11 
54 7D QOAA 12 
BO OOAD 13 

OOAE 14 

BF OOAE 15 

AO 00B1 

00B3 .16 

50 DO OO0B3 233 
AF 9F OO0B6 234 
GF 16 OOB9 235 
OOBF 236 

OOBF 237 

OOBF 238 

55 DO OOBF 239 
GF 17 =00C2 240 
8E 7D OO0C8 nl 
53 8EDO OOCB ace 
05 OOCE .3 

OOCF -4 

OOCF 5 


3-JUN- 1984 
DEALLOCATE DRIVER MEMOR 24-APR-1982 


-SBTTL 
FUNCTIONAL DESCRIPTION: 
IT CAN BE CALLED AT ANY IPL. 


INPUTS: 


RO = 
IF A FORK IS REQUIRED. 


OUTPUTS: 


RO-RS ARE PRESERVED. 


’: 
’ 
’ 
5: 
’ 
’ 
’ 
’ 
? 
. 
’ 
’ 
’ 
° 
’ 
’ 
. 
’ 
, 
’ 
’ 
, 
> 
. 
’ 
. 
, 
. 
’ 
° 
’ 
’ 


10:56:56 
15:46:24 


VAX-11 Macro V03-01 Page 7 
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COMS$DRVDEALMEM - DEALLOCATE DRIVER MEMORY 


COM$DRVDEALMEM - DEALLOCATE DRIVER MEMORY 


THIS ROUTINE IS USED BY DRIVERS TO DEALLOCATE SYSTEM DYNAMIC MEMORY. 


ADDRESS OF THE BLOCK TO DEALLOCATE 


SRR KKK KKK KAKA KEK KKK KKK KKK KK KKK KARA KKK KR KBR KKK KK KKK KKK KK 


THE BUFFER MUST BE AT LEAST "FKB$C_LENGTH" BYTES LONG 
THIS IS BECAUSE WE TURN THE 
BUFFER INTO A FORK BLOCK FOR THE DELAYED DEALLOCATION. 


KKK AK KKK AK KK A KKK KKK KKK KKK KKK KK EKA KKK KKK KKK ARK KKAKKAKKEKE 


DEALLOCATE DRIVER MEMORY 

SAVE A REGISTER 

FETCH CURRENT IPL LEVEL 

COMPARE CURRENT IPL TO SYNCH 
BRANCH IF IPL LEVEL > SYNCH 
SAVE MORE REGISTERS 

DEALLOCATE MEMORY 

RESTORE REGISTERS 

RETURN, ALL REGISTERS PRESERVED 


BIG ENOUGH FOR A FORK BLOCK? 
IF GTRU THEN NO —- ERROR 
SAVE FORKING REGS 
INSERT STRUCTURE TYPE 
AND PROPER IPL 
FOR THIS TO BE A FORK BLOCK 


COPY ADDRESS 
SET UP RETURN ADDRESS 
CREATE FORK 


DEALLOCATE THE BLOCK 


RESTORE REGISTERS 
RESTORE R83 


OM$DRVDEALMEM: : 7 
PUSHL R3 ; 
SAVIPL R83 : 
CMPL R3,#IPL$ SYNCH 7 
BGTR 10$ : 
PUSHR #AMKRO,R1,R2> ; 
JSB GAEXESDEANONPAGED ; 
POPR #AMKRO,R1,R2,R3> ‘ 
RSB ; 
10$: CMPW #FKBSC_ LENGTH,FKB$W_SIZE(RO) ; 
BGTRU 30$ 3 
MOVQ R4,-(SP) ; 
MOVW #<DYN$C_ FRK!- . 
<IPL$ QUEUEAST@8>>,- ; 
FKB$B_TYPE(RO) 3 
ASSUME FKB$B_FIPL EQ FKB$B_TYPE+1 
MOVL RO,R5 : 
PUSHAB BA20$ ; 
JSB GAEXES$FORK ; 
; IPLS QUEUEAST FORK ROUTINE 
MOVL R5,RO ; 
JMP GAEXE$DEANONPAGED ; 
20$: MOVQ (SP)+,R4 ; 
25$: POPL R3 : 
RSB ; 


; BUGCHECK ON TOO SMALL A BUFFER 


COMDRVSUB 
V03-007 


;MHBO137 
;MHBO137 
;MHBO 137 


F6 


- COMMUNUCATION DRIVERS SUBROUTINES 


3-JUN-1984 


COM$DRVDEALMEM — DEALLOCATE DRIVER MEMOR 24-APR-1982 


11 


* 


OOCF 
OOCF 
00D3 


6 
7 
.8 


30$: 


BUG_ CHECK BADDALRQSZ 


BRB 


25$ 


10:56:56 VAX-11 Macro V03-01 
15:46:24 


$ 


Page 8 
DISK$VMSMASTER: [SYS.SRC]COMDRVSUB. (5) 


BUGCHECK 
CONTINUE 


COMDRVSUB 


VO3-007 


;DWT0157 
-4 


56 


58 


28 A3 
6C 
5B 


~ COMMUNUCATION DRIVERS SUBROUTINES 3-JUN-1984 10:56:56 VAX-11 Macro VO03-01 Page 9 


COM$SSETATTNAST — 
00D5 249 
00D5 250 
00D5 251 
00D5 252 
00D5 253 
OODS 254 
00DS 255 
00D5 256 
00D5 257 
OODS5 258 
00D5 259 
O0OD5 260 
00D5 261 
00D5 262 
00D5 263 
0005 264 
00D5 265 
00D5 266 
00D5 267 
00DS 268 
00D5 269 
OODS5 270 
00OD5 271 
00D5 272 
0O0D5 273 
OODS5 274 
O00D5 275 
OOD5 276 
0005 277 
0OD5 278 
00D5 279 
O0OD5 280 
OODS5 281 
O00D5 282 
OODS5 283 
00D5 284 
00D5 285 
O00D5 286 
00D5 287 
00D5 288 
0O0D5 289 
00D5 290 
0OD5 291 
OODS 292 
OO0D5 293 
OOD5 294 
OOD5S 295 
00D5 296 
00D5 297 

3C 0005 298 
DO O0D9 299 
13° OODC | 
OODE 301 
OODE 302 
OODE 303 
OODE 304 


OODE 


305 


’ 
9 
’ 
’ 
’ 
’ 
> 
’ 
> 
’ 
’ 
’ 
: 
? 
» 
’ 
’ 
’ 
% 
’ 
? 
’ 
. 
+ 
’ 
’ 
’ 
’ 
’ 
’ 
’ 
’ 
’ 
’ 
’ 
’ 
] 
, 
’ 
’ 
’ 
> 
’ 
> 
’ 
’ 
’ 


we we we we we 


SET UP ATTENTION AST 24-APR-1982 15:46:24 DISKSVMSMASTER: [SYS.SRC]COMDORVSUB. (6) 


-SBTTL COM$SETATTNAST - SET UP ATTENTION AST 


++ 


COM$SETATTNAST - SET UP ATTENTION AST 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE IS A SUBROUTINE USED BY THE TERMINAL AND MAILBOX DRIVERS 

TO PROCESS REQUESTS FOR ENABLE OR DISABLE OF ATTENTION ASTS. 

P1 IS THE ADDRESS OF THE AST SERVICE FOR ENABLES. P1 = O FOR DISABLE. 

FOR DISABLES, THE SPECIFIED LIST IS SEARCHED AND THE ENTRY EXTRACTED AND 
DEALLOCATED. 

FOR ENABLES, A CONTROL BLOCK IS SET UP THAT WILL DOUBLE AS THE AST CONTROL 
BLOCK WHEN THE AST IS DELIVERED. THE BLOCK IS FORMATTED AS FOLLOWS: 


ACB$B_RMOD IPR$_QUEUEAST 

ACB$L_KAST AST PC 

ACB$L_KAST+4 = AST PARAMETER (P2) 
ACB$L_KAST+8 = ACCESS MODE OF REQUEST 
ACB$L_KAST+10 = CHANNEL NUMBER 
ACB$L_KAST+12 = PID OF REQUEST 


THE NEW BLOCK IS PLACED AT THE HEAD OF THE CURRENT LIST. 


IN BOTH CASES THE I/0 IS COMPLETED. 


INPUTS: 

R3 = I/0 PACKET ADDRESS 

R4 = CURRENT PCB 

R5 = UCB ADDRESS 

R6 = ASSIGNED CCB 

R7 = ADDRESS OF THE CONTROL AST LIST HEAD TO CHANGE 

AP = ADDRESS OF THE QIO ARGLIST 
OUTPUTS: 

RO = STATUS OF THE 1/0 

R3 = PACKET ADDRESS 

RS = UCB ADDRESS 


NO OTHER REGISTERS ARE PRESERVED. 


COMPLETION CODES: 


SS$_NORMAL 
SS$_EXQUOTA -- BUFFERED 1/0 OR AST QUOTA FAILURE 
SS$_INSUFMEM -~- DYNAMIC MEMORY FAILURE 

OM$SETATTNAST: : ; SET UP ATTENTION AST 
MOVZWL IRP$W_CHAN(R3) ,R6° ; GET PACKET CHANNEL NUMBER 
MOVL P1(AP) ,R8 ; GET USER AST ADDRESS 
BEQL 10$ ; IF EQL THEN DISABLE FUNCTION 


REQUEST TO ENABLE AST 


SET UP AST BLOCK 


COMDRVSUB 
V03-007 


50 TC 

38 A4 

56 

38 A4 

51 28 

53 
00000000 ’GF 
53 

42 50 

OB AZ 06 

18 A2 58 

1C A2 04 AC 
02 00 

.50 08 AC 
00000000’ GF 
20 A2 50 

20 A2 40 8F 
22 A2 56 

24 A2 60 A4 


62 67 
67 52 


50 01 


;DWT0157 
;0WT0157 FF13 
;DWTO157 
;DWT0157 00000000’ GF 
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COMSSETATTNAST - SET UP ATTENTION AST 24-APR-1982 15:46:24 DISK$VMSMASTER: [SYS.SRC]COMDRVSUB. (6) 


ASSUME AST QUOTA EXCEEDED 
AST QUOTA ALLOW CONTINUE? 
IF LEQ THEN NO 

ADJUST QUOTA 

SET SIZE OF NEEDED BLOCK 


#SS$_EXQUOTA,RO 
PCB$W_ASTCNT(R4) 
20$ 
PCB$W_ASTCNT(R4) 
#ACB$L_KAST+16,R1 


we we we we we oe we we 


R3 SAVE PACKET ADDRESS 
GAEXES$SALLOCBUF ALLOCATE THE BUFFERED BLOCK 
R3 RESTORE PACKET ADDRESS 

RO, 20$ IF LOW SET THEN ALLOCATED 
#IPL$ QUEUEAST ,ACBS$B._ RMOD(R2) ; INSERT FORK IPL 

R8, ACB$L_KAST(R2) ; INSERT AST ROUTINE ADDRESS 
P2(AP) ,ACB$L_KAST+4(R2) ; INSERT PARAMETER FOR AST 
#0,#2,P3(AP),RO ; GET REQUEST ACCESS MODE 
GAEXES$MAXACMODE ; MAXIMIZE ACCESS MODE 
RO,ACB$L_KAST+8(R2) INSERT IN CONTROL BLOCK 
#ACB$M_ QUOTA, ACB$L KAST+8(R2) ; INSERT TARGET ACCESS MODE 
R6,ACBS$L KAST+10(R2) ; SAVE CHANNEL 


PCB$L_PID(R4) ,ACB$L_KAST+12(R2); INSERT PID ADDRESS OF REQUESTOR 


325 : LOCK OUT INTERRUPTS TO ENTER BLOCK ON UCB 


3C OODE 306 MOVZWL 
B5 OOEi 307 TSTW 
15 OOE4 308 BLEQ 
B7 OOE6 309 DECW 
9A QOESD 310 MOVZBL 
DD OOEC 311 PUSHL 
16 OOEFE 312 JSB 
8EDO OOF4 313 POPL 
EQ OOF7 314 BLBC 
90 OOFA 315 MOVB 
DO OOFE 316 MOVL 
DO 0102 317 MOVL 
EF 0107 318 EXTZV 
O10A 
16 O10D 319 JSB 
9A 0113 320 MOVZBL 
88 0117 321 BISB 
BO 011C 322 MOVW 
DO 0120 323 MOVL 
0125 324 
0125 
0125 326 ; 
0125 327 DSBINT 
DO 012C 328 MOVL 
DO 012F 329 MOVL 
0132 330 ENBINT 
9A 0135 331 MOVZBL 
05 0138 332 RSB 
0139 1 
31 0139 -2 10$: BRW 
013C .3 
17 O13C -4 20$: JMP 


UCB$B_DIPL(R5) ; LOCK OUT INTERRUPTS 
(R7),(R2) MERGE WITH CURRENT ENTRY 
R2,(R7) INSERT NEW ENTRY VALUE 
LOWER IPL 

SET NORMAL RETURN 

RETURN VIA CALLER 


#SS$_NORMAL,RO 


we we we ee we 


COM$FLUSHATTNS ; DISABLE FUNCTION 


GAEXES$ABORTIO ; ABORT THE I/0 
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V03-007 COM$DELCTRLAST - DELIVER CONTROL ASTS 24-APR-1982 15:46:24 DISK$VMSMASTER: [SYS.SRC]COMDRVSUB. (7) 
;DWT0157 0142 -6 .-SBTTL COM$DELCTRLAST - DELIVER CONTROL ASTS 
;DWT0157 0142 7 3t+t 
;JLVO272 0142 -8 ;COM$DELCTRLAST - DELIVER CONTROL ASTS 
;JLVO272 0142 .9 ;COM$DELCTRLASTP - DELIVER CONTROL ASTS AND CHECK PIDS 
-5 0142 338 ; 
0142 339 ; FUNCTIONAL DESCRIPTION: 
0142 340 ; 
0142 341 ; THIS ROUTINE IS USED BY THE TERMINAL SERVICES TO DELIVER 
0142 342 ; ALL OF THE ASTS AWAITING ATTENTION WHICH MATCH THE CONDITION. 
0142 343 ; THE AST BLOCK IS NOT DELETED AND IS REUSED. 
0142 344 ; 
0142 345 ; INPUTS: 
0142 346 ; 
0142 347 ; R3 = MATCH CHARACTER 
0142 348 ; R4 = ADDRESS OF LIST HEAD OF AST CONTROL BLOCKS 
0142 349 ; RS5 = UCB OF UNIT 
;JLV0272 0142 eos R6 = ACTIVE PID (AT ENTRY POINT COM$DELCTRLASTP) 
;JLVO272 0142 2; 
;JLVO0272 0142 -3 3; QUTPUTS: 
sJLVO272 0142 4; 
:JLVO272 0142 -5 § R3 = (low byte) CHARACTER TO INCLUDE IN DATA STREAM OR NULL 
;JLV0272 0142 .6 ; TAST$V_ABO - set to signal driver to abort I/0 in progress 
3 JLVO272 0142 .7 3 TAST$V_INC - set to include this character in datastream 
;JLVO0272 0142 .8 ; - 
3; JLVO0272 0142 9 ; R1,R4 DESTROYED 
;JLVO0272 0142 10 3;-- 
;JLVO272 0142 11 
3;JLVO272 0142 .12 COMS$DELCTRLAST:: ; DELIVER CONTROL ASTS 
3;JLVO272 OO6C 8F BB 0142 .13 PUSHR #AMKR2,R3,R5,R6> ; SAVE REGISTERS 
;JLVO272 56 D4 0146 .14 CLRL R6 ; CLEAR SO ALL ASTs WILL BE DELIVERED 
3; JLVO272 04 11 0148 .15 BRB CTRL2 ; continue 
;JLVO272 014A .16 
/4 SLVO272 O14A -17 COM$DELCTRLASTP:: ; DELIVER CONTROL ASTS BY PID 
3; JLVO272 OO6C 8F BB O14A .18 PUSHR #AMK<R2,R3,R5,R6> ; 
3;JLVO272 O014E .19 CTRL2: 
Sle. 52 D4 O14E 361 CLRL R2 ; INIT RETURN CHARACTER 
51 54 DO 0150 362 MOVL R4,R1 ; LIST HEAD ADDRESS 
0153 363 10$: 
51 61 DO 0153 364 MOVL (R1),R1 ; ADDRESS FIRST BLOCK 
69 13 0156 365 BEQL 50$ ; NO MORE 
55 51 1C C3 «640158 366 SUBL3 #TAST$L_ FLINK,R1,R5 ; ADDRESS START OF BLOCK 
30 AS 04 AE El 015C 367 BBC 4(SP),TAST$L_-MASK(R5),10$ ; SKIP IF CHARACTER NOT IN MASK 
Fi 0161 
;JLVO272 0162 1 ; 
;JLVO0272 0162 2 ; Check PID 
; JLVO272 0162 3 ; 
;JLVO272 56 D5 0162 .4 TSTL R6 ; checking pids? 
3; JLVO272 06 13 0164 a5 BEQL 11$ ; Branch if not 
;JLVO272 56 28 A5 D1 0166 6 CMPL TAST$L_PID(RS) ,R6E ; compare 
;JLV0272 E7 12 O16A 7 BNEQ 10$ ; skip if not equal 
3 JLVO272 016C 8 11$: 
;JLVO272 016C 9 ; 
3JLV0O272 016C . 10 ; This one matches, check include and abort 
;JLVO272 016C 11 : 
3;JLVO272 05 Ei O16C .12 BBC #TASTS$V_ABORT,—- 
3; JLVO0272 OB 2D AS O016E 13 TAST$B_CTRL(RS5) ,12$ ; BRANCH IF NOT ABORT 


;JLV0272 52 04 AE 9A O171 .14 MOVZBL 4(SP),R2 ; FETCH CHARACTER 


COMDRVSUB 
VO3-007 
sJLVO272 52 4000 8F 
;JLVO0272 oD 
> JLVO272 
;JLVO272 01 
;JLVO272 08 2D AS 
sJLVO272 52 04 AE 
;JLVO272 Ooo 52 OF 
; JLVO272 
> JLVO272 03 
:JLVO272 C5 2D AS 
-5 24 AS 04 AE 
OB AS 06 
BO AF 
; JLVO272 10 AS 20 AS 
; JLVO272 30 
;JLVO272 2C AS 
> JLVO272 OB A5 2C AS 
;JLVO272 oc AS 28 AS 
;JLVO272 18 AS CA’AF 
;JLVO272 52 01 
;JLVO272 00000000’ GF 
;JLVO272 
> JLVO272 04 AE 52 
; JLVO0272 OO6C 8F 
-11 
: 2D AS 08 
15 2D AS 04 
50 28 AS 
00000000’ FF40 
50 
38 AO 
50 55 
FE18’ 


- COMMUNUCATION DRIVERS SUBROUTINES 
- DELIVER CONTROL ASTS 


COM$DELCTRLAST 
AB 0175. .15 
11 O17A  .16 

OVC... cz 
E1 017C 18 
O17E 19 
9A 0181 .20 
E2 0185 .21 
0189 = =.22 
E2 0189 23 
018B .24 
94 O18E 373 
0193 374 
90 0193 375 
0197 376 
9F 0197 377 
019A 378 
01A0 379 
01A0 380 
01A0 381 
O01A0 382 
01A0 383 
7D 01A0 a4 
88 O1A5 i. 
O1A7 3 
90 O1A9 4 
DO O1AE 5 
DE 01B3 .6 
9A 01B8 .7 
17 018B .8 
01C1 .9 
pO 01C1~ .10 
BA O1C5 .11 
05 01C9 395 
O1CA 396 
O01CA 397 
01CA 398 
01CA 399 
01CA 400 
O1CA 401 
01CA 402 
BA O1CA 403 
E1 O1CE 404 
0103 405 
3C 0103 406 
DO 0107 407 
01DE 
B6 O1DF 408 
DO O1E2 409 
30 O1£F5 410 
05 O1FB 411 


12$: 


15$: 


20$: 


BISW 
BRB 


BBC 


MOVZBL 
BBSS 


BBSS 


MOVZBL 


MOVB 


PUSHAB 
FORK 


VAX 
DIS 


3-JUN-1984 
24-APR-1982 


10:56:56 
15:46:24 


#TAST$M_ABO,R2 ; 
15$ ; 


#TAST$V_INCLUDE, - 

TAST$B_CTRL(RS),15$ ;: 
4(SP),R2 3 
#TAST$V_INC,R2,15$ ; 


#TAST$V_BUSY, - 
TAST$B_CTRL(R5),10$ ; 
4(SP),TAST$L_ASTPRM(R5) ; 
#IPL$ QUEUEAST,ACB$B_RMOD(R5) — ; 


; SET UP R 
; CREATE F 


BA10$ 


; AST QUEUE FORK PROCESS 


22$: 


50$: 


ee ee we we we 


ASSUME 
ASSUME 
MOVQ 
BISB 


MOVB 
MOVL 
MOVAL 
MOVZBL 
JMP 


MOVL 
POPR 
RSB 


TAST$L_ASTPRM EQ <TAST$L_AST + 4> 
ACB$L_ASTPRM EQ <ACB$L_AST + 4> 
TAST$L_AST(RS) ,ACBSL_AST(R5) ; 
#<ACB$M_NODELETE!ACB$M_PKAST>,- 
TAST$B_RMOD(RS) 

TAST$B_RMOD(R5) ,ACB$B_RMOD(RS5) 
TAST$L_PID(R5),ACB$L_PID(RS) 
BAASTACNTNG, ACB$L_KAST(R5) 
#PRI$_IOCOM,R2 


we we we we we we 


GASCHSQAST 
R2,4(SP) ; RETURN 
#AM<KR2,R3,R5,R6> ; RESTORE 


PIGGY-BACK KERNEL MODE ROUTINE TO: 


1. MARK TAST AVAILABLE FOR USE 


2. DEALLOCATE 


ASTACNTNG: 


150$: 


BICB 
BBC 


MOVZWL 
MOVL. 


INCW 
MOVL 
BSBW 
RSB 


"LOST" 


#TASTSM_BUSY, TAST$B_CTRL(R5) ; 
#TAST$V_LOST, - ; Branch j 
TAST$B_CTRL(R5), 150$ ; Otherwis 
TAST$L_PID(R5), RO ; 
@LASCH$GL_PCBVEC[RO], RO ; 


PCB$W_ASTCNT(RO) : 
R5,RO0 . » s 
EXESDEANONPAGED 


use PID 
this process. 
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SET ABORT / 


SKIP IF STRIP CHARACTER 
CHARACTER NOT STRIPPED 
MARK CHARACTER PRESENT 


SKIP IF IN USE/ MARK IN USE 
RETURN CHARACTER TO USER 


INSERT FORK IPL,TO ALLOW USE AS 
FORK BLOCK 

ETURN ADDRESS 

ORK PROCESS 


REARRANGE ENTRIES 


PK AST, 
MODE 
PID 
ADDRESS OF PIGGY-BACK KERNEL ROUTI 
SET UP PRIORITY INCREMENT 

QUEUE THE AST 


NODELETE 


ANY CHARACTER 
REGISTERS 


BLOCK(S) AND RETURN THEIR QUOTA 


Mark block available. 


f still 
e, 
index to 


using this block. 


locate PCB for 


Then return AST quota for and 
deallocate this block. 


; That completes piggy-back accounting. 


COMDRVSUB 
V03-007 


28 AQ 
2E 
67 


06 2D 
2D 


OOOO0O008F ’ 


38 


51 
57 


30 
1c 


62 


50 


GF 
A4 
01 


AO 
AQ 
C7 
51 


01 


- COMMUNUCATION DRIVERS SUBROUTINES 
FLUSH CONTROL AST LIST 


.+ 


.SBTT 
+ 


COM$FLUSHCTRLS - 


THIS ROUTIN 


THE CONTROL AST LIST. 


QIO SPECIFI 
THE SUMMARY 


3-JUN- 1984 
24-APR-1982 


10:56:56 
15:46:24 


VAX~-11 


L COM$FLUSHCTRLS - FLUSH CONTROL AST LIST 
FLUSH CONTROL AST LIST 
E IS USED BY THE TERMINAL SERVICES TO FLUSH 


ES A 0 AST ADDRESS ON A SET AST FUNCTION. 
MASK POINTED TO BY R2 IS UPDATED. 


Macro V0O3-01 
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THIS IS DONE AT CANCEL I/0 TIME AND WHEN A 


: INPUTS: 
R2 = ADDRESS OF SUMMARY MASK 
; R4 = PCB ADDRESS 
, R5 = UCB ADDRESS OF RELATED UNIT 
: R6 = CHANNEL NUMBER 
' R7 = LIST HEAD 
; OUTPUTS: 
RO = SS$_NORMAL 
; R1 AND R7 ARE DESTROVED. 
COM$FLUSHCTRLS:: ; FLUSH CONTROL AST LIST 
DSBINT UCB$B_DIPL(RS) ; DISABLE INTERRUPTS 
CLRL RI ; INIT RETURN MASK 
5$: MOVE (R7),RO ; GET LIST ENTRY 
BEQL  50$ ; IF EQL THEN DONE 
SUBL  #TAST$L_FLINK,RO ; COMPUTE START OF BLOCK 
CMPL  PCB$L_PID(R4),TAST$L_PID(RO); PID MATCH? 
BNEQ 40$ ; IF NEQ THEN NO 
CMPW a R6, TAST$W_CHAN(RO) ; CHANNEL MATCH? 
BNEQ 40 ; IF NEQ THEN NO 
MOVL  § TAST$L_FLINK(RO),(R7)  ; CLOSE UP LIST TO REMOVE ENTRY 
BBC #TAST$V_BUSY,TAST$B_CTRL(RO),20$; BLOCK CAN BE DELETED NOW? 
BISB § #TAST$M~LOST,TAST$B_CTRL(RO) ; NO, FLAG IT FOR LATER DELETION 
BRB 5$ ; THAT’S ALL WE CAN DO RIGHT NOW 
20$: JSB GACOM$DRVDEALMEM ; DEALLOCATE THE BLOCK 
INCW  PCB$W_ASTCNT(R4) ; RESTORE AST QUOTA 
BRB 5$ ; CONTINUE 
40$: BISL § TAST$L_MASK(RO),R1 ; OR IN ACTIVE CONTROL CHARACTERS 
MOVAL  TAST$L_FLINK(RO) ,R7 ; LOOK TO NEXT ENTRY 
BRB 5$ ; CONTINUE 
50$: MOVL —R1, (R2) ; UPDATE SUMMARY MASK 
ENBINT ; REENABLE INTERRUPTS 
MOVZBL #SS$_NORMAL,RO ; SET NORMAL RETURN 
RSB 


COM$FLUSHCTRLS - 
O1E9 413 
O1E9 414 
O1E9 415 
O1E9 416 
O1E9 417 
O1E9 418 
01E9 419 
O1E9 420 
O1E9 421 
O1E9 422 
O1E9 423 
O1—E9 424 
O1E9 425 
O1E9 426 
O1EQ9 427 
0169 428 
O1EQ9 429 
01E9 430 
O1E9 431 
O1E9 432 
01E9 433 
O1E9 434 
O1E9 435 
01E9 436 
O1E9 437 
D4 O1FO 438 
DO O1F2 439 
13 O1F5 440 
C2 O1F7 441 
D1 O1FA 442 
12 OFF 448 
B1 0201 444 
12 0205 445 
DO 0207 £446 

020B 447 
E1 020B 448 
88 0210 £449 
11 0214 450 

0216 451 
16 0216 452 
B6 O21C 453 
11. O21F 454 

0221 455 
C8 0221 456 
DE 0225 457 
11 0229 458 

022B 459 
DO 022B 460 

022E 461 
9A 0231 462 
05 0234 463 
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V03-007 COM$SETCTRLAST - SET UP CONTROL AST 24-APR-1982 15:46:24 DISK$VMSMASTER: [SYS.SRC]COMDRVSUB. (9) 
0235 465 .SBTTL COM$SETCTRLAST - SET UP CONTROL AST 
0235 466 ;++ 
0235 467 ; COM$SETCTRLAST - SET CONTROL AST 
0235 468 ; 
0235 469 ; FUNCTIONAL DESCRIPTION: 
0235 470 ; 
0235 471 ; This routine is used by the terminal services FDOT routines during the 
0235 472 ; processing of requests to enable out-of-band ASTs. The current list is 
0235 473 ; scanned for a block with a requestor matching that of the request being 
0235 474 ; processed. If a match is found, the specified mask and AST routine address 
0235 475 ; in the matching block are replaced. If no match is found, COM$BLDCTRLAST is 
0235 476 ; called to create a new block. The summary mask pointed to by R2 is updated 
0235 477 ; to be the intlusive or of all masks in the control AST list pointed to by R7. 
0235 478 ; 
0235 479 ; If either the AST routine address or the out-of-band enable mask -- 
0235 480 ; @<P2(AP)+4> -- is zero, all out-of-band AST requests entered by this 
0235 481 ; requestor are flushed from queue pointed to by R7. 
0235 482 ; 
. 0235 483 ; INPUTS: 
0235 484 ; 
0235 485 ; R2 = CURRENT SUMMARY MASK ADDRESS 
0235 486 ; R3 = I/O PACKET ADDRESS 
0235 487 ; R4 = CURRENT PCB, 
0235 488 ; R5 = UCB ADDRESS 
0235 489 ; R7 = ADDRESS OF THE CONTROL AST LIST HEAD TO CHANGE 
0235 490 ; AP = ADDRESS OF THE QIO ARGLIST 
0235 491 ; 
0235 492 ; P1(AP) = ADDRESS OF AST ROUTINE TO CALL WHEN OUT-OF-BAND CHARATER IS 


0235 493 ; TYPED (0 ==> FLUSH QUEUE) 


0235 494 ; P2(AP) = ADDRESS OF SHORT FORM TERMINATOR MASK GIVING WHICH OUT-OF- 
0235 495 ; BAND CHARACTERS WILL PRECIPATATE DELIVERY OF AN AST 
0235 496 ; (O MASK VALUE ==> FLUSH QUEUE: This address will be passed 
0235 497 ; as the AST parameter when the AST is delivered) 
0235 498 ; P3(AP) = ACCESS MODE IN WHICH THE AST IS TO BE DELIVERED 
0235 499 ; (This is maximized against the caller’s access mode) 
0235 500 ; 
0235 501 ; IPL at entry is assumed to be IPL$ ASTDEL. 
0235 502 ; 
0235 503 ; OUTPUTS: 
0235 504 ; 
0235 505 ; RO = STATUS OF THE I/0 
0235 506 ; (SS$_ NORMAL only; all others return via EXE$ABORTIO) 
3 JLV0272 0235 oe fe R2 = ADDRESS OF TAST BLOCK 
0235 507 ; R3 = I/0 PACKET ADDRESS 
0235 508 ; R4 = CURRENT PCB ADDRESS 
0235 509 ; R5 = UCB ADDRESS 
0235 510 ; NO OTHER REGISTERS ARE PRESERVED. 
0235 511 ; 
0235 512 ; IPL at exit is the same as IPL at entry. 
0235 513 ; 
0235 514 ; The summary mask pointed to by R2 is updated to be the inclusive or of 
0235 515 ; all masks in the control AST list pointed to by R7. 
0235 516 ; 
0235 517 ; The control AST list pointed to by R7 is flushed, extended, or an 
0235 518 ; entry in the list is updated. 
0235 519 ; 


0235 520 COMPLETION CODES: 


COMDRVSUB 
VO3-007 


RKSOO6 
RKSOO6 
RKSOO6 
RKSOO06 
RKSOO6 
RKSOO6 
RKSOO6 
RKSOO6 
RKSOO6 
-10 


56 28 A3 
58 6C 


59 04 AC 
50 Oc 


50 14 


04 AQ 


FFEF 
00000000’GF 


SE FO AE 


5B 5E 

6B 58 

08 AB 04 AQ 
OC AB 52 

58 


COMMUNUCATION DRIVERS SUBROUTINES 


COM$SETCTRLAST 
0235 521 
0235 522 
0235 523 
0235 524 
0235 525 
0235 526 
0235 527 
0235 528 
0235 529 
0235 530 
0235 531 
0235 532 
0235 533 
0235 534 
0235 535 
0235 536 
0235 537 
0235 538 
0235 539 
0235 540 
0235 541 
0000 
0004 
0008 
oo0oc 
0010 
0235 542 
0235 543 
0235 544 
0235 545 

3C 0235 546 
DO 0239 547 
13 023C 548 
DO O23E 549 
3C 0242 ie 
0245 ae 
3C 0248 ao 
D5 O24E 4 
12 0250 5 
D5 0252 6 
12 0255 i 
31 0257 .8 
17 025A .9 
0260 560 
0260 561 
0260 562 
0260 563 
0260 564 
0260 565 
0260 566 
9E 0260 567 
DO 0264 568 
7D 0267 569 
DE 026A 570 
DO O26F 571 
7C 0273 572 
0275 573 


- SET UP CONTROL AST 
SS$_NORMAL 


SS$_ACCVIO 
SS$_EXQUOTA 


-- specified mask n 


re ee ee ee er) 


following information block. 
and points R11 to it. 


we we we we 


3-JUN-1984 10:56:56 
24-APR-1982 15:46:24 
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The following return codes are reported by a JMP to EXE$ABORTIO: 


ot accessable 


-- buffered I/O or AST quota failure 
SS$_INSUFMEM -- dynamic memory failure 


COM$SETCTRLAST, COM$BLDCTRLAST, and COM$FILLCTRLAST build and use the 
COM$SETCTRLAST builds the block on the stack 
COM$BLDCTRLAST and COM$FILLCTRLAST use infomation 


User’s AST routine address 

AST routine parameter 

Pointer to user’s OOB mask 
Pointer to current summary mask 
Size of the block 


we ee we we we 


; SET UP CONTROL AST 

Get packet channel number. 

Get user AST address. 

If its zero, flush OOB requests. 
Get address of user OOB mask. 
Assume no access 

Probe for read access. 

Assume invalid mask format 
Verify short form terminator 
mask format. 

Any OOB characters specified? 
If there are some, proceed. 
Otherwise, flush OOB requests. 
I/O failed, abort request 


wee we ee we wt ee we we ee we ee we ee 


enable an out-of-band character AST 


Allocate info. block on the stack. 
Save info. block address. 
Save AST routine and parameter info. 


Save current summary mask address. 


stored to build or update a TAST control block. 
$OFFSET 0O,POSITIVE,<- 
ASTROUT ,-— 
ASTPARM,— 
USRMSKADR, — 
CURMSKADR, - 
<TINFOSIZE,0>- 
> 
ASTROUT: 
ASTPARM: 
USRMSKADR: 
CURMSKADR: 
TINFOSIZE: 
COM$SETCTRLAST: 
MOVZWL IRP$W_CHAN(R3), R6 
MOVL P1(AP), R8 
BEQL COM$FLUSHCTRLS 
MOVL P2(AP), RQ 
MOVZWL #¥SS$ _ACCVIO, RO 
IFNORD #8, (RQ), 5$ 
MOVZWL #SS$ BADPARAM, RO 
TSTL (RQ) 
BNEQ 5$ 
TSTL 4(RQ) 
BNEQ 7$ 
BRW COM$FLUSHCTRLS 
5$: JMP GAEXE$ABORTIO 
7$: 
; We are now holding a valid request of 
ASSUME ASTPARM EQ <ASTROUT + 4> 
MOVAB -TINFOSIZE(SP), SP 
MOVL SP, R11 
MOVQ R8, ASTROUT(R11) 
MOVAL 4(R9), USRMSKADR(R11) 
MOVL R2,. CURMSKADR(R11) 
CLRQ R8 


Clear accumulation summary mask and 


; Save address of user OOB mask. 
; a local flags longword. 


COMDRVSUB 
V03-007 


3JLV0272 


RKSOO6 
RKSOO6 
RKSOOG6 
RKSOO6 
RKSOOG6 
RKSOO6 
RKSOO6 
RKSOO6 


RKSOO6 
RKSOO6 
RKSOO6 
RKSOO6 
RKSOO6 
RKSOO6 
RKSOO6 
RKSOO6 
RKSOO6 


28 


OD 


52 
A2 


2E 


2D 
2D 
67 


58 
57 


oc 


SE 


52 


E4 
60 


A2 
A2 
A2 


TC 
59 


5A 


006D 


59 
30 
1c 


BB 


50 
52 
02 


10 
01 


01 


A2 
A2 
cS 


58 


01 
5A 
59 
OE 
AE 
50 


00000000 ‘GF 


~ COMMUNUCATION DRIVERS SUBROUTINES 
SET UP CONTROL AST 


COM$SETCTRLAST - 
D4 0275 ad 
0277 574 
O27E 575 

DO O27E 576 
13. 0281 577 
9E 0283 578 
D1 0287 579 
12 028C 580 
B1 O28E 581 
12 0292 582 
0294 583 

E1 0294 st 
88 0299 2 
DO 029D 3 
C8 O2A1 .4 
11 O2A4 .5 
02A6 6 
O02A6 .7 

DO O2A6 8 
30 O2A9 584 
C8 O2AC 585 
O2AF 586 

C8 O2AF 587 
DE 0O2B3 588 
11 02B7 589 
02B9 590 

DO O2B9 591 
02BD 592 
02BD 593 

3C 02CO 594 
DO 02C3 Pe 
E8 O2C6 .2 
10 02C9 .3 
9E O2CB .4 
EQ O2CF 5 
05 O2D2 .6 
02D3 7 

17 02D3 8 
02D9 9 


10$: 


12$: 


15$: 


20$: 


30$: 


50$: 


CLRL 
DSBINT 


MOVL 
BEQL 
MOVAB 
CMPL 
BNEQ 
CMPW 
BNEQ 


BBC 
BISB 
MOVL 
BISL 
BRB 


MOVL 
BSBW 
BISL 


BISL 
MOVAL 
BRB 


MOVL 


ENBINT 
MOVZWL 
MOVL 
BLBS 
BSBB 
MOVAB 
BLBC 
RSB 


JMP 
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R10 ; TAST address 

UCB$B_DIPL(RS5) ; Interlock queue access. 

(R7), R2 ; Get list entry. 

20$ ; Branch if no more entries in list. 
~TAST$L_FLINK(R2), R2 ; Compute start of block. 
PCB$L_PID(R4), TAST$L_PID(R2) ; Do the PIDs match? 

15$ ; Branch if PIDs don’t match. 

R6, TAST$W_CHAN(R2) ; Is the channel right? 

15$ ; Branch if not the right channel. 


#TAST$V_BUSY,TAST$B_CTRL(R2),12$; Block can be reused now 
#TAST$M_LOST,TAST$B_CTRL(R2) ; No, flag it for later deletion 


TAST$L_FLINK(R2), (R7) ; Remove the entry from the queue 

#2, RO ; Indicate that a match was found 

20$ And build a new one, since the old 
one is busy and will be deleted when 


the AST is delivered. 


we we we we we we 


R2,R10 Save TAST address 

COM$FILLCTRLAST Update matching TAST control block. 
#1, R9 Indicate that an update was done. 
TAST$L_MASK(R2), RB ; Accumulate OOB mask data for queue. 
TAST$L_FLINK(R2), R7 ; Advance to next queue entry. 

10$ ; Loop until entire queue processed. 


R8, @CURMSKADR(R11) Make accumulated OOB mask for queue 
the current OOB mask for the queue. 
Return to caller’s IPL. 


#SS$ NORMAL, RO Assume work completed successfully. 


R10,R2 ; Valid only if RO LBS 
RQ, 30% ; If no blocks in the queue were 
COM$BLDCTRLAST ; updated, build a new block. 
TINFOSIZEC(SP), SP ; Restore stack. 
RO, 50$ ; Was COM$BLDCTRLAST successful? 

; if so, return to caller. 
GAEXE$ABORTIO ; If it failed, abort I/O request. 
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V03-007 COM$BLDCTRLAST - BUILD CONTROL AST 24-APR-1982 15:46:24 DISKS$VMSMASTER: [SYS.SRC]COMDRVSUB(10) 
02D9 602 .SBTTL COM$BLDCTRLAST ~- BUILD CONTROL AST 
02D9 603 ;++ 
02D9 604 ; COM$BLDCTRLAST - BUILD NEW CONTROL AST PACKET 
02D9 605 ; 
02D9 606 ; FUNCTIONAL DESCRIPTION: 
02D9 607 ; 
02D9 608 ; This routine builds a new terminal AST control block and inserts it after 
02D9 609 ; the TAST entry pointed to by R7. The control block will double as an AST 
02D9 610 ; control block when a AST is delivered. The block will be reused until the 
02D9 611 ; out-of-band AST request is canceled. The summary mask pointed to by 
02D9 612 ; CURMSKADR(R11) is inclusively or’ed with the user out-of-band mask pointed 
0209 613 ; to by USRMSKADR(R11). 
02D9 614 ; 
02D9 615 ; INPUTS: 
02D9 616 ; 
02D9 617 ; R3 = 1/0 PACKET ADDRESS 
02D9 618 ; R4 = CURRENT PCB 
02D9 619 ; R5 = UCB ADDRESS 
02D9 620 ; R6 = CHANNEL ON WHICH OOB REQUEST IS BEING MADE 
02D9 621 ; R7 = ADDRESS OF THE CONTROL AST LIST ENTRY PRECEDING THE POINT WHERE 
02D9 622 ; THE NEW ENTRY IS TO BE ADDED. 
02D9 623 ; R11= THE ADDRESS OF A TAST INFORMATION LIST (SEE COM$SETCTRLAST) 
02D9 624 ; AP = ADDRESS OF THE QIO ARGLIST 
02D9 625 ; 
02D9 626 ; P3(AP) = ACCESS MODE IN WHICH THE AST IS TO BE DELIVERED 
02D9 627 ; (This is maximized against the caller’s access mode) 
02D9 628 ; 
02D9 629 ; ASTROUT(R11) = ADDRESS OF AST ROUTINE TO CALL WHEN OUT-OF-BAND 
02D9 630 ; : CHARACTER IS TYPED 
O02D9 631 ; ASTPARM(R11) = AST PARAMETER VALUE TO BE PASSED TO AST ROUTINE WHEN 
02D9 632 ; - QOUT-OF-BAND AST IS DELIVERED 
02D9 633 ; CURMSKADR(R11)= ADDRESS OF THE CURRENT OUT-OF-BAND SUMMARY MASK 
QO2D9 634 ; USRMSKADR(R11)= ADDRESS OF OUT-OF-BAND MASK SPECIFIED BY USER FOR 
02D9 635 ; THIS AST ENABLE 
02D9 636 ; 
02D9 637 ; IPL at entry is assumed to be IPL$ ASTDEL. 
02D9 638 ; 
02D9 639 ; OUTPUTS: 
02D9 640 ; 
02D9 641. ; RO = STATUS OF THE 1/0 
02D9 642 ; R1 & R2 DESTROYED 
O2D9 643 ; ALL OTHER REGISTERS PRESERVED 
0209 644 ; 
02D9 645 ; IPL at entry is assumed to be IPL$ ASTDEL. 
02D9 646 ; 
02D9 647 ; A TAST control block is allocated, filled in, and linked after the 
02D9 648 ; entry pointed to by R7 
02D9 649 ; 
02D9 650 ; COMPLETION CODES: 
02D9 651 ; 
02D9 652 ; SS$_NORMAL i 
02D9 653 ; SS$_EXQUOTA -- BUFFERED I/O OR AST QUOTA FAILURE 
02D9 654 ; SS$_INSUFMEM -- DYNAMIC MEMORY FAILURE 
02D9 655: => 
02D9 656 
02D9 657 COM$BLDCTRLAST: 
02D9 658 


COMDRVSUB 
V03-007 


51 34 


00000000’ GF 


ic 
67 
OC BB 


50 


53 
50 
25 


21 


A2 67 
1C A2 
30 A2 


50 01 


50 1c 


0124 8F 


10: 
15: 


3~JUN-1984 
24-APR-1982 


- COMMUNUCATION DRIVERS SUBROUTINES 
COM$BLDCTRLAST - BUILD CONTROL AST 


BS O02D9 659 TSTW PCB$W_ASTCNT(R4) 
156 O2DC 660 BLEQ 91$ 
B7 O2DE 661 DECW PCB$W_ASTCNT(R4) 
DD 0O2E1 662 PUSHL R3 
9A O2E3 663 MOVZBL #TAST$C_LENGTH, Ri 
16 O2E6 664 JSB GAEXE$ALLOCBUF 
B8EDO O2EC 665 POPL R3 
EQ O2EF 666 BLBC RO, 939 
10 O2F2 667 BSBB COM$FILLCTRLAST 
O2F4 668 
O2F4 669 ; 
O2F4 670 ; INSERT NEWLY BUILD TAST CONTROL BLOCK 
O2F4 671 ; 
O2F4 672 
O2F4 673 DSBINT UCB$B_DIPL(R5) 
DO O2FB 674 MOVL (R7), TAST$L_FLINK(R2) 
DE O2FF 675 MOVAL TAST$L_FLINK(R2), (R7) 
C8 0303 676 BISL 
0308 677 ENBINT 
3C 0308 678 MOVZWL #SS$ NORMAL, RO 
05 O30E 679 RSB 
O3O0F 680 
O30F 681 ; 
O30F 682 ; ERROR RETURNS: 
O30F 683 ; 
O30F 684 
3C O30F 685 91$: MOVZWL #SS$ EXQUOTA, RO 
05 0312 686 RSB 
0313 687 
3C 0313 688 93$: MOVZWL =#SS$_INSFMEM, RO 
05 0318 689 RSB 


56:56 
46:24 


we we we we ee we ee we we 


> 
. 
rf 
> 
> 
> 


? 


. 
, 
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Is there enough AST quota? 

Branch if insufficient AST quota. 
Deduct from AST quota. 

Save reg. destroyed by EXE$ALLOCBUF. 
Set size of TAST block. 
Allocate for the TAST control 
Restore saved register. 

Branch if allocation failed. 
Fill in newly allocated block. 


biock. 


Intertock access to queue Jinks. 
Move list for. pointer to new entry. 
Link new entry to current list. 


TAST$L_MASK(R2), @CURMSKADR(R11) ; Update summary mask. 


Restore previous IPL. 
Indicate that build succeeded. 
Return to caller. 


AST quota exceeded. 


Insufficient dynamic memory. 


COMDRVSUB © 


VO3-007 


;JLVO272 
3 JLVO0272 
;JLVO272 


20 A2 


30 A2 


6B 


08 BB 


50 


7D 


DO 


—- COMMUNUCATION 
COM$FILLCTRLAST 
0319 691 
0319 692 
0319 693 
0319 694 
0319 695 
0319 696 
0319 697 
0319 698 
0319 699 
0319 700 
0319 701 
0319 702 
0319 703 
0319 704 
0319 705 
0319 706 
0319 707 
0319 708 
0319 709 
0319 710 
0319 711 
0319 712 
0319 713 
0319 714 
0319 715 
0319 716 
0319 717 
0319 718 
0319 719 
0319 720 
0319 721 
0319 722 
0319 723 
0319 724 
0319 725 
0319 726 
0319 727 
0319 728 
0319 729 
0319 730 
0319 731 
0319 732 
0319 733 
0319 734 
0319 735 
0319 736 
0319 737 
0319 738 
0319 739 
0319 740 
0319 741 
0319 742 
0319 743 
031D 744 
031D a 
0322 2 
0322 “a 


D4 
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.-SBTTL COM$FILLCTRLAST - FILLIN A CONTROL AST CONTROL BLOCK 


++ 


COM$FILLCTRLAST - FILLIN A CONTROL AST CONTROL BLOCK 
FUNCTIONAL DESCRIPTION: 


This routine fills in the terminal AST control block pointed to by R2. The 
block may be either a previously allocated block which is already linked to 
a control AST queue, or a newly allocated block which is being filled in for 
the first time. 


INPUTS: 
R2 = ADDRESS OF TAST CONTROL BLOCK TO BE FILLED IN 
R3 = 1/0 PACKET ADDRESS 
R4 = CURRENT PCB 
RG = CHANNEL ON WHICH OOB AST REQUEST IS BEING MADE 
R11= THE ADDRESS OF A TAST INFORMATION LIST (SEE COM$SETCTRLAST) 
AP = ADDRESS OF THE QIO ARGLIST 


P3(AP) = ACCESS MODE IN WHICH THE AST IS TO BE DELIVERED 
(This is maximized against the caller’s access mode) 


CHARACTER IS TYPED 
ASTPARM(R11) = AST PARAMETER VALUE TO BE PASSED TO AST ROUTINE WHEN 


OUT-OF-BAND AST IS DELIVERED 
USRMSKADR(R11)= ADDRESS OF OUT-OF-BAND MASK SPECIFIED BY USER FOR 
: THIS AST ENABLE 
If this routine is called to operate on a TAST block which is already 
linked to a control queue, it should be called at device IPL. 
Otherwise, it can be called at IPL$_ASTDEL. 
OUTPUTS: 


RO & R1 ARE DESTROYED. 
ALL OTHER REGISTERS ARE PRESERVED. 


IPL at exit is the same as IPL at entry. 
The TAST control block pointed to by R2 is filled in. 
COMPLETION CODES: 


; ASTROUT(R11) = ADDRESS OF AST ROUTINE TO CALL WHEN OQUT-OF-BAND 
; There is no completion status. This routine is always successful. 


COM$FILLCTRLAST: 


ASSUME TAST$L_ASTPRM EQ <TAST$L_AST + 4> 
ASSUME ASTPARM EQ <ASTROUT + 4> 


MOVQ ASTROUT(R11), - ; Plant AST routine and 
TAST$L_AST(R2) ; parameter addresses, 
MOVL @USRMSKADR(R11), - 
TAST$L_MASK(R2) ; Plant OOB mask. 


CLRL RO ; Assume no flags 


COMORVSUB 
V03-007 


; JLVO272 
; JLVO272 
; JLVO272 
; JLVO272 
; JLVO272 
; JLVO272 
;JLV0272 
; JLVO272 
sJLVO272 
;JLVO272 
; JLV0272 
; JLVO272 
; JLVO272 
; JLV0272 
; JLVO272 
; JLVO272 


~5 


05 20 


03 20 


2D 
50 


51 


2c 
2E 
28 A2 


A3 


50 


A3 
50 
A2 
02 


02 


oc 


20 
08 


0B 
02 
50 


08 AC 
51 


51 
50 
03 
51 
50 
56 
60 A4 
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3-JUN-1984 


COM$FILLCTRLAST - FILLIN A CONTROL AST C 24-APR-1982 


Et 


11 


E1 
88 


90 
EF 


DC 
EF 


91 
18 
90 
90 
BO 
DO 
05 


0324 
0324 
0324 
0324 
0329 
0329 
03:2C 
O032E 
032E 
O32E 
O32E 
0333 
0333 
0336 
0336 
O33A 
033D 
0340 
0342 
0346 
0347 
034A 
034C 
O34F 
0353 
0357 
035C 
035D 
035D 


752 


754 
755 
756 
757 
758 
759 
760 


10$: 


20$: 


; Check 
BBC 


BISB 
BRB 


; Check 
BBC 
BISB 


MOVB 
EXTZV 


MOVPSL 
EXTZV 


CMPB 
BGEQ 
MOVB 
MOVB 
MOVW 
MOVL 
RSB 


. END 


for ABORT 


#I10$V_TT_ABORT, - 
IRP$W_FUNC(R3),5$ 
#TAST$M_ABORT,RO 
10$ 


for INCLUDE 


#10$V_INCLUDE, - 
IRP$W_FUNC(R3), 10$ 
#TAST$M_INCLUDE, RO 


RO, TAST$B_CTRL(R2) 
#0, #2, P3(AP), RO 
\ 


R1 


RO, R1 
20$ 

R1, RO 

RO, TAST$B_RMOD(R2) 
R6, TAST$W_CHAN(R2) 


10: 
15: 
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. 
> 


> 


#PSL$V_PRVMOD, #PSL$S_PRVM 


> 
. 
. 
’ 
. 
? 
’ 


Branch if not abort 
Else set abort flag. 
Ignore INCLUDE 


BR if striping OOB chars. 
Else set no-strip flag. 


Set TAST contro! field. 
Get requested delivery access mode. 


Get access mode of requestor. 
OD, R1, R1 ; If requestor’s access 


mode is bigger than delivery access 
mode, then delivery AST in 
requestor’s access mode. 

Plant delivery access mode. 

Plant requestor’s channel. 


.PCB$L_PID(R4), TAST$L_PID(R2) ; Plant requestor’s PID. 


Return to caller. 


COMDRV SUB 
Symbol table 


ACB$B_RMOD 
ACB$L_AST 
ACB$L_ASTPRM 
ACB$L_KAST 
ACB$L_PID 
ACB$M_NODELETE 
ACB$M_PKAST | 
ACB$M_QUOTA 
ASTACNTNG 
ASTPARM 

ASTROUT 

ATTN2 
BUG$_BADDALRQSZ 
COM$BLOCTRLAST 
COM$DELATTNAST 
COM$DELATTNASTP 
COM$DELCTRLAST 
COM$DELCTRLASTP 
COM$DRVDEALMEM 
COM$FILLCTRLAST 
COM$FLUSHATTNS 
COM$FLUSHCTRLS 
COM$POST 
COM$SETATTNAST 
COM$SETCTRLAST 
CTRL2 

CURMSKADR 
DIR... 
DYN$SC_FRK 
EXE$ABORTIO 
EXE$ALLOCBUF 
EXES$DEANONPAGED 
EXE$FORK 
EXE$MAXACMODE 
FKB$B_FIPL 
FKB$B_TYPE 
FKB$C_LENGTH 
FKB$W_SIZE 
IO0$V_INCLUDE 
IO0$V_TT_ABORT 
IOC$GL_PSBL 
IPL$_IOPOST 
IPL$ QUEUEAST 
IPL$ SYNCH 
IRP$W_CHAN 
IRP$W_FUNC 


PCB$L_PID 
PCB$W_ASTCNT 


* PR$S_IPL 


PRG _SIRR 
PRI$_IOCOM 


oH W tM oH ou abu 


Hou 


Hou wd WoW ou 
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0000000B 
00000010 
00000014 
00000018 
oo00000C 
00000020 
00000010 
00000040 
O0O00001CA 
00000004 
00000000 
Ooo000000C 
RR ROKK 
000002D9 
00000000 
00000008 
00000142 
0000014A 
OOoO00008F 
00000319 
O0000004F 
OOOOO01E9 
00000081 
o000000D5 
00000235 
OO00014E 
ooo0g000Cc 
00000001 
00000008 


OR RRR RR 
aOR RRR KK 
KKKKAKEK 
KOE ROK A EK 
ROK KOR KKK 


OO000000B 
OOO0Q000A 
00000018 
00000008 
OOO00000B 
o000000C 
AK KK RK 
00000004 
00000006 
00000008 
00000028 
00000020 
00000000 
00000004 
00000008 
O0000000C 
00000010 
00000014 
00000060 
00000038 
00000012 
00000014 
00000001 


RG 


RG 
RG 
RG 


RG 
RG 


RG 
RG 


xx KKK 


02 


PSL$S_PRVMOD 
PSL$V_PRVMOD 
SAVABS... 
SCH$GL_PCBVEC 
SCH$QAST 
SS$_ACCVIO 
SS$_BADPARAM 
SS$_EXQUOTA 
SS$_INSFMEM 
SS$_NORMAL 
TAST$B_CTRL 
TAST$B_RMOD 
TAST$C_LENGTH 
TAST$L_AST 
TAST$L_ASTPRM 
TAST$L_FLINK 
TAST$L_MASK 
TAST$L_PID 
TAST$M_ABO 
TAST$M_ABORT 
TAST$M_BUSY 
TAST$M_INCLUDE 
TAST$M_LOST 
TAST$V_ABORT 
TAST$V_BUSY 


_ TAST$V_INC 


TAST$V_INCLUDE 
TAST$V_LOST 
TAST$W_CHAN 
TINFOSIZE 
UCB$B_DIPL 
UCB$L_OPCNT. 
USRMSKADR 


3-JUN- 1984 
24-APR-1982 


10:56: 
15:46: 
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00000002 
00000016 


00000010 
RK RK RR 


OK OK KKK 


O000000C 
00000014 
O000001C 
00000124 
00000001 
0000002D 
0000002C 
00000034 
00000020 
00000024 
0000001C 
00000030 
00000028 
00004000 
00000020 
00000008 
00000002 
00000010 
00000005 
00000003 
OOOOO000F 
00000001 
00000004 
OO000002E 
00000010 
OOOOOOSE 
00000070 
00000008 


COMDRVSUB - COMMUNUCATION DRIVERS SUBROUTINES 3-JUN-1984 10:56:56 VAX-11 Macro V03-01 Page 22 


Psect synopsis 24-APR-1982 15:46:24 DISK$VMSMASTER: [SYS.SRC]COMDRVSUB(11) 
tooo r oeennne + 
! Psect synopsis ! 
Sse eal leeienienteaientasiaatenteatente tenon + 
PSECT name Allocation PSECT No. Attributes 
‘ ABS - 00000000 ( 0.) 00 (¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
$ABS$ 00000010 (¢ 16.) O1 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
WIONONPAGED 0000035D ( 861.) O02 ( 2.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
t--- + 
! Performance indicators ! 
+---------- + 
Phase Page faults CPU Time Elapsed Time 
Initialization 28 00:00:00.07 00:00:01.22 
Command processing 99 00:00:00.52 00:00:06.81 
Pass 1 457 00:00:19.68 00:01:34.99 
Symbol table sort 0 00:00:02.98 00:00:10.33 
Pass 2 150 00:00:05.11 00:00:26.99 
Symbol table output 11 00:00:00.10 00:00:00.10 
Psect synopsis output 2 00:00:00.03 00:00:00.73 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 750 00:00:28.49 00:02:21.17 


The working set limit was 1650 pages. 

102023 bytes (200 pages) of virtual memory were used to buffer the intermediate code. 

There were 100 pages of symbol table space allocated to hold 1859 non-local and 37 16cal symbols. 
860 source lines were read in Pass 1, producing 15 object records in Pass 2. 

34 pages of virtual memory were used to define 32 macros. 


t-------------------------- + 
! Macro library statistics ! 
to ---- -- - - - -  - + 
Macro library name Macros defined 
_$255$0UA28:[SYS.OBJ]LIB.MLB; 1 18 
_$255$DUA28: [SYSLIB] STARLET .MLB; 2 11 
TOTALS (all libraries) 29 


2032 GETS were required to define 29 macros. 
There were no errors, warnings or information messages. 


MACRO/LIS=LIS$: COMORVSUB/OBJ=OBJ$: COMDRVSUB MSRC$: COMDRVSUB/UPDATE=(ENH$: COMDRVSUB)+EXECML$/LIB 


PCDRIVER.LIS 
PCDRIVER.COM 
PCDRIVER.OPT 
LOADER.COM 
READV.FOR 
RANDWV.FOR 
MODE.FOR 


PCDRIVER - VAX/VMS PAPER TAPE READER/PUNCH DRIVER 12-SEP-1984 17:59:27 VAX-11 Macro V03-01 Page 0 
Table of contents 


(1) 85 External and local symbol definitions 

(1) 202 Standard tables 

(1) 312 PT_CONTROL_INIT, Controller initialization routine 
(1) 341 PT_UNIT_INIT, Unit initialization routine 
(1) 389 PT_FDOT_ROUTINE, Punch FDT routine 

(1) 471 ACP_FDT ACP $QIO FDT Routine 

(1) 527 NULL_BYTES FDT Routines for header/trailer 
(1) 543 PR_FDOT_ROUTINE Reader FDT Routine 

(1) 603 PT_START, Start 1/0 routine 

(1) 647 PT PUNCH, Start a punch operation 

(1) 905 PR_START, Start I/O routine (Reader) 

(1) 1012 PT_INTERRUPT, Interrupt service routine 
(1) 1068 PT_CANCEL, Cancel I/0 routine 

(1) 1168 PT_REG_DUMP, Device register dump routine 
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-TITLE PCDRIVER - VAX/VMS PAPER TAPE READER/PUNCH DRIVER 
-IDENT /VOQ6/ 


COPYRIGHT (C) 1979: 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DEC. 


++ 

FACILITY: 
VAX/VMS Paper Tape Reader/Punch Driver 

ABSTRACT: 
This driver controls the PC11 paper tape reader/punch. READ and 
WRITE $QI10s are accepted (VBLK, LBLK, AND PBLK), as are MOUNT, 
ACPCONTROL, and WRITEOF $Q10Os (which call on the ACP -- PCACP). 
MODIFY, DELETE, and DEACCESS $Q1I0s are valid for the punch, 
as are CREATE and READPROMPT $Q10s (valid for both reader/punch). 


READVBLK and READLBLK cause characters to be read from the 


reader with leading null bytes ignored (for the first read 
request); READPBLK is the same, except that leading null bytes 
are treated as data characters. An EOF byte is recognized if 


the user requested looking for EOF (defauit if not physical). 


WRITEVBLK and WRITELBLK cause characters to be punched (a 
header and trailer of null bytes is punched--default is to 

punch NULL BYTES null bytes in the header and trailer tape). 
WRITEPBLK is the same, except that no header/trailer is punched. 
If first $QIO wasn’t physical, an EOF is punched before trailer. 


The MOUNT $QIO is used to synchronize with the ACPMNT program 
which loads the paper tape punch ACP (PCACP). The ACPCONTROL 
$QIO is a no-op function which serves to awaken the ACP if it is 
hibernating. The WRITEOF $QIO is turned into an equivalent 
WRITEVBLK $QIO by the ACP. 


The MODIFY $QIO changes the default (NULL_BYTES) number of null 
bytes to punch in’ the header/trailer tape. P2 specifies the 
new number of null bytes to be punched. 


The DELETE $QIO restores the default (NULL BYTES) number of nul] 
bytes to punch in the nheader/trailer tape. 


The DEACCESS $QI10 returns the current number of null bytes which 
are to be punched for the header/trailer tape in the high order 
longword of the IOSB specified in the $QI10 cail. 
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The CREATE $QIO is used to enable searching for an EOF byte (for 
the reader), or to enable the punching of an EOF byte (for the 
punch). 


The READPROMPT $QIO is used to disable searching for an EOF byte 
(for the reader), or to disable the punching of an EOF byte (for 
the punch). 


When used, P1 is the starting address of the buffer, and P2 is 
the buffer length. The driver performs buffered I/0. 


An EOF character is equal to a decimal 26 (contro1-Z). 


Note that the ACP (PCACP) is not required for the driver to 
work. PCDRIVER may be loaded and used independent of the ACP. 
The ACP’s main function is to serve as an instructional tool 
showing how ACPS are written; the ACP does not provide any 
added functionality for either the reader or punch. 


AUTHOR: 


Vik Muiznieks -- July 1979 
HISTORY 
Fred Marsh 
Added $DYNDEF $PRVDEF and $PCBDEF to external symbol definitions 
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00000000 
00000004 
00000008 
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00000010 
00000014 


OOOOO00F 
00000002 
oo000g000c 
OOO0000A 
00000002 
00000064 
00000064 
o0000000C 
00000000 
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00000032 
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87 ; 
88 ; External symbols 
89 ; 
90 $CRBDEF ; Channel request block 
91 $VCBDEF ; Volume control block 
92 $DCDEF ; Device classes and types 
93 $DDBDEF ; Device data block 
94 $DEVDEF ; Device characteristics 
95 $SEMBDEF ; Error logging fields(not in template) 
96 $IDBDEF ; Interrupt data block 
97 $IODEF ; 1/0 function codes 
98 $IPLDEF 3; Hardware IPL definitions 
99 $IRPDEF ; I/O request packet 
100 $JIBDEF ; Job Information Block 
101 $SSDEF ; System status codes 
102 $UCBDEF ; Unit control block 
103 $VECDEF ; Interrupt vector block 
104 $DYNDEF ; 
105 $PCBDEF ; 
106 SPRVDEF : 
107 
108 
109 ; 
110 ; Argument list (AP) offsets for device-dependent $QIO parameters 
i (Only P1 and P2 are used in this driver) 
£2" xs 
113 
114 Pl = 0 ; First $QIO parameter 
115 P2 = 4 ; Second $QIO parameter 
116 P3 = 8 ; Third $QIO parameter 
1t7 P4 = 12 ; Fourth $QIO parameter 
118 PS = 16 ; Fifth $QI10 parameter 
119 P6 = 20 3; Sixth $QIO parameter 
120 ; 
121 ; Other constants 
122 ; 
123 
124 LOOP_CNT=15 ; before issuing off-line msg. 
125 SHORT _WAIT=2 ; # sec for device to go online 
126 BUF_OVR_HD=12 ; system buffer overhead 
127 PT_TIMEOUT_SEC=10 ; 10 second device timeout 
128 PT_NUM_REGS=2 ; Each device has 2 registers 
129 MY_CLASS=100 ; My own device class number 
130 MY_TYPE=100 ; My own device type number 
131 ERBFSIZE=12 ; Size of err. log buf. in bytes 
132 NULL=0 ; mull byte 
133 EOF=26 ; EOF byte = control-Z 
134 NULL_BYTES=50 ; for header/trailer 
135 PUNCH _HDR=1 ; bit pos. flagging 
136 ; header/trailer punched 
137 START=4 ; mask for punch. hdr. 
138 END=16 ; mask for punch. trail. 
139 PNCH=8 ; flag-->punch op. perf. (mask) 
140 RD_HDR=32 ; flag-->read hdr. tape (mask) 
141 STARTING=7 ; bit pos.--> ist operation 
142 FRST_QIO=6 ; flag~-->read ist header (pos.) 
143 BITO=1 ; mask-~->EOF byte handling 
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00000100 0o000 144 BIT8=256 3 mask-->E0F byte handling 
00000200 0000 145 BIT9=512 ; mask-->EOF byte handling 
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147 ; 
148 ; Definitions that follow the standard UCB 
149 ; 
150 $DEFINI UCB 3 
151 
152 .=UCB$L_ DPC+4 3 
153 ; 
154 $DEF UCB$L_SAV_R4 »~BLKL 1 ; 
155 
156 $DEF UCB$W_PT_PPS . BLKW 1 3 
157 
158 $DEF UCB$B_PT_OFLCNT .BLKB 1 3 
159 
160 $DEF UCB$B_PT_PPB .BLKB 1 ; 
161 
162 $DEF UCB$W_MY_REFCNT .BLKW 1 : 
163 
164 $DEF UCB$K_PT_UCBLEN 3 
165 
166 $DEFEND UCB 3 
167 ; 
168 ; Device register offsets from CSR address 
169 ; 
170 $DEFINI PT ; 
171 ; 
172 $DEF PT_PRS 3 
173 . BLKW 1 
174 ; 
175 ; Bit positions for device control/status 
176 ; 
177 _VIELD PT_CSR,0O,<- ; 
178 <RDENA, ,M>,- 3 
179 <,5>,- ; 
180 <IE,,M>,- 3 
181 <DONE, ,M>,- ; 
182 <,3>,7- : 
183 <BUSY,,M>,- ; 
184 <,3>,- ; 
185 <ERROR, ,M>,- 3 
186 > 
187 $DEF PT_ PRB : 
188 .BLKW 1. 
189 $DEF PT_PPS ; 
190 . BLKW 1 
191 _VIELD PT_STS,0,<- ; 
192 <,6>,7- ; 
193 <IE,,M>,- ; 
194 <READY, ,M>,- 3 
195 <,7>,- ; 
196 <ERROR, ,M>,- ; 
197 > - 
198 $DEF PT_PPB 3 
199 .BLKW 1 
200 $DEFEND PT 5 
201 3 
202 -SBTTL Standard tables 
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fields 


Start of UCB definitions 


Position at end of error 
extension to UCB 
copy of R4 for CANCEL routine 


log 


copy of status reg. (err. tog) 
Off-line counter | 
Copy of data reg. for err. lag 


Counter for channels assigned 
Length of extended UCB 


End of UCB definitions 


Start of status definitions 


reader Control/status register 


registers 


Control/status register 
Reader enable bit 

Skip five bits 

Reader interrupt enable bit 
Reader done bit 

Skip three bits 

Reader busy bit 

Skip three bits 

Reader error bit 


reader data register 
Punch Control/status register 


Control/status register 
disregard bits 
interrupt enable 

device ready bit 
disregard bits 

device error bit 


Punch data register 


End of device register 
definitions. 
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Driver prologue table 


DPTAB- - 
END=PT_END,- 
ADAPTER=UBA, - 


UCBSIZE=<UCB$K_PT_UCBLEN>, - 


NAME=PCDRIVER 
DPT_STORE INIT 


DPT_STORE UCB,UCB$B8_FIPL,B,8 
DPT STORE UCB,UCB$B8_DIPL,B, 20 


DPT_STORE UCB,UCB$L_DEVCHAR,L, <- 


DEV$M_AVL!- 
DEV$M_ELG!- 
DEV$M_REC!- 
DEV$M_IDV!- 
DEV$M_ODVv> 
DPT_STORE 
DPT_STORE 
DPT_ STORE 
DPT_STORE 
DPT_STORE REINIT 
DPT_STORE 
DPT _STORE CRB,CRB$L_INTD+4,D, 
PR_INTERRUPT 


UCB, UCB$B_DEVCLASS,B8,MY_CLASS 
UCB, UCB$B_DEVTVYPE,B,MY_TYPE 
UCB, UCB$W_DEVSTS,W,0 

UCB, UCB$W_DEVBUFSIZ,W,NULL_BYTES ; 


DDB ,DDB$L_DDT,D,PC$DDT 


DPT_STORE CRB,CRB$L_INTD2+4,D,~- 


PT_INTERRUPT 

DPT_STORE CRB,- 
CRB$L_INTD+VEC$L_INIT 
D,PT_CONTROL_INIT 


DPT_STORE END 


Driver dispatch table 


DDTAB- - 
DEVNAM=PC, - 
START=PT_START,- 
FUNCTB=PT_FUNCTABLE, - 
CANCEL=PT_CANCEL, - 
REGDMP=PT_REG_DUMP, - 
UNITINIT=PT_UNIT_INIT 


ERLGBF=ERBFSIZE+EMB$L_DV_REGSAV 


Function dispatch table 


PT FUNCTABLE: 


FUNCTAB ,- 


IAL ,- 


> 
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> 
’ 
> 
? 
¥ 
> 
> 
E 
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we we we te we we ee we we 


“Unit 


DPT-creation macro 
End of driver jabel 
Adapter type 
Length of UCB 
Driver name 
Start of load 
initialization table 
Device fork IPL 
Device int. IPL (BR4) 
Device characteristics 
e.g., dev. availabie 
error logging enabled 
record oriented 
input device-reader 
output device-punch 
store my device class 
Store my device type 
Clear all flags 
init. # null bytes 
Start of reload 
initialization table 


Address of DDT 
Address of reader int. 
service routine 
Address of punch int. 
service routine 
Address of controller 


initialization routine 


End of initialization 


tables 


DDOT-creation macro 
Name of device 

Start I/0 routine 

FDT address ; 
Cancel 1/0 routine 
Register dump routine 
init. routine 
Size of err. log. buf. 
(plus system overhead) 


FDOT for driver 
Valid I/O functions 


PCDRIVER 

VO6 Standard tables 
0038 261 
0038 262 
y 0038 263 
0038 264 
0038 265 
0038 266 
0038 267 
0038 268 
0038 269 
0038 270 
0038 271 
0038 272 
0038 273 
0038 274 
0040 275 
0040 276 
0040 277 
0040 278 
0040 279 
0040 280 
0040 281 
0040 282 
0040 283 
0040 284 
0040 285 
0040 286 
0040 287 
0040 288 
0040 289 
0048 290 
0048 291 
0048 292 
0048 293 
0054 294 
0054 295 
0054 296 
0054 297 
0060 298 
O006C 299 
006C 300 
OO6C 301 
0078 302 
0078 303 
0078 304 
0078 305 
0084 306 
0090 307 
0090 308 
0090 309 
0090 310 
0090 311 
009C 312 


FUNCTAB 


FUNCTAB 


FUNCTAB 
FUNCTAB 
FUNCTAB 


FUNCTAB 


FUNCTAB 
FUNCTAB 
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<READVBLK, - 
READLBLK, - 
READPBLK, - 
MOUNT, -— 
CREATE, - 
READPROMPT , - 
ACPCONTROL, - 
MODIFY, - 
DELETE, - 
DEACCESS,- 
WRITEOF,- 
WRITEVBLK, - 
WRITELBLK, - 
WRITEPBLK> 


’ 


<READVBLK, — 
READLBLK,~- 
READPBLK,— 
MOUNT, ~ 

CREATE,- 
READPROMPT , ~ 
ACPCONTROL, ~ 
MODIFY, - 
DELETE, - 
DEACCESS,- 
WRITEOF,~— 
WRITEVBLK,— 
WRITELBLK, - 
WRITEPBLK> 
PT_FDT_ROUTINE,- 
<WRITEVBLK, - 
WRITELBLK, -— 
WRITEPBLK> 
PR_FDT_ROUTINE,- 
<READVBLK, - 
READLBLK,- 
READPBLK> 
ACP_FDT, <MOUNT> 
Q_TO_ACP,- 
<ACPCONTROL, — 
WRITEQOF> 
FOR_PNCH,- 
<MODIFY,-— 
DELETE,- 
DEACCESS> 
SET_FDT,<MODIFY> 
+EXESQIODRVPKT, — 
<DELETE,~- 
CREATE, - 
READPROMPT , - 
DEACCESS> ; 
PT_CONTROL_INIT, Controller initia 


oe we we we we we wt we we we we we we we we ee ee we ee ee we ee we we we we we ek Oe HO we we we we we we we we we wt Oe we we we we we we we we we 
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READ virtual 

READ logical 

READ physical 

MOUNT ACP function 
CREATE function 
READPROMPT function 
ACPCONTROL function 
set #¥- null bytes 
reset # null bytes 
read # null bytes 
write EOF function 
Write virtual 

Write logical 

Write physical 
Buffered functions 
READ virtual 

READ logical 

READ physical 

MOUNT ACP function 
CREATE function 
READPROMPT function 
ACPCONTROL function 
set #,null bytes 
reset # null bytes 
read # null bytes 
write EOF function 
Write virtual 

Write logical 

Write physical 

FDOT write routine for 
write virtual, 
write logical, 


‘and write physical. 


FDT READ routine for 
READ virtual, 

READ logical, 

and READ physical. 

FDOT ACP routines 

Check for ACP FDTs 
ACPCONTROL routine 
WRITE EOF routine 

Make sure for punch 
set # null bytes 

reset # null bytes 
read # null bytes 

set # null bytes 

no more checking 

for null byte reset or 
CREATE function or 
READPROMPT function or 
reading # null bytes 
lization routine 
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v0O6 PT_CONTROL_INIT, 
oosc = 314 
o09sc = 315 
o09c = 316 
009C = 3317 
o09c = 318 
o09c =—_ 3319 
009c =. 320 
009c = 321 
o09C =. 322 
009c 8=—«_ 32 
o09c 8=—- 324 
o09c =. 325 
009C 326 
009C 327 
009C = 328 
o09c =. 329 
009c =. 380 
o09c = 331 
009C = 332 
o09c =. 333 
009C 6334 
o09c =. 335 
009C 8=—«. 336 
009C 337 
o09c 8=. 338 
009C =. 339 
05 o009C 340 
0090 = 341 


Controller initializati 22-AUG-1984 20:06:00 WORK2: [COURSE.DRIVER]PCDRIVER.MAR;(1) 
++ 

PT_CONTROL_INIT, Readies controller for 1/0 operations 

Functional description: 
‘The operating system calls this routine in 3 places: 


at system startup 
during driver loading and reloading 


during recovery from a power failure 
R4 - address of the CSR (controller status register) 
R5 - address of the IDB (interrupt data block) 
R6 - address of the DDB (device data biock) 
R8 ~ address of the CRB (channel request block) 
Outputs 
The routine must preserve al! registers except RO-R3. 


; Inputs: 
; 
PT_CONTROL_INIT: ; Initialize controller 
RSB ; Return 
-SBTTL PT_UNIT_INIT, Unit initialization routine 


PCDRIVER 
V06 


38 A5 


38 AS 


64 A510 


50 54 A5 
50 

OA 

04000000 8F 
08 


08000000 8F 
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o009D 
009D 
009D 
009D 
009D 
009D 
009D 
009D 
009D 
009D 
009D 
o009D 
009D 
009D 
009D 
o009D 
009D 
009D 
0O09D 
oogD 
0090 
0o9D 
009D 
009D 
009D 
009D 
009D 
009D 
009D 
009D 
009D 
009D 
009D 
009D 
009D 
009D 
009D 
009D 
009D 
O0A1 
OOA5 
00A7 
O0AQ 
OOB1 
00B3 
O0OBB 
OOBC 


343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 


ot+ 

; PT_UNIT_INIT, Readies unit for 1/0 operations 

; Functional description: 

; The operating system calls this routine after calling the 

; controller initialization routine: 

‘ at system startup 

; during driver loading 

; during recovery from a power failure 

; When using the SYSGEN CONNECT command, the reader is 

; connected first (as PCO:), and the punch is connected 

: second (as PC1:). The initialization routine sets both 

; units on-line, and clears the appropriate device 

3 characteristics bit (i.e., punch does only output oper- 

; ations, reader does only input operations). Two UCBs 

; are used so that operations can be overlapped on the 

7 reader and punch. No controller channel is ever requested 

; Cwith REQPCHAN) since the PC11 reader/punch is essentially 

$ two independent devices in one box, and no controller is 

3 really present. (Therefore operations may occur on both 

; the reader and the punch at the same time.) 

: Inputs: 

; R4 - address of the CSR (controller status register) 

; R5 - address of the UCB (unit control block) 

; Outputs: 

; The routine’ must preserve all registers except RO-R3. 

PT_UNIT_INIT: ; Initialize unit 
BISW #UCB$M_ONLINE,UCB$W_STS(R5) ; Set unit online 
MOVW UCB$W_UNIT(R5),RO ; Get unit # 
TSTW RO ; Is unit # QO? 
BEQL 10$ ; If so, reader 
BICL #DEV$M_IDV,UCB$L_DEVCHAR(R5) ; No input if punch 
BRB 20$ 

10$: BICL #DEV$M_ODV,UCB$L_DEVCHAR(RS5) ; No output if reader 

20$: RSB ; Return 
-SBTTL PT_FDT_ROUTINE, Punch FDT routine 


PCDRIVER - VAX/VMS PAPER TAPE READER/PUNCH DRIVER 12-SEP-1984 17:59:27 VAX-11 Macro VO3-01 Page 10 


VO6 PT_FDT_ ROUTINE, Punch FDT routine 22-AUG-1984 20:06:00 WORK2:[COURSE.DRIVER]PCDRIVER.MAR; (1) 
OOBC 391 
OOBC 392 ;++ 
OOBC 393 ; PT_FDT_ROUTINE, Punch FDT routine 
OOBC 394 ; 
OOBC 395 ; Functional description: 
OOBC 396 ; 
OOBC 397 ; This FDT routine makes all the standard accessibility checks 
OOBC 398 ; for buffered 1/0 operations, allocates a buffer from system 
OOBC 399 ; pool, and copies the user data to be punched to the system 
OOBC 400 ; buffer. The standard IRP and PCB fields are updated. In the 
OOBC 401 ; case of a WRITEOF function code, the IRP is queued to the ACP. 
OOBC 402 ; The routine makes sure that the punch UCB is being 
OOBC 403 ; referenced by the user. 
OOBC 404 ; 
OOBC 405 ; Inputs: 
OOBC 406 ; 
OOBC 407 ; RO-R2 - scratch registers “a 
OOBC 408 ; R3 - address of the IRP (I/O request packet) 
OOBC 409 ; R4 - address of the PCB (process control block) 
OOBC 410 ; R5 - address of the UCB (unit control block) 
OOBC 411 ; R6 - address of the CCB (channel control block) 
OOBC 412 ; R7 - bit number of the I/O function code 
OOBC 413 ; R8 - address of the FDT table entry for this routine 
OOBC 414 ; R9-R11 - scratch registers 
OOBC 415 ; AP - address of the ist function dependent $QIO parameter 
OOBC 416 ; 
OOBC 417 ; Outputs: 
OOBC 418 ; 
OOBC 419 ; The routine must preserve all registers except RO-R2, and 
OOBC 420 ; RO-R11. 
OOBC 421 ; 
OOBC 422 ;-- 
OOBC 423 
OOBC 424 PT_FDT_ROUTINE: ; Punch FDT routine ala CRDRIVER 
50 OOOOOOF4 8F DO OQOOBC 425 MOVL #SS$_ILLIOFUNC,RO ; Assume wrong UCB 
06 38 AS 1B EO OO0C3 426 BBS #DEV$V_ODV,UCB$L_DEVCHAR(R5),5$ ; Check for punch UCB 
00000000 ‘GF 17 OOCB 427 JMP GAEXE$ABORTIO ; Error if not 
50 6C DO OOCE 428 5$: MOVL P1(AP),RO ; Get add. of buffer 
51 04 AC 3C O0OD1 429 MOVZWL P2(AP),R1 ; Get length of buffer 
5F 13 OODS 430 BEQL 10$ ; Zero length transfer? 
Q0000000 ‘GF 16 OOD7 431 JSB GAEXES$WRITECHK ; Check access of user 
OODD 432 ; buffer -- no return if 
OODD 433 ; No accessibility 
32 A3 51 BO OODD 434 MOVW R1,IRP$W_BCNT(R3) ; Save user buffer ten. 
09 BB OOE1 435 PUSHR #AM<RO,R3> ; Save registers 
51 oc CO OOE3 436 ADDL2 #BUF_OVR_HD,R1 ; Account for overhead 
00000000’ GF 16 OOE6 437 JSB GAEXESBUFFRQUOTA ; Check buffer quota 
50 50 EQ OOEC 438 BLBC RO,20$ ; Abort if insufficient 
00000000 ’ GF 16 OOEF 439 JSB GAEXE$SALLOCBUF ; Allocate system buffer 
47 50 EQ OQOOF5 440 BLBC RO,20$ 3; Abort on failure 
09 BA OOF8 44} POPR #AM<RO,R3> ; Restore registers 
2C A3 52 DO OOFA 442 MOVL R2,IRP$L_SVAPTE(R3) ; Store returned buf add 
30 A3 51 BO OOFE 443 MOVW Ri, IRPS$W_BOFF(R3) ; And byte quota charged 
50 DDB 0102 444 PUSHL RO ; Save reg. 
50 0080 C4 DO 0104 445 MOVL PCB$L_JIB(R4) ,RO ; Get JIB address 
20 AO 51 C2 0109 446 SUBL R1,JIB$L_BYTCNT(RO) ; Charge process for buf 
50 8BEDO 010D 447 POPL RO ; Restore reg. 


PCDRIVER 


V06 
38 

53 52 OC 

82 53 

62 50 

51 Oc 

63 60 51 

| 38 

59 20 AB 


28 59 06 00 


43 
00000000’ GF 


50 01 
00000000’GF 
oc 


00000000’ GF 
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PT_FDT_ ROUTINE, Punch FDT routine 


0110 
0112 
0116 
0119 
011C 


O11F 


0123 
0123 
0125 
0129 
Q12E 
012E 
0130 
0136 
0136 
0136 
0136 
0136 
0136 
0139 
013F 
0141 
0147 
0147 


448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
47) 


ve we we 


10$: 
20$: 


PUSHR 
ADDL3 
MOVL 
MOVL 
SUBL2 
MOVC3 


POPR 
MOVW 
CMPZV 


BEQL 
JMP 


Entered 


MOVZWL 
JMP 
POPR 
JMP 


-SBITL 


12-SEP-1984 17:59:27 
22-AUG-1984 20:06:00 


#AM<KR3,R4,R5> 
#BUF_OVR_HD,R2,R3 
R3,(R2)+ 

RO, (R2) 
#BUF_OVR_HD,R1 
R1,(RO), (R3) 


#AM<R3,R4,R5> 

IRP$W_FUNC(R3) ,R9 

SA#IO$V_FCODE, SA#IO$S_FCODE,R9,- 
SA#IO$_WRITEOF 

TO_ACP 

GAEXE$QIODRVPKT 


. 
> 
. 
? 
. 
’ 
’ 
, 
. 
> 
° 
> 
. 
> 
. 
> 
. 
> 
° 
, 
. 
’ 
. 
> 
’ 
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Save 
Find 


reg.’s for MOVC3 
system data area 
Save its address 

Save user buffer add. 
Set transfer length 
Copy user buffer to 
system data buffer 
Restore reg.’s 

Get function code 

See. if WRITEOF $QI10 
If so, 

Queue IRP to ACP 
Queue driver packet 
FDT routine done 


on zero-length transfer or allocation failure 


#SS$ NORMAL ,RO 
GAEXE$FINISHIOC 
#AMK<R2,R3>. 
GAEXES$ABORTIO 


we we we we we 


ACP_FDT ACP $QIO FDT Routine 


Normal completion 
Goto finish 1/0 
Ciean up stack 
Quota or buffer 
allocation failure 


PCDRIVER 
V06 


50 24 


02 64 AS 09 
OB 
50 OO7C 8F 
00000000 ‘GF 


34 AS 
EF 


50 


OC AO 
00000000’ GF 
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0147 
0147 
0147 
0147 
0147 
0147 
0147 
0147 
0147 
0147 
0147 
0147 
0147 
0147 
0147 
0147 
0147 
0147 
0147 
0147 
0147 
0147 
0147 
0147 
0147 
0147 
0147 
0147 
0147 
0147 
0147 
0147 
0147 
0147 
0147 
0147 
0147 
0147 
014A 
0150 
0155 
0157 
015C 
0162 
0162 
0166 
0168 
0168 
O16E 
0170 
0173 
0177 
O17A 
017D 
0183 


473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 


519 
520 
521 


523 
524 
525 
526 
527 


s++ 
ACP_FD 


Functi 


Output 


ee we ee we ee Oe we ee we ee we we wt wh we we Oe Oe et we ee te we He we we we Oe we we we we we we we 


ACP_FOT: 


NT_MNT: 
NO_PRIV: 


Q_TO_ACP: 


TO_ACP: 
NT_WRT: 
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T, ACP $QIO FDT routine 


onal description: 

This FDOT routine increments the transaction count in the VCB, 
and queues the IRP to the paper tape ACP (PCACP). It is 
used for the MOUNT $QI0. MOUNT privilege is required to 
successfully issue the MOUNT $QIO request. 


Entry point Q_TO_ACP is used to service both the WRITEOF and 
ACPCONTROL $QIOs. Control is re-transferred to TO_ACP from 
routine PT_FDT_ROUTINE in the case of a WRITEOF, $QIO. 


since 
find the errors. 


No check is made on the punch or reader UCB, 
requests for ACP operation will 


Inputs: 


RO-R2 - scratch registers 

R3 - address of the IRP (1/0 request packet) 

R4 - address of the PCB (process control block) 

R5 - address of the UCB (unit control block) 

R6 - address of the CCB (channel control block) 

R7 - bit number of the I/0 function code 

R8 - address of the FDT table entry for this routine 
R9-R11 - scratch registers 

AP - address of the ist function dependent $QI0O parameter 


S$; 


The routine must preserve all registers except RO-R2, and 
RQO-R11. 

; MOUNT $QIO issued 
MOVZWL #SS$ NOPRIV,RO ; Assume insuf. priv. 
IFNPRIV. MOUNT ,NO PRIV ; Have MOUNT privilege? 
BBCC #UCBSV_| MOUNTING, UCBSW_ STSC(RS),NT_MNT ; If clr, not sync. 
BRB Q_TO _ACP ; Yes, éontinue 
MOVZWL #SS$_ DEVNOTMOUNT ,RO ; Not mounting status 
JMP GAEXE$ABORTIO ; Signal error 

; IRP request okay 
MOVL UCB$L_VCB(R5) ,RO ; Get VCB address 
BEQL NT | MNT ;- Is ACP mounted? 
CMPZV SA#IO$V_ FCODE, SA#TO$S _ FCODE, - ; Check for. WRITEOF 

IRP$W_FUNC(R3), SA#IO$_WRITEOF ; Function code 

BNEQ NT_WRT ; If neq, Q to ACP 
BRW PT_FDT_ROUTINE ; If eql, WRITEOF 
MOVL UCB$L_VCB(R5),RO ; Restore VCB address 
SETIPL #IPL$_ SYNCH ; Synch. access to VCB 
-INCW VCB$W_TRANS(RO) ; Increment trans. count 
JMP GAEXE$QIOACPPKT Queue IRP to ACP 
-SBTTL NULL BYTES FDOT Routines for header/trailer - 


PCDRIVER 
v06 


50 OOOOCOOF4 8F 
06 38 AS 1B 
00000000’ GF 


50 01 


38 A3 04 AC 
O0000000 ’ GF 


- VAX/VMS PAPER TAPE READER/PUNCH DRIVER 12-SEP-1984 


17:59:27 
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NULL_BYTES FDT Routines for header/trail 22-AUG-1984 20:06:00 WORK2: {[COURSE.DRIVER]PCDRIVER.MAR; (1) 


DO 
EO 
17 
DO 
05 


3C 
17 


0183 
0183 
0183 
0183 
0183 
0183 
018A 
018F 
0195 
0198 
0199 
0199 
O19E 
O1A4 
O1A4 


529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 


, 
° 
’ 
° 
’ 
° 
’ 
F 


5$: 
SET_FDT: 


OR_PNCH: 


FDT routines for processing MODIFY, DELETE, 
$QIOS. Very similar, and very simple. 

MOVL #SS$ ILLIOFUNC,RO ; 
BBS #DEV$V_ODV,UCB$L_DEVCHAR(RS) ,5$ ; 
JMP GAEXE$ABORTIO ; 
MOVL #SS$ NORMAL ,RO 7 
RSB : 
MOVZWL P2(AP),IRP$L_MEDIA(R3) ; 
JMP GAEXE$QIODRVPKT ; 
.SBTTL PR _FDT_ROUTINE Reader FDT Routine 


and DEACCESS 


Have punch UCB? 

Assume not 

Check for punch 

Not punch UCB 

Have punch 

Return to FDT table 
Get #,null bytes 

Store # of null bytes 
Synchronize with other 
I/O requests for unit 


PCDRIVER 
VvO6 


50 OQOQ000F4 
~ 06 38 AS 


00000000° 


50 
51 04 


32 A3 


51 


00000000’ 


37 


00000000’ 


2E 


2C AZ 
30 A3 


50 0080 
20 AO 


82 oc 
62 


00000000’ 


50 


00000000’ 


00000000’ 


8F 
1A 
GF 
6C 
AC 
46 


00000000 ’GF 


51 
09 
oc 
GF 
50 
GF 
50 
09 
52 
51 
50 
C4 
51 
50 
A2 
50 
GF 


01 
GF 
oc 
GF 
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PR_FOT_ROUTINE Reader FDT Routine 22-AUG-1984 20:06:00 WORK2:[COURSE.DRIVER]PCDRIVER.MAR; (1) 
O01A4 545 ;++ 
01A4 546 ; PR_FDT_ROUTINE, READER FDT routine 
01A4 547 ; 
01A4 548 ; Functional description: 
01A4 549 ; 
O1A4 550 ; This FDT routine makes all the standard accessibility checks 
O1A4 551 ; for buffered 1/0 operations, and allocates a buffer from system 
O1A4 552 ; pool (into which the data will be read). 
O1A4 553 ; The standard IRP and PCB fields are updated. 
01A4 554 ; A check is made to determine if the reader UCB is being 
01A4 555 ; referenced. 
01A4 556 ; Inputs: 
01A4 557 ; RO-R2 - scratch registers 
01A4 558 ; R3 - address of the IRP (1/0 request packet) 
01A4 559 ; R4 - address of the PCB (process control block) 
01A4 560 ; R5 - address of the UCB (unit control block) 
O1A4 561 ; R6 - address of the CCB (channel control block) 
O1A4 562 ; R7 '- bit number of the 1/0 function code 
O1A4 563 ; R8 - address of the FDOT table entry for this routine 
O1A4 564 ; R9-R11 - scratch registers 
01A4 565 ; AP - address of the Ist function dependent $QI0 parameter 
01A4 566 ; Outputs: 
01A4 567 ; The routine must preserve all registers except RO-R2, and 
O1A4 568 ; R9O-R11. 
01A4 569 ;-- 
QO1A4 570 PR_FDT_ROUTINE: ; reader FDTroutine ala CRDRIVER 
DO O1A4 571 MOVL #SS$ ILLIOFUNC,RO ; Assume wrong UCB 
EO OTAB 572 BBS #DEV$V_IDV,UCB$L_DEVCHAR(RS) ,5$ ; Test for reader UCB 
17 O1B0 573 JMP GAEXES$ABORTIO ; Error if not 
DO O1B6 574 5$: MOVL P1(AP),RO ; Get add. of buffer 
3C O1B9 575 MOVZWL P2(AP),R1 ; Get length of buffer 
13 O1BD 576 BEQL 10$ ; Zero length transfer? 
16 O1BF 577 JSB GAEXE$SREADCHK ; Check access of user 
01C5 578 ; buffer -- no return if 
01C5 579 ; no accessibility 
BO 01C5 580 MOVW R1,IRP$W_BCNT(R3) ; Save user buffer len. 
BB 01C9 581 PUSHR #AM<RO,R3> ; Save registers 
co O1CB 582 ADDL2 #BUF_OVR_HD,R1 ; Account for overhead 
16 O1CE 583 JSB GAEXE$BUFFRQUOTA ; Check buffer quota 
E9 01D4 584 BLBC RO, 20$ ; Abort if insufficient 
16 0107 585 JSB GAEXE$ALLOCBUF ; Allocate system buffer 
EQ 0O1DD 586 BLBC RO,20$ ; Abort on failure 
BA O1EO 587 POPR #AM<RO,R3> ; Restore registers 
DO O1£2 588 MOVL R2,IRP$L_SVAPTE(R3) ; Store returned buf add 
BO O1E6 589 MOVW R1,IRP$SW_BOFF(R3) ; And byte quota charged 
DD O1EA 590 PUSHL RO ; Save reg. 
DO OQO1EC 591 MOVL PCB$L_JIB(R4),RO ; Get JIB address 
C2 O1F1 592 SUBL R1,JIB$L_BYTCNT(RO) ; Charge process for buf 
BEDO O1F5 593 POPL RO ; Restore reg. 
9E O1F8 594 MOVAB BUF _OVR_HD(R2),(R2)+ ; Save data area add. 
DO O1FC 595 MOVL RO, (R2) ; Save user buffer add. 
17 OFF 596 JMP GAEXESQIODRVPKT ; Queue driver packet 
0205 597 ; Entered on zero-length transfer or allocation failure 
3C 0205 598 10$: MOVZWL =#SS$ NORMAL, RO 3; Normal completion 
17 0208 599 JMP GAEXES$FINISHIOC ; Goto finish I/0 
BA O20E 600 20$: POPR #AMKR2,R3> ; Clean up stack 
17 0210 601 JMP GAEXE$ABORTIO ; Quota or buffer 
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0216 602 ; allocation failure 
0216 603 -SBTTL PT_START, Start I/O routine 


PCDRIVER 
V06 


00 64 
OO9A C5 


36 


34 


35 


33 


37 
11 38 
68 

68 AS 


EF 38 
68 AS 


42 


42 AS 
51 


03 2A 


AS 05 
20 A3 


06 00 
20 A3 


06 00 
20 A3 


06 00 
20 A3 


06 00 
20 A3 


06 00 
20 A3 


A5 1A 
0100 8F 


A5 1A 
0201 8F 


AS 32 


50 01 


PT_START, 
0216 
0216 
0216 
0216 
0216 
0216 
0216 
E4 0216 
BO 021B 

0221, 
ED 0221 

0224 
13 0227 
ED 0229 

022C 
13. 022F 
ED 0231 

0234 
13. 0237 
ED 0239 

023C 
13. 023F 
ED 0241 

0244 
12 0247 
EO 0249 
AA 024E 
AB 0252 
11 0258 
EO O25A 
A8 O25F 
11 0265 
BO 0267 
D4 0268 
DO 026D 

0270 
BO 0276 
11. 0278 
3C 027D 
11 0281 
E1 0283 
31 0288 

028B 


- VAX/VMS PAPER 
Start 


605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
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I/O rout 


PT_START: 


1$: 


253: 
30$: 
255 
3$: 
7$: 
10$: 
20$: 


100$: 


ine 


BBSC 
MOVW 


CMPZV 


BEQL 
CMPZV 


BEQL 
CMPZV 


BEQL 
CMPZV 


BEQL 
CMPZV 


BNEQ 
BBS 
BICW 
BISW 
BRB 
BBS 
BISW 
BRB 
MOVW 
CLRL 
MOVL 
REQCOM 
MOVW 
BRB 
MOVZWL 
BRB 
BBC 
BRW 
.SBITL 


22-AUG-1984 20:06:00 WORK2:[COURSE.DRIVER]PCDRIVER.MAR; (1) 


Enter here at the start of an I/O operation. The first step 
is to determine what I/0 function code was specified in the 
$QIO being serviced. 


Det. func. req. 

Make sure bit clear 
Allow inhibit of error 
logging via modifiers 
Look for MODIFY $QI0O 


#UCB$V_POWER,UCB$W_STS(R5), 
IRP$W_ FUNC(R3), UCBSW_ PUNC CRE) 


#IRP$V_FCODE,#IRP$S_FCODE,- 
IRP$W_FUNC(R3) ,#10$ MODIFY 


10$ ; Found if eql 
#IRP$V_FCODE,#IRP$S_ FCODE,- ; Look for DEACCESS $QI0 
IRP$W_ FUNC(R3), #10$_- DEACCESS 

20$ ; Found if eql 
#IRP$V_FCODE,#IRP$S_FCODE,~- ; Look for DELETE $QI0 
IRPSW_ FUNC(R3), #10$_ DELETE 

3S ; Found if eq! 
#IRP$V_FCODE,#IRP$S_FCODE,~- 3; Look for CREATE $QI0O 
IRPSW_ FUNC(R3), #10$_ CREATE 

305 Found if eql 


#IRP$V_FCODE,#IRP$S_FCODE, - 
IRP$W_FUNC(R3) ,#10$_READPROMPT 
100$ 
#DEV$V_IDV,UCB$L_-DEVCHAR(R5),2$ 
#BITO, UcBSw_ DEVSTS(RS5) 
#BIT8,UCB$W_DEVSTS(R5) 

5$ 
#DEV$V_IDV,UCB$L_DEVCHAR(R5) , 25$ 
#BITO!BIT9,UCB$W_DEVSTS(R5) 


Look for READPROMPT 

$QIO 

Read/write if neq 

Reader? dsable--> set 
Enable function 

Mark enable for read phys. 
All done 

Reader? enable-->clir 
Disable function 


ee we we we we we we we we we we we we we 


5$ All done 
#NULL_BYTES,UCB$W_DEVBUFSIZ(R5) Reset # of null bytes 
R1 No. dev. dep. info. 
#SSE NORMAL ,RO Successful completion 
All done 
IRP$L_MEDIA(R3) , UCB$W _DEVBUFSIZ(RS) ; Set # null bytes 
5$ 3; And finish up 
UCB$W_DEVBUFSIZ(R5),R1 ; Read # null bytes 
7$ ; And finish up 
#IRP$V_FUNC,IRP$W_STS(R3),PT_PUNCH ; Write if clear 
PR START ; Otherwise, read func 


PT_PUNCH, Start a punch operation 


PCDRIVER 
VO6 


OB 


78 


04 A4 
08 
00A8 


50 


68 
AS 


78 


50 


68 
cS 


68 | 


50 


2C 


A5 


24 


0040 


10 
A3 


oc 


- VAX/VMS PAPER 
PT_PUNCH, 


AA 
7D 


co 


028B 
028B 
028B 
028B 
028B 
028B 


028B 


028B 
028B 
028B 
028B 
028B 
0288 
0288 
028B 
028B 
028B 
0288 
028B 
028B 
0286 
028B 
028B 
0288 
028B 
028B 
028B 
028B 
028B 
028B 
028B 
028B 
028B 
028B 
028B 
028B 
028B 
028B 
028B 
028B 
O028F 
0294 
0294 
0298 
0298 
0298 
029C 
O2A0 
O2A6 
O2AB 
02B1 
02B3 
02B6 
O2BA 
O2BC 
02C0 
02C5 


Start 


649 
650 
651 

652 
653 
654 
655 
656 
657 
658 
659 
660 
661 

662 
663 
664 
665 
666 
667 
668 
669 
670 
671 

672 
673 
674 
675 
676 
677 
678 
679 
680 
681 

682 
683 
684 
685 
686 
687 
688 
689 
690 
691 

692 
693 
694 
695 
696 
697 
698 
699 
700 
701 

702 
703 
704 
705 
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PT_PUNCH - Start a punch operation 
Functional description: 


The punch interrupt enable bit is set. One character at a 

time (from the system buffer pointed to by UCB$L_SVAPTE) is 

moved to the punch’s data buffer, and an interrupt is awaited. 

If powerfail occurs, the entire operation is retried (if it is 
the first $QIO for the user); otherwise, the operation is aborted 
(unless the powerfail occurs while punching the trailer, in 

which case the entire trailer may not be punched). In the case 
of an aborted punch, the high-order word of the first longword 

in the IOSB will contain the number of bytes punched before the 
powerfail occurred (error code = SS$ _TAPEPOSLOST). 


A counter is kept on the number of bytes left to be punched 
(UCB$W_BCNT). When this counter goes to zero, the request 
is complete. ~ 


y 

; In the case of a virtual or logical I/O operation 

: a header of UCB$W_DEVBUFSIZ null bytes is punched 

: before the actual data is punched; similarly a trailer 

3 tape (of UCB$W_DEVBUFSIZ null bytes) is punched when the 

‘ channel to the punch is deassigned/deallocated by the 

; user (in the cancel I/O routine (PT_CANCEL)). The user can 

3 suppress the defaults and/or punching an EOF byte (cntri-Z). 
? 

P 


CMPZV SA#IO$SV_FCODE,SA#IO$S_ FCODE,RO,— 


a) No header punched for 
SA#ITO$ WRITEPBLK 


Physical I/O func. 


Inputs 
R3 - address of the IRP (1/0 request packet) 
R5 ~ address of the UCB (unit control block) 
Outputs 
RO - 1st longword of I/O status: contains status code and 
number of bytes transferred 

R1 - 2nd longword of I/O status: device-dependent 
The routine must preserve all registers except RO-R2 and R4. 

T_PUNCH: —_ ; Process an 1/0 packet 
BICW #END,UCB$W_DEVSTS(R5) ; Not punching trailer 
MOVQ IRP$L_SVAPTE(R3) ,UCB$SL_SVAPTE(R5); Note quad transfer 

; for powerfail recovery 

ADDL2 #BUF_OVR_HD,UCB$L_SVAPTE(R5) ; Skip sys buf header 

PNCH_HOR: 3; Trailer punch entry pt 
-ENABL LSB 
MOVL UCB$L_CRB(R5),RO ; Get CRB 
MOVL @CRB$L_INTD+VEC$L_IDB(RO),R4 ; Get CSR address 
BISW #PT_ STS M_IE,PT_PPS(R4) ; Set int. enable bit 
BBSS #PUNCH_HDR,UCB$W_DEVSTS(R5) ,5$ 3; Hdr already pnchd? 
MOVW UCB$W_REFC(R5),UCBSwW_MY_REFCNT(R5) ; Save reference count 
BRB 10$ ; No - punch header 

5$: BRW MAINLP : Punch data 

10$: BITW #END,UCB$wW_DEVSTS(R5) ; Punching trailer? 
BNEQ 12$ ; Yes, if neq 
MOVW IRP$W_FUNC(R3) ,RO ; Get function code 


PCDRIVER 
VO06 
68 A5 
68 


68 
68 AS 


68 
44 AS 
68 


68 


OOA7 


39 64 
06 


OOA7 


23 64 
06 


68 
68 


00 68 
68 


53 


68 


00 68 


03 64 


00A7 C5 


5E 64 


OF 

0200 8F 
04 

A5 01 
0094 

AS oD 
0100 8F 
04 

AS 01 
42 AS 
AS 10 
1F 

AS 01 
19 

44 A5 
c5 1A 
AS 05 
A4 1A 
14 

C5 00 
AS 05 
A4 00 
0065 

44 ADS 
DF 

AS 04 
AS 10 
2A 

031B 

AS 01 
AS 10 
07 

58 AS 
FF40 
008D 

A5 10 
01 

AS 01 
OOFS 

AS 03 
0152 

78 BS 
AS 05 


PT_PUNCH, 
12. 02C5 
B3 02C7 
13  02CD 
AB O2CF 
31 0203 
A8 02D6 
B3 O2DA 
13 O2E0 
AA 02E2 
3C O2E6 
B3 O2EB 
13 O2EF 
B3 O2F1 
13 O2F5 
D6 02F7 
90 O2FA 

O2FF 
E4 0305 
90 030A 
11 O30E 
90 0310 
0315 
E4 0318 
90 0320 
0324 
032E 
032E 
032E 
31 032E 
D7 0331 
12 0334 
AA 0336 
B3 033A 
13 033€ 
31 0340 
0343 
0343 
E4 0346 
B3 0348 
13 034F 
DO 0351 
31 0355 
31 0358 
035B 
B83 0358 
13. O35F 
05 0361 
E4 0362 
31 0367 
036A 
E1 036A 
31 O36F 
0372 
90 0379 
O37F 
O37F 
E4 0382 


-~ VAX/VMS PAPER 
Start 


706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 


a punch operation 


8$: 
11$: 


12$: 


PUNEOF: 


NUL: 
NULLP: 
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BNEQ 11$ ; Not phys. if neq 
BITW #BIT9,UCB$W_DEVSTS(R5) ; Want trailer byte? 
BEQL 8S ; No, if eql 
BISW #BITO,UCB$W_DEVSTS(R5) ; Marck want. trailer 
BRW MAINLP ; Skip header punching 
BISW #PNCH!BITO! START ,UCB$W_DEVSTS(R5) ; Set flag bits 
BITW #BIT8,UCB$W_DEVSTS(R5) ; No EOF byte? 
BEQL 12$ ; No, if eql 
BICW #BITO,UCB$W_DEVSTS(R5) No EOF byte, if neq 
MOVZWL UCBS$W_ DEVBUFSIZ(R5), UCBSL_ DEVDEPEND(RS) ; Set # nullbytes 
BITW #END, UcB$w_DEVSTS(R5) ; Punching trailer? 
BEQL NUL ; No, if eq! 
BITW #BITO,UCB$W_DEVSTS(R5) ; Punch EOF byte? 
BEQL NUL ; No if eql 
INCL UCB$L_DEVDEPEND(R5) ; One extra byte pnchd. 
MOVB #EOF,UCB$B_PT_PPB(R5) ; Save for error log. 
DSBINT ; Raise to powerfail 
BBSC #UCB$V_POWER,UCB$W_STS(R5),20$ ; Check for powerfail 
MOVB #EOF,PT_PPB(R4) ; Punch EOF byte . 
BRB WAIT ; Wait for interrupt 
MOVB #NULL,UCB$B_ PT_PPB(R5) ; Save for err. log. 
OSBINT ; No interrupts 
BBSC #UCB$V_POWER,UCB$W_STS(R5),20$ ; Check for powerfail 
MOVB #NULL,PT PPB(R4) ; Punch null byte 


WAIT: 


BACK: 


20$: 


223: 


23$: 


253: 


30$: 
35$: 


MAINLP: 


1$: 


WFIKPCH 25$,#PT_TIMEOUT_SEC 


Enter here after 


interrupt service routine 


Wait for I/O comp. 


BRW AFTINT ; Check for errors 
DECL UCB$L_DEVDEPEND(R5) ; Dec null byte count 
BNEQ NULLP ; Loop if more to punch 
BICW #START,UCB$W_DEVSTS(R5) ; Clear hdr. punch flag 
BITW #END,UCB$W_DEVSTS(R5) ; Punching header? 
BEQL MAINLP ; Yes if eql 
BRW INCAN ; Return for trailer 
; Powerfail recovery 
ENBINT ; Allow interrupts 
BBSC #PUNCH_HDR,UCB$W_DEVSTS(R5),22$.; Clear hdr. pnchd flag 
BITW #END,UCB$W_DEVSTS(RS) ; Header or trailer? 
BEQL 235 ; Header if eq] os 
MOVL UCB$L_IRP(R5),R3 ; Retrieve IRP address 
BRW PNCH_HDR ; Retry punching trailer 
BRW POW_FAIL 5; Retry punching header 
; after powerfail recov. 
BITW #END,UCB$W_DEVSTS(RS5) : Header or trailer? 
BEQL 30$ ; Header if equal 
RSB ; Return if trailer 
BBSC #PUNCH_HDR,UCB$W_DEVSTS(R5),35$ ; Report timeout 
BRW PT _ TIMEOUT ; Make sure flag clear 
.DSABL LSB 
BBC #UCBSV_CANCEL,UCB$W_STS(R5),1 ; Check for $CANCEL 
BRW CANCEL ; $CANCEL if set 
DSBINT UCB$B_DIPL(R5) No device interrupts 
MOVB @UCB$L_ SVAPTE(RS) ,UCB$B_PT _PPB(RS) ; Save data for err. 
; log buf. dump routine 
SETIPL #IPL$_ POWER ; Raise to powerfail 
BBSC #UCB$V_POWER,UCB$wW_STS(R5),PT_RESTART ; Powerfail? 


PCDRIVER 
V06 


O06 A4 


OOA4 CS 


OOA4 C5 
O00A4 C5 


68 


04 A4 
00 68 


68 


OF 68 


53 
00 68 


78 BS 


04 A4 


0080 8F 
8000 8F 

5D 
AS 04 


FF74 
78 AS 


7E A5 
0040 8F 
AS 07 


32 A3 
50 10 
50 01 


AS 20 
51 


AS 07 
58 AS 


AS 01 
FEQ2 


0287 


- VAX/VMS PAPER 
PT_PUNCH, 


90 


AA 
D4 


EQ 


DO 


31 


30 


0387 
O038C 
0396 
0396 
0396 
0396 
039C 
039C 
O3A2 
03AQ 
O3AB 
03B2 
03B4 
03B8 
O3BA 
O03BD 
03CO0 
03Cc0 
03C3 
O03C5 
O03CB 
03D0 
03D0 
O03D0 
03D4 
03D6 
03D9 
O03D9 
O03D9 
O3D9 
03D9 
03DD 
O3DF 
OSES 
O3E5 
O3E5 
O3E5 
O3E5 
O3E5 
O3E8 
O3E8 
OSED 
O3ED 
O3F 1 
O3F6 
O3F9 
O3F9 
O3F9 
O3FQ9 
O3F9 
O3F9 
O3SFC 
O3FC 
OSFF 
OSFF 
OSFF 
O3FF 


Start 


763 
764 
765 
766 
767 
768 
769 
770 
77) 
772 
773 
774 
775 
776 
777 
778 
779 
780 
784 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
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a punch operation 22-AUG- 1984 20:06:00 WORK2:[COURSE.DRIVER]PCDRIVER.MAR; (1) 
MOVB @UCB$L_SVAPTE(RS),PT_PPB(R4) ; Load punch data buffer 
WFIKPCH PT_TIMEOUT,#PT_TIMEOUT_SEC ; 10 sec. timeout 


’ 


; Enter here from interrupt service routine (PT_INTERRUPT ) 


AFTINT: MOVW — PT_PPS(R4) ,UCB$W_PT_PPS(RS5) 


; Read CSR (save for 
; error logging later) 
IOFORK ; Return to fork level 
BITW #PT_STS_M_READY,UCB$W_PT_PPS(R5); Punch ready again? 
BEQL PT_ERROR ; If so, error 
BITW #PT_ STS M_ERROR,UCB$W_PT_PPS(R5); Error during punch? 
BNEQ PT_ERROR ; Yes, report it 
BITW #START,UCB$W_DEVSTS(RS) ; Punching user data? 
BEQL 10$ ; Yes, if eq) 
BRW BACK ; Punching header/trair 
10$: INCL UCB$L_SVAPTE(R5) ; Point to next byte to 
; be punched 
DECW UCB$W_BCNT(R5) ; Decrement byte count 
BNEQ MAINLP ; All done? 
BICW #PT_STS_M_IE,PT_PPS(R4) Clear int. enable bit 
BBCS #STARTING, UCBSW_ ~DEVSTS(RS), FINISH ; Punched >= 1 oper. 


; After a transfer completes successfully, return the number of bytes 
3; transferred and a success status code. 


FINISH: INSV IRP$W_BCNT(R3) ,#16,- ; Load number of bytes trans~ 
#16,R0 ; ferred into high word of RO. 
MOVW #SS$_NORMAL,RO ; Load a success code into RO. 


; Call I/O postprocessing. 


COMPLETE_I0: ; Driver processing is finished. 
BICW #RD_HDR,UCB$W_DEVSTS(R5); Make sure reader flag clear 
CLRL R1 ; No device dependent information 
REQCOM ; Complete I/O. 


Recover from powerfail by retrying entire operation (for punch). 
If powerfail occurred on first $QIO request from user. 


3 
PT. RESTART: ; Powerfail entry point 


ENBINT ; Allow interrupts (POP IPL) 
POW_FAIL: ; Enter after timeout 

BBS #STARTING, UCB$W_ DEVSTS(RS), POWER_FAIL ; No recovery if 

; not punching Ist rec. 

MOVL UCB$L_IRP(R5) ,R3 ; Retrieve IRP address 

BBSC #PUNCH HDR, UCBSW _DEVSTS(RS5), ; Clear header punched bit 
1$: BRW PT_ PUNCH ; And retry operation 
; No recovery possible from reader powerfail; tell user how many 
: bytes read before powerfail occurred. Also, no recovery from 
: punch if not punching ist $QIO request for this user. Tell user 
: how many bytes were punched before powerfail occurred. 
PR_ POWFAIL: ; ; Powerfail entry point 

ENBINT ; Allow interrupts (POP IPL) 
POWER_FAIL: ; Enter after timeout 

BSBw SETOFF ; Clear int. enable bit 


Note that a BSB-RSB sequence can be used since 
the subroutine will not call any system macros 
or routines (which would cause unpredictable 

results when control would be returned to the 


we we ee we 


PCDRIVER 
V06 
32 A3 7E AS 
50 10 10 32 A3 
50 0224 8F 
c8 
0272 


00000000 ‘GF 
50 OO8C 8F 


32 A3 7E AS 

50 10: 10 32 AS 
AD 

0257 

32 A3 7E AS 

50 10 10 32 A3 


50 0870 8F 
00 68 AS 01 


FF92 


50 00000870 8F 
FF88 


A2 64 AS 05 
11 
FF89 


38 38 A5 1A 
EF 64 AS 05 
52 64 AS 03 
29 38 AS 1B 
BO 68 AS 07 
0099 OOA6 C5 01 OF 


54 00’ BF 
53 00000000’ GF 
00000000‘ GF 


- VAX/VMS PAPER 


PT PUNCH, 
O3FF 

A2 OSFF 
FO 0404 
BO 040A 
11 O40F 
0411 
0411 
0411 
0411 
0411 

30 0411 
16 0414 
3C O41A 
A2 O41F 
FO 0424 
11 042A 
042C 
042C 
042C 
042C 
042C 
042C 
042C 
042C 
042C 

30 042C 
A2 042F 
FO 0434 
BO O43A 
E3 O043F 
0444 
0444 

31 0444 
DO 0447 
31 O044E 
0451 
0451 
0451 
0451 
0451 
0451 

E4 0455 
11 O45A 
31 O45C 
O45F 
O45F 

EO 0463 
E4 0468 
EO O46D 
EO 0472 
EO 0477 
9D O47C 
94 0484 
BB 0488 
9A 048A 
9E OQO48E 
16 0495 


Start 


820 
821 
822 
823 
824 
825 
826 
827 
828 
829 


830 — 


831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
B71 
872 
873 
874 
“B75 
876 
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a punch operation 


; caller’s caller) 


SUBW2 UCB$W_BCNT(R5), IRP$W_BCNT(R3) ; Record bytes read/pun. 
INSV IRP$W_ BCNT(R3) ,#16,#16,RO ; For status return 
MOVW #SS$_TAPEPOSLOST, RO ; Return status 

BRB COMPLETE _I0 ; Compiete 1/0 

Device error has occurred -- signal via SS$_DRVERR 


error code 


ve we we we 


T_ERROR: ; Error handling 
BSBW SETOFF ; Clear interrupt enable bit 
JSB GAERL$DEVICERR ; Report device error 
MOVZWL #SS$_DRVERR,RO ; Return error status 
SUBW2 UCBSW_ BCNT(RS), IRP$W_BCNT(R3) ; Record bytes read/pun. 
INSV IRPSW_ ~ BCNT(R3),#16,#16,RO ; For status return 
BRB COMPLETE_IO ; Call I/O postprocessing 
; Assume that “no more tape in reader” is error generated, and 
7 tell user how many bytes were read before error was encountered 
; in case P2 parameter specified more bytes than were read. 
PR_SPERR: ; Entered if no tape in reader, 
; reader off-line after at least 
; one previous character read, 
3; or no Peper to reader 
BSBW SETOFF Clear int. enable bit 
SUBW2 UCB$W_BCNT(R5) ,IRP$W_BCNT(R3) ; Store num bytes read 
INSV IRP$W_BCNT(R3) ,#16,#16,RO ; In return status 
MOVW #SS$ ENDOFFILE,RO ; Set return status code 
BBCS #PUNCH_HDR,UCB$W_DEVSTS(R5),DON ; Special case for $COPY 
; so that reading will end on end 
: ; of file (COPY issues 2nd read) 
DON: BRW COMPLETE_I0 ; Comptete 1/0 
COPY: MOVL #SS$_ENDOFFILE,RO ; Fudge return to COPY 
BRW COMPLETE 10 ; Finish operation 


Device timeout handling. 


Return an error status 


code for punch. 


; Send message to operator, and loop until reader is set online. 
PR_TIMEOUT: ; Timeout handling 
SETIPL UCB$B_ FIPL(R5) ; Lower to fork first 
BBSC #UCBSV_ POWER, UCBSW_ STS(R5), POWER_FAIL ; Powerfail? 
BRB COMMON ; Enter common timeout code 
SKIP2: BRW POW_FAIL ; Handle powerfail 
PT_TIMEOUT: ; Timeout handling 
SETIPL UCBS$B_FIPL(RS5) ; Lower to fork first 
BBS #DEVSV_ IDV,UCB$L_DEVCHAR(R5),PUN_OT ; Reader timeout? 
BBSC #UCBSV_ POWER, UCBSW_ STS(R5), SKIP2> Powerfaii 1.? 
COMMON: BBS . #UCB$V_CANCEL, UCB$W_STS(RS5), CANCEL ; Cancel 1/0? 
BBS ¥DEV$V_ODV,UCBS$L __ DEVCHAR(RS), PUN_OT ; Punch timeout? 
BBS #STARTING, UCBSW_ DEVSTS(R5),PR SPERR ; Reader EOF err? 
ACBB #LOOP_CNT,#1, UCB$B_ PT _OFLCNT (RS), MAIN ; Rdr-wait 30 sec, 
-CLRB UCB$B_PT _OFLCNT(R5) ; Clear off-line counter 
PUSHR #AM<R3 ,R4> ; Save registers 
MOVZBL #MSG$ DEVOFFLIN,R4 ; Set message type 
MOVAB GASYS$GL_OPRMBX,R3 ; Get opr. mbx. address 
JSB GAEXE$SSNDEVMSG ; Send msg. to opr. 
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FF54 
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50 
32 A3 
50 10 10 


32 A3 
50 10 10 
50 


022C 8F 
7E AS 
32 A3 
FF15 


7E AS 
32 A3 
0830 8F 
FFO2 
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ES O4A0 
31 O4A5 
30 04A8 
16 O4AB 
3C 0481 
A2 04B6 
FO 04BB 
31 04C1 
04c4 

A2 04C4 
FO 04C9 
BO O4CF 
31 04D4 
- 0407 
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a punch operation 22-AUG-1984 20:06:00 WORK2: [COURSE.DRIVER]PCDRIVER.MAR; (1) 
POPR #AMK<R3,R4> ; Restore registers 
BRW MAIN ; Try again 


UN_OT: 


1$: 


CANCEL: 


Note that the punch is always assumed to be on-line, and 

an error is recorded if it is not. Also, the I/O request 
is terminated with an error code. (There is no on/off switch 
for the punch unit on the PCi1). The reader does have an 
on/off switch, and the I/O operation is retried until the 
reader unit is set on-line, with a message being sent to 
the operator’s mailbox (console) every 30 seconds informing 
the operator that the paper-tape reader (PCO:) is off-line. 
If an error occurs after some data has been read, it is 
assumed that the error is "no more tape in reader" rather 
than “reader is off-line". 


BBCC #UCB$V_POWER,UCB$W_STS(R5),1$ ; Reader powerfail? 
BRW POWER_FAIL ; Yes, go report powerfail 
BSBW SETOFF ; Clear interrupt enable bit 
JSB GAERL$DEVICTMO ; Report timeout error 
MOVZWL #SS$_ TIMEOUT ,RO ; Return error status. 
SUBW2 UCBS$W_BCNT(R5) , IRP$W_BCNT(R3) ; Record bytes read/pun. 
INSV IRP$W_BCNT(R3) ,#16,#16,RO ; For status return 
BRW COMPLETE_I0 ; Call 1/0 postprocessing. 

; Handle cancel I/0 
SUBW2 UCB$w_BCNT(RS) , IRP$W_BCNT(R3) ; Num bytes read/punch 
INSV IRP$W_BCNT(R3) ,#16,#16,RO0 ; In return status 
MOVW #SS$_CANCEL,RO ; Return cancel error status 
BRW COMPLETE_IO ; Call 1/0: postprocessing 


.SBTTL PR_START, Start I/0 routine (Reader) 
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24 
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04D7 
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04D7 
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04D7 
04D7 
04D7 
04D7 
04D7 
0407 
04D7 
04D7 
04D7 
04D7 
04D7 
04D7 
04D7 
04D7 
04D7 
04D7 
04D7 
0407 
04D7 
04D7 
04DC 
O4DF 
O4E4 
04E9 
O4ED 
O4F 1 
O4F6 
O4FC 
O4FF 
0501 
0503 
0507 
050D 
O50F 
0511 
0517 
0519 
051D 
0524 
0528 
052C 
0531 
0533 
053D 
0543 
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907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 


941 
942 
943 
944 
945 
946 
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950 
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952 
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954 
955 
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957 
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959 
960 
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TAPE READER/PUNCH DRIVER 
I/O routine (Reader) 


t+ 
PR_START - Start a reader operation 


Functional description: 


by UCB$L_SVAPTE) is moved to the reader’s data buffer. The 
interrupt enable bit is then after which powerfail is 
tested for, and an interrupt (If powerfail 

the entire operation 


set, 
is awaited. 


occurs, is aborted. ) 


; One character at a time (from the system buffer pointed to 
A counter is kept on the number of bytes left to be read 
(UCB$W_BCNT). When this counter goes to zero, the request 

is complete. The request is also considered complete when an 
EOF byte is read, if looking for EOF bytes is enabled. 


Before the first character is read (in a virtual or 


logical I/O operation), the tape is first scanned for 
the first non-null character (i.e. the header part of 


‘ 
bi 
3 
+) 
3 
3 
3 
3 
, 
‘ 
’ 
; 
, 
; R3 aot 
5 
rs 
3 
: 
; 
3 
: 
p 


the tape is skipped). In the case of a physical I/0 
function, the header null bytes are considered data. 
Inputs 
address of the IRP (1/0 request packet) 
R5 - address of the UCB (unit control block) 
Outputs: 
RO - ist longword of 1/0 status: contains status code and 
number of bytes transferred 
Ri - 2nd longword of I/O status: device-dependent 
The routine must preserve all registers except RO-R2 and R4. 
R_START: ; Process an 1/0 packet 
BBCC #PUNCH_HDR,UCB$W_DEVSTS(R5),1$ ; Special case for $COPY? 
BRW COPY ; Yes, if bit set 
1$: MOVL @IRP$L_SVAPTE(R3) ,UCB$L_SVAPTE(RS) ; Get buffer address 
MOVL IRP$W_BCNT(R3) ,UCB$W_BCNT(R5) ; Byte count, and offset 
CLRB UCB$B_PT_OFLCNT(RS) : Clear off-line counter 
MOVW IRP$wW_FUNC(R3),RO ; Get function code 
BBSS #FRST_QIO,UCBS$W_DEVSTS(R5),MAIN ; First $QI0? 
MOVW UCB$W_REFC(R5) ,UCBSW_MY_REFCNT(R5) ; Save reference count 
CMPZV SA#¥ITO$V_FCODE,SA#IO$S FCODE,- ; No header read if 
RO,SA#IO$ READPBLK ; Phys. I/0 operation 
BEQL FIX ; Continue processing 
BISW #RD_HOR,UCB$W_DEVSTS(R5) ; Update default flags 
BITW #BITQ9,UCB$W_DEVSTS(R5) ; Disable EOF search? 
BEQL MAIN ; No, if eql 
BRB DSABL ; Yes, if neg 
FIX; BITW #BIT8,UCB$W_DEVSTS(R5) ; Look for EOF bytes? 
BNEQ MAIN ; Look for EOF bytes if eq] 
DSABL: BISW #B1TO,UCB$W_DEVSTS(R5) ; Update default 
MAIN: DSBINT UCB$B_DIPL(RS5) ; No device interrupts 
MOVL UCB$L_CRB(R5) ,RO ; Get CRB 
MOVL @CRB$L_INTD+VEC$L_IDB(RO),R4 ; Get CSR address 
BITW #PT_CSR_M_ERROR,PT_PRS(R4) ; Reader on-line? 
BEQL READ ; If eql, yes 
WFIKPCH PR_TIMEOUT,#SHORT_ WAIT ; No, see if now on 
IOFORK ; Lower to fork IPL 
BRB MAIN ; Check if on-line 
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0545 

E4 0548 
11 054D 
31 O54F 
9B 0552 
0555 
0556 
0560 

BO 0560 
0565 

90 0565 
O56B 
056B 

B3 0571 
12 0578 
B3 O57A 
12 0581 
B3 0583 
13. O58A 
E3  O58C 
B3 0591 
13 0595 
91 0597 
13 O59C 
AA OS9E 
B3 O5A2 
12 O5A6 
91 O5A8 
12 OSAD 
31 OS5AF 
90 0582 
D6 0588 
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B7 O5BB 
13 O5BE 
E1 O5CO 
31 O5C5 
O5C8 

31 O5CF 
AA 0502 
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31 O5DC 
31 OSDF 
El O5E2 
O5E7 

31 OSE7 
OSEA 
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TAPE READER/PUNCH DRIVER 
I/O routine (Reader) 


READ; 


30$: 
GO: 


5$: 


10$: 


13$: 


15$: 
25$: 
30$: 


SKIP: 
SKIP1: 


40$: 


SETIPL 
BBSC 
BRB 
BRW 
MOVZBW 
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#IPL$ POWER 
#UCB$V_POWER,UCB$W_STS(R5) ,30$ 
GO 

PR_POWFAIL 
#PT_CSR_M_IE!PT_CSR_M _RDENA,- 
PT_PRS(R4) 


WFIKPCH PT TIMEOUT, #PT_TIMEOUT SEC 


Enter here from interrupt service routin 


MOVW 
MOVB 


IOFORK 
BITW 
BNEQ 
BITW 
BNEQ 
BITW 
BEQL 
BBCS 
BITW 
BEQL 
CMPB 
BEQL 
BICW 
BITW 
BNEQ 
CMPB 
BNEQ 
BRW 
MOVB 
INCL 


DECW 
BEQL 
BBC 
BRW 
DSBINT 
BRW 
BICW 
BBSC 
BRW 
BRW 
BBC 


BRW 


BRW 
-SBTTL 


PT_PRS(R4) ,UCB$wW_PT_PPS(R5) 


PT _PRB(R4),UCB$B_PT_PPB(R5) 


#PT_CSR_M_ERROR,UCB$W_PT_PPS(RS5) 
SKIP 1 
#PT_CSR_M_BUSY,UCB$W_PT_PPS(R5) 
SKIP 
#PT_CSR_M_DONE,UCB$W_PT_PPS(R5) 
SKIP 

#STARTING, UCB$W_DEVSTS(R5) ,5$ 
#RD_HDR,UCB$W_DEVSTS(RS5) 

10$ 

#NULL ,UCB$B_PT_PPB(R5) 

15$ 

#RD_HDR,UCB$W_DEVSTS(R5) 
#BITO,UCB$W_DEVSTS(RS) 

13$ 

#EOF,UCB$B_PT_PPB(RS5) 

13$ 

PR_SPERR 


VAX-11 
WORK2: [COURSE.DRIVERJ]JPCDRIVER.MAR; (1) 


. 
% 
. 
> 
? 
> 
° 
* 
. 
? 
3 


> 
> 
. 
, 
’ 
. 
> 
. 
’ 
, 
> 
° 
, 
’ 
% 
. 
J 
; 
. 
J 
. 
’ 
; 
. 
’ 
. 
’ 
. 
’ 
. 
, 
. 
’ 
. 
’ 


Macro V03-0O1 Page 23 


Raise to powerfail 
Powerfail? 

No, try operation 
Yes--abort operation 
Start reader and 
Enable reader int. 
10 sec. timeout 
(PR_INTERRUPT ) 

Read CSR (and store 
for error logging) 
Get data read (also 
keep for err. log.) 
Lower IPL 

Error during read? 
Yes, special case 
Busy bit set? 

If so, error 

Done bit set? 

If not, error 

Read >= 1 char. 
Reading tape header? 
No, if eql 
See if null 
If eql, nul} 
Not reading header now 
Looking for EOF byte? 


byte 


No, if neq 
EOF byte found? 
No, if neq 


Report EOF condition 


UCB$B_PT_PPB(R5),@UCB$L_SVAPTE(R5) ; Record data read 


UCB$L_SVAPTE(R5) 


UCB$W_BCNT(R5) 

25$ 
#UCB$V_CANCEL,UCB$W_STS(R5),15$ 
CANCEL 

UCB$B_DIPL(R5) 

READ 

#PT_CSR_M_IE,PT_PRS(R4) 
#STARTING,UCB$W DEVSTS(RS) ,30$ 
FINISH © -“ 

PT_ERROR 
#STARTING,UCB$W_DEVSTS(RS) ,40$ 


PR_SPERR 


COMMON 


PT_INTERRUPT, Interrupt service 
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Point to where next 
byte is to be read 
Decrement byte count 
All done? 

Check for $CANCEL 
$CANCEL if set 

Put IPL on stack 

Read next character 
Clear int. enable bit 
Clear bit for next $QIO 
And finish up 

Need word offsets 
Retry if assume 

reader off-line 
Otherwise, assume 

no more tape in reader 
Need word offset 
outine 
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18 
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10 
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9E 
A3 
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A5 
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8E 
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PT_INTERRUPT, Interrupt service routine 


DO 


11 


DO 
DO 
DBO 
E5 


DO 
16 


O5ED 
O5ED 
O5ED 
O5ED 
O5ED 
OSED 
OSED 
O5ED 
O5ED 
O5ED 
O5ED 
O5ED 
O5ED 
OSED 
OSED 
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O5ED 
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O5ED 
O5ED 
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O5ED 
OS5ED 
O5ED 
O5FO 
O5FO 
O5F4 
OSF6 
O5F6 
O5F9 
OSFD 
0600 
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0604 
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0609 
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O60C 
O60C 
O60C 
O60F 
0612 
0615 
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1021 
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1027 
1028 
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1033 
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,++ 


PT_INTERRUPT, Analyzes interrupts, processes solicited interrupts 


Functional description: 


This driver is for a multiple-unit controller, and the 

two interrupt service routines (PR_INTERRUPT and PT_INTERRUPT) 
are used to distinguish which unit caused the interrupt. 
Common checking for solicited interrupts occurs after 

entry point INTCOM, where control is returned back to the 


driver after the appropriate WFIKPCH macro. 


; 

; 

; Inputs: 

: O(SP) - pointer to the address of the IDB 

; 4(SP) - saved RO 

; 8(SP) - saved R1 

; 12(SP) - saved R2 

7 16(SP) - saved R3 

; 20(SP) - saved R4 

; 24(SP) - saved R5 ; 

: 28(SP) - saved PSL (program status longword) 

: 32(SP) - saved PC 

3 The IDB contains the CSR address and the UCB address. 

; Outputs: 

; Tne routine must preserve ali registers except RO-RS. 

PT_INTERRUPT: ; Service punch interrupt 
MOVL @(SP)+,R3 ; Get address of IDB and remove 

; pointer from stack. 

MOVL IDB$L_UCBLST+4(R3) ,R5 ; Punch is unit # 1 (PC1:) 
BRB INTCOM ; Go to common code 

PR_INTERRUPT: ; Service reader interrupt 
MOVL  @(SP)+,R3 ; Get IDB address 
MOVL IDB$L_UCBLST(R3) ,R5 ; Reader is unit # O (PCO:) 

INTCOM: MOVL IDB$L_CSR(R3) ,R4 ; Get CSR address 
BBCC #UCBS$V_INT,— ; If device does not expect 

UCB$W_STS(R5) ,- ; interrupt, dismiss it. 


UNSOL_INTERRUPT 
; This is a solicited interrupt. 
RESTORE DRIVER: 
MOVL 
JSB 


Restore control to the main driver. 
Jump to main driver code. 
Restore driver’s R83 

Call driver at interrupt 
wait address. 


UCB$L_FR3(R5) ,R3 
@UCB$L_FPC(R5) 


we we we we 


; Dismiss the interrupt. 


UNSOL_INTERRUPT: Dismiss unsolicited interrupt. 


MOVQ (SP)+,RO ; Restore RO-R5 

MOVQ (SP)+,R2 ; This is faster than a 

MOVQ (SP)+,R4 ; POPR #AM<RO,R1,R2,R3,R4,R5> 
REI ; Return from interrupt. 
-SBTTL PT_CANCEL, Cancel I/0 routine 
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5D 
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PT_CANCEL, Cancels an I/O operation in progress 


Functional description: 


This routine tests to see if the punch is being deallocated 
or deassigned by checking the reference count field in the 
UCB. It checks to see if a trailer needs to be punched, 

and if so, then a trailer is punched (possibly with an 

EOF byte). Also, regardiess of whether a 

header has been punched, the default number of null bytes to 
punch in a header/trailer is restored to NULL BYTES. The 
flag indicating that a header has not been punched is cleared 
for the next I/O operation, as is the bit indicating that 
the current $QIO is the first $QIO for the user (since the 
channel was assigned to the device). Other flags are 

reset to their initial state for the next user. 


This routine calls IOC$CANCELIO to set the cancel bit in the 
UCB status word if: 


the device is busy, 
the IRP’s process ID matches the cancel process ID, 
the IRP channel matches the cancel channel. 


The routine then does device-dependent cancel I/0 fixups by 
clearing the interrupt enable bit for either the reader or 
the punch, as appropriate. 


Inputs: 


R2 - negated value of the channel index number 

R3 ~ address of the current IRP (1/0 request packet) 

R4 - address. of the PCB (process control block) for the 
process canceling I/0 

R5S - address of the UCB (unit control block) 


Outputs: 


The routine must preserve all registers except RO-R3. 
The routine sets the UCB$M_CANCEL bit in UCB$W_STS. 


The routine restores UCB fields to their original state. 


PT_CANCEL: ; Cancel an I/O operation 


-ENABL LSB : 

CMPW UCB$W_REFC(RS5) ,UCB$W_MY_REFCNT(R5) ; Deal or deassgn? 
BEQL 10$ ; No, if eqli 

Note that the count is not decremented. 
Therefore the user.will not get two 
trailers if he allocates the device and 
assigns a channel; the deallocate will not 
match the count field (like a $CANCEL). 


we we we we we 
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OOAO C5 54 DO O61E 1127 MOVL R4,UCB$L_ SAV _R4(R5) ; Save R4 since not CSR 
00 68 AS 06 E4 0623 1128 BBSC #FRST O70. UCBSW_ DEVSTS(R5),3$ ; Clear read header bit 
68 A5 08 B3 0628 1129 3§$: BITW #PNCH, ', UCBSW_ DEVSTS(R5) ; Trailer needed? 
24 12 O62C 1130 BNEQ 4$ ; Yes, if neq 
34 38 A5 1A EQ O62E 1131 BBS #DEV$V_IDV,UCB$L_DEVCHAR(R5S), 8S ; Reader?, go away 
68 A5 01 B3 0633 1132 BITW #¥BITO, UCBS$W_ DEVSTS(R5) ; User want EOF byte? 
2E 13 0637 1133 BEQL 8S ; No, if eq! 
44 AS 01 9A 0639 1134 MOVZBL #1,UCB$L_DEVDEPEND(R5) ; Punching only EOF byte 
68 AS 14 A8 O63D 1135 BISW #END! START ,UCB$W_DEVSTS(R5) ; Flag punching trailer tape 
50 24 AS DO 0641 1136 MOVL UCB$L_CRB(R5),RO ; Get CRB 
54 2C BO DO 0645 1137 MOVL @CRBS$L_ INTO+VEC$L_IDB(RO),R4 ; Get CSR address 
04 A4 0040 8F AB 0649 1138 BISW #PT STS. M_IE,PT _PPS(R4) ; Set int. enable bit 
FCA8 31 Q64F 1139 BRW PUNEOF ; Punch EOF byte 
68 A5 14 AB 0652 1140 4$: BISW #END! START ,UCB$W_DEVSTS(R5) ; Flag punching trailer tape 
00 68 A5 01 E4 0656 1141 BBSC #PUNCH_HDR,UCB$W_DEVSTS(R5),5$ ; Enable trailer punching 
FC3A 31 O065B 1142 5: BRW PNCH_HDOR s; Punch trailer tape 
68 A5 08 AA O65E 1143 INCAN: BICW #PNCH,UCB$W DEVSTS(R5) ; Clear flag for next operation 
54 OOAO C5 DO O662 1144 MOVL UCB$L_SAV _R4(R5), R4 ; Restore R4 if changed 
00 68 A5 01 E4 0667 1145 8$: BBSC #PUNCH HDR, UCB$W_DEVSTS(R5),9$ ; Clear for next op. 
68 A5 0311 8F AA O66C 1146 Q9$: BICW #BITO!BIT8!BITO!END, UCBSW_ DEVSTS(R5) ; Clear for next user 
42 Ad 32 BO 0672 1147 MOVW #NULL_ BYTES, UCB$W_DEVBUFSIZ(R5) ; Restore def nullbytes 
00 68 AS 07 E4 0676 1148 BBSC #STARTING, UCB$W_DEVSTS(R5),10$ 3; Clear for next oper. 
00000000‘ GF 16 O67B 1149 10$: JSB GAIOC$CANCELIO ; Set cancel bit if appropriate. 
1A 64 AS 03 E1 0681 1150 BBC #UCB$V_CANCEL,UCB$W_STS(R5),OKAY ; If clear, return 
: 0686 1151 . DSABL LSB 
0686 1152 
0686 1153 ; 
0686 1154 ; Device-dependent cancel] operations go next. The appropriate int. ena. 
0686 1155 ; bit is cleared. This Subroutine is called from several timeout and 
0686 1156 ; powerfail recovery routines; it must be very careful NOT to issue 
0686 1157 ; a macro (or call on a system routine) that returns control to the 
0686 1158 ; caller’s caller (since the stack contains "local" return info). 
0686 1159 ; 
51 24 A5 DO O686 1160 SETOFF: MOVL UCB$L_CRB(R5),R1 ; Get address of CRB 
51 2C Bl DO O68A 1161 MOVL @CRBS$L _ INTD+VEC$L IDB(R1),R1 ; Get address of CSR 
08 38 A5 1A EO O68E 1162 BBS #DEVSV_ IDV,UCB$L_ DEVCHAR(R5),5$ ; Test for reader 
04 Al 0040 8F AA 0693 1163 BICW #PT STS _M_IE, PT_PPS(R1) ; Turn off punch int. ena. bit 
05 11 O699 1164 BRB OKAY ; And finish up 
61 0040 8F AA O69B 1165 5$: BICW #PT_CSR_M_IE,PT_PRS(R1) ; Turn off reader int. ena. bit 
O6A0 1166 OKAY: 
05 QO6A0 1167 RSB ; Return 


O6A1 1168 .SBTTL PT _REG DUMP, Device register dump routine 
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PT_REG_DUMP, 


9A 
3C 
9A 
O05 


O6A1 1170 
OGA1 1171 
OGA1 1172 
O6A1 1173 
O6GAi 1174 
O6A1 1175 
O6A1 1176 
O6GA1 1177 
O6A1 1178 
OGA1 1179 
O6GA1 1180 
O6A1 1181 
O6A1 1182 
O6A1 1183 
“O6GA1T 1184 
O6A1 1185 
O6GA1 1186 
‘O6A1t 1187 
O6GA1 1188 
O6GA1 1189 
O6GA1 1190 
O6GA1 1191 
O6GA1 1192 
O6GA1 1193 
O6A1 1194 
O6A1 . 1195 
O6A1 1196 
O6A1 1197 
O6A1 1198 
O6A4 1199 
O6A9 1200 
O6AE 1201 
OGAF 1202 
O6AF 1203 
O6GAF 1204 
OGAF 1205 
OGAF 1206 
OGAF 1207 
OGAF 1208 


++ 


Oe ee ee Oe we we we we Oe we Oe ee ee 8 we we ee we we ee ee we we we 


PT_REG_DUMP: 


stt+ 
; Label 


PT_END: 


Device register dump routin 22-AUG-1984 20:06:00 WORK2: [COURSE.DRIVER]PCDRIVER.MAR; (1) 


PT_REG_ DUMP, Dumps the contents of device registers to a buffer 


Functional description: 


Writes the number of device registers, and their current 
contents into a diagnostic or error buffer. Reader and 
punch both have two registers (a status register, and a 
data register). 


Inputs: 
RO - address of the output buffer 
R4 ~ address of the CSR (controller status register) 
RS - address of the UCB (unit control block) 
Outputs: 
The routine must preserve all registers except R1-R3. 


The output buffer contains the current contents of the device 
registers. RO contains the address of the next empty longword in 
the output buffer. 


Dump device registers 

Store device register count 
Store status register 

Store data register 

Return 


MOVZBL #PT_NUM_REGS,(RO)+ 
MOVZWL UCB$W_PT_PPS(R5),(RO)+ 
MOVZBL UCBS$B_PT_PPB(R5),(RO)+ 
RSB 


we we we we we 


that marks the end of the driver 


; Last location in driver 
. END 


PCDRIVER 
Symbol table 


$$$ 

$SOP 

ACP_FDT 

AF TINT 
AT$_UBA 

BACK 

BITO 

BIT8 

BIT9 
BUF_OVR_HD 
CANCEL 

COMMON 
COMPLETE_I0 
COPY 
CRB$L_INTD 
CRB$L_INTD2 
DDB$L_DDT 
DEV$M_AVL 
DEV$M_ELG 
DEV$M_IDV 
DEV$M_ODV 
DEV$M_REC 
DEV$V_IDV 
DEV$V_ODv 

DON 
DPT$C_LENGTH 
DPT$C_VERSION 
DPT$INITAB 
DPT$REINITAB 
DPT$TAB 

DSABL 
DYN$C_CRB 
DYN$C_DDB 
DYN$C_DPT 
DYN$C_UCB 
EMB$L’ DV_REGSAV 
END 

EOF 

ERBFSIZE 
ERL$DEVICERR 
ERL$DEVICTMO 
EXE$ABORTIO 
EXESALLOCBUF 
EXESBUFFRQUOTA 
EXE$FINISHIOC 
EXE$IOFORK 
EXE$QIOACPPKT 
EXE$QIODRVPKT 
EXE$READCHK 
EXESSNDEVMSG 
EXE$WRITECHK 
FINISH 

FIX 

FOR_PNCH 
FRST_QIO 
FUNCTAB_LEN 
GO 


th oUt 
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00000020 
00000002 
00000147 
00000396 
00000001 
00000331 
00000001 
00000100 
00000200 
ooo0000¢ 
000004C4 
0000046D 
000003D9 
00000447 
00000024 
00000048 
OO000000C 
00040000 
00400000 
04000000 
08000000 
00000001 
OOOOO0I1A 
0000001B 
00000444 
00000038 
00000004 
00000038 
00000059 
00000000 
00000519 
00000005 
00000006 
OOOOOOIE 
00000010 
OOO0004E 
00000010 
OOOOOOIA 


oo00000C 
BRR KE 


RR RK OK RK 
ok KR KK RK 
ok RRR KR K 
2K RR 
oR ROR RR ROK 
Ok ROK KKK 
SOR OK ROKR ROK 
RK KK RK 


RR KR ROK, 


RRR ROK AK 
aK OR KK OK Ok 
000003D0 
00000511 
00000183 
00000006 
00000064 
00000552 
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02 


03 
03 


03 


03 
03 
03 
03 


IDB$L_CSR 
IDB$L_UCBLST 
INCAN 

INTCOM 
IO$S_FCODE 
IO0$V_FCODE 
10$_ACPCONTROL 
IO$ CREATE 
I0$_DEACCESS 
I0$_ DELETE 
IO0$_ MODIFY 
10$_MOUNT 
10$_READLBLK 
I10$_READPBLK 
10$_READPROMPT 
I10$_READVBLK 
I0$_VIRTUAL 
I0$_WRITELBLK 
I0$_WRITEOF 
10$_WRITEPBLK 
I0$_WRITEVBLK 
IOCSCANCELIO 
IOC$MNTVER 
ITOC$REQCOM 
TOC$RETURN 
IOC$WFIKPCH 
IPL$ POWER 


_ IPL$_SYNCH 


IRP$L_MEDIA 
IRP$L_SVAPTE 
IRP$S_FCODE 
IRP$V_FCODE 
IRP$V_FUNC 
IRP$W_BCNT 
IRP$W_BOFF 
IRP$W_FUNC 
IRP$W_STS 
JIB$L_BYTCNT 
LOOP_CNT 
MAIN 

MAINLP 

MASKH 

MASKL 
MSG$_DEVOFFLIN 
MY_CLASS 
MY_TYPE 
NO_PRIv 
NT_MNT 
NT_WRT 

NUL 

NULL 

NULLP 
NULL_BYTES 
OKAY 

P1 

P2 

P3 


12-SEP-1984 17:59: 
22-AUG-1984 20:06: 
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00000000 
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00000035 
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00000020 
00000028 
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00000038 
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00000000 
00000001 
00000032 
00000030 
00000020 
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00000020 
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0000051D 
0000036A 
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00000000 
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00000064 
00000064 
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00000157 
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00000310 
00000000 
00000315 
00000032 
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00000000 
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03 
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03 


03 
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PCDRIVER 
Symbol table 


PC$DDT 
PCB$L_JIB 
PCB$Q_PRIV 
PNCH 

PNCH_HDR 
POWER_FAIL 
POW_FAIL 
PR$_IPL 
PRV$V_MOUNT 
PR_FDT_ ROUTINE 
PR_INTERRUPT 
PR_POWFAIL 
PR_SPERR 

PR_ START 

PR TIMEOUT 
PT_CANCEL 

PT CONTROL_INIT 
PT_CSR_M_BUSY 
PT_CSR_M_DONE 
PT_CSR_M_ERROR 
PT_CSR_M_IE 

PT _CSR_M_RDENA 
PT_END 
PT_ERROR 
PT_FDT_ROUTINE 
PT_FUNCTABLE 
PT INTERRUPT 
PT_NUM_REGS 
PT_PPB 

PT_PPS 

PT_PRB 

PT_PRS 

PT PUNCH 
PT_REG_DUMP 
PT_RESTART 
PT_START 
PT_STS_M_ERROR 
PT_STS_M_IE 
PT_STS_M_READY 
PT_TIMEOUT 

PT _TIMEOUT_SEC 
PT_UNIT_INIT 
PUNCH_HDR 
PUNEOF 

PUN_OT 
Q_TO_ACP 
RD_HDR 

READ 
RESTORE_DRIVER 
SETOFF 

SET_FDT 
SHORT_WAIT 

SUZ ane 

SKIP 


tho ue oa 
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O0000000C 
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00000084 
00000008 
00000298 
OO00003FC 
OO0003E8 
RE KK KR 
00000011 
O00001A4 
QOOOOO05F6 
000003F9 
0000042C 
000004D7 
00000451 
00000616 
ooog0o00gc 
00000800 
00000080 
00008000 
00000040 
00000001 
OOOOOGAF 
00000411 
OOOOODOBC 
00000038 
OOOOOSED 
00000002 
00000006 
00000004 
00000002 
00000000 
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03 
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03 
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SKIP1 

SKIP2 
SS$_CANCEL 
SS$_DEVNOTMOUNT 
SS$_DRVERR 
SS$_ENDOFFILE 
SS$_ILLIOFUNC 
SS$_NOPRIV 
SS$_NORMAL 
SS$_TAPEPOSLOST 
SS$_TIMEOUT 
START 

STARTING 
SYS$GL_OPRMBX 
TO_ACP 
UCB$B_DEVCLASS 
UCB$B_DEVTYPE 
UCB$B_DIPL 
UCB$B_FIPL 
UCB$B_PT_OFLCNT 
UCB$B_PT_PPB 
UCB$K_PT_UCBLEN 
UCBS$L_CRB 
UCB$L_DEVCHAR 
UCB$L_DEVDEPEND 
UCB$L_DPC 
UCB$L_FPC 
UCB$L_FR3 
UCB$L_IRP 
UCB$L_SAV_R4 
UCB$L_SVAPTE 
UCB$L_VCB 
UCB$M_ONLINE 
UCB$V_CANCEL 
UCB$V_INT 
UCB$V_MOUNTING 
UCB$V_POWER 
UCB$W_BCNT 
UCB$W_DEVBUFSIZ 
UCB$W_DEVSTS 
UCB$W_FUNC 
UCB$w_MY_REFCNT 
UCB$W_PT_PPS 
UCB$W_REFC 
UCB$W_STS 
UCB$W_UNIT 
UNSOL_INTERRUPT 
VCB$W_TRANS 
VEC$L_IDB 
VEC$L_INITIAL 
WAIT 


259: 
2:06: 
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HoS Seco ose es + 
! Psect synopsis ! 
+---------------- + 
PSECT name Allocation PSECT Ne. Attributes 
A ABS F 00000000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABS$ OOOOOOAA ( 170.) 01 ¢ Inc) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$105 PROLOGUE OOOOOOGE ( 110.) O2 € 2.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$115 DRIVER OOOOO6GAF ( 1711.) O38 € 3.) #NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
+------ - - - - + 
! Performance indicators ! 
+------- +--+ - ~~ - + 
Phase Page faults CPU Time Elapsed Time 
Initialization 122 00:00:00.33 00:00:01.51 
Command processing 137 00:00:00.46 00:00:01.04 
Pass 1 1976 00:00:31.64 00:00:38.03 
Symbol table sort ‘ 82 00:00:03.71 00:00:03.81 
Pass 2 819 00:00:05.70 00:00:06.79 
Symbol table output 31 00:00:00.24 00:00:00.37 
Psect synopsis output 7 00:00:00.03 00:00:00.03 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 3180 00:00:42.11 00:00:51.58 > 


The working set limit was 500 pages. 

146981 bytes (288 pages) of virtual memory were used to buffer the intermediate code. 

There were 130 pages of symbol table space allocated to hold 2469 non-local and 50 local symbols. 
1208 source lines were read in Pass 1, producing 20 object records in Pass 2. 

45 pages of virtual memory were used to define 42 macros. 


+------------ + 
! Macro library statistics ! 
+-------------------------- + 

Macro library name Macros defined 

SYS$SYSROOT: [SYSLIB]LIB.MLB; 1 29 

SYS$SYSROOT: [SYSLIB]STARLET.MLB; 1 10 

TOTALS (all libraries) 39 


2705 GETS were required to define 39 macros. 
There were no errors, warnings or information messages. 


MAC/LIS PCDRIVER+SYS$LIBRARY:LIB/LIB 


100 


300 
400 


600 


$! | PCDRIVER.COM 
$! 

SSET VERIFY 

SMAC/LIS PCDRIVER+SYSSLIBRARY:LIB/LIB 

SLINK/NOTRACE/MAP PCDRIVER/OPT,PCDRIVER,SYSSSYSTEM: SYS.STB/SEL 
SSET NOVERIFY 


100 i PCDRIVER. OPT 
200 BASE=0 


100 
200 
300 
400 
500 
600 
700 
800 
900 
1000 
1100 
1200 
1300 
1400 


$! 

$! 

SMCR SYSGEN 

LOAD SYSSSYSDISK: [COURSE.DRIVER]PCDRIVER 
CONNECT PCA0/ADAPTER=3- 
/NUMVEC=2- 
/VECTOR=%070- 
/CSR=%0777550- 
/DRIVER=PCDRIVER 
CONNECT PCA1/ADAPTER=3- 
/VECTOR=%074- 
/DRIVER=PCDRIVER 

SHO /DEV=PC 

EXIT 


LOADER. COM 
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900 
1000 
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1400 
1500 
1600 
1700 
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1900 
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2400 
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2600 
2700 
2800 
2900 
3000 
3100 
3200 
3300 
3400 
3500 
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READV.FOR 


EXTERNAL IO$_READVBLK 
CHARACTER*36 ALPHA 

INTEGER*4 SYSSASSIGN,SYSSQIOW, IOSB(2) 
INTEGER*2 IOSBW(4) 

EQUIVALENCE (IOSB(1),IOSBW(1)) 


FORMAT(' COMPLETED QIOW ',I2,' -- ',14,' BYTES READ') 
FORMAT(' ERROR ID = ',14,' FOR SSS VALUE = ',14) 
FORMAT(' IOSBW(2) VALUE = ',I2) 


FORMAT(' BEFORE ASSIGNMENT MADE' ) 
FORMAT(' ASSIGNMENT SUCCESSFUL' ) 


FORMAT(' DATA READ = ',A) 
WRITE (6,30) 
J=0 


II=SYSSASSIGN('PCAO:',IC,,) 
IF(.NOT.II)GOTO 200 

WRITE (6,40) 

DO 100 I=1,4 

T=) 

II=SYSSQIOW( , SVAL(IC),IOS READVBLK,IOSB,,,%REF(ALPHA), 
1%$VAL(36),,;,,7-) 

IF(.NOT.II)GOTO 200 

w=2 

IF( IOSBW(1).NE.1)GOTO 200 

WRITE (6,10)1,IOSBW(2) 

WRITE (6,50) ALPHA 

CONTINUE ' 

GOTO 300 

WRITE (6,20)J,II 

WRITE (6,25) IOSBW(2) 
IF(.NOT.II)CALL SYSSEXIT(%VAL(II)) 
CALL SYSSEXIT(%VAL(IOSBW(1) )) 

STOP 

END 
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200 
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2800 
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3000 
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98 


99 


100 


150 


200 


300 


RANDWV . FOR 


EXTERNAL I0$ WRITEVBLK,IO$ READVBLK 
CHARACTER*36 ALPHA, BETA, GAMMA(18) 

INTEGER*4 SYSSASSIGN,SYSSQIOW, IOSB(2) ,SYSSQIO, IOSB1(2) 
INTEGER*2 IOSBW(4),IOSBW1(4) 


EQUIVALENCE (IOSB(1),IOSBW(1)),(IOSB1(1),IOSBW1(1)) 
FORMAT(' IOSBW(2) AND IOSBW1(2) = ',12,' 12) 
FORMAT(' COMPLETED READ ',I2) | 
FORMAT(' ERROR ID = ',I4) - 

FORMAT(' DATA READ = ',A) 


FORMAT(' BEFORE ASSIGNMENTS MADE') 

FORMAT(' ASSIGNMENTS SUCCESSFUL' ) 

ALPHA= ' ABCDEFGHI JKLMNOPQRSTUVWXYZ1234567890' 

WRITE (6,30) 

J=0 

IIT=SYSSASSIGN('PCAO:',IC,,) 

IF(.NOT.II)GOTO 200 

J=5 

II=SYSSASSIGN('PCA1:',IC2,,) 

IF(.NOT.II)GOTO 200 

WRITE (6,40) 

J=1 

IP=3 

IR=18 

IF CHANGE IR, CHANGE GAMMA(IR) TOO IN CHAR STATEMENT 
IRINIT=IR 

K=0 

IIT=SYSSQIO(%VAL(1),%VAL(IC2),1I0$ WRITEVBLK,IOSB,,,%REF(ALPHA) 
1%$VAL(36),,,,) | 
IF(.NOT.II)GOTO 200 

J=2 

IF (K .NE. 0) GOTO 99 

K=1 . 
II=SYS$QIO(,%VAL(IC) , IO$_READVBLK,IOSB1,,,%REF(BETA), 
1%VAL(36),,,,) 

IF(.NOT.II) GOTO 200 

J=4 

IF (IOSBW1(1).NE.1)GOTO 100 

INDX=IRINIT+1-IR 

GAMMA ( INDX)=BETA 

IR=IR-1l 

IF(IR .GT. 0) GOTO 98 

IOSBW1(1)=0 


v 


GOTO 150 

IF (IOSBW(1) .NE. 1) GOTO 99 
IP=IP-1l 

IF (IP .GT. 0) GOTO 95 
IOSBW(1)=0 


IF ((IP .EQ. 0) .AND. (IR .EQ. 0)) GOTO 300 
IF ((IP .LT. 0) .OR. (IR .LT. 0)) GOTO 400 
GOTO 99 

WRITE (6,20)J 

WRITE (6,10) IOSBW(2) , IOSBW1(2) 
IF(.NOT.II)CALL SYSSEXIT(SVAL(II)) 

CALL SYSSEXIT(%VAL( IOSBW(1))) 

DO 350 I=1,IRINIT-1l 

WRITE (6,15) I 

WRITE (6,25) GAMMA(TI) 


6000 
6100 
6200 
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400 


CONTINUE 
STOP 
WRITE (6,20) IP 
WRITE (6,20) IR 
END 
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MODE. FOR 


EXTERNAL I0$ WRITEVBLK,1IO$ MODIFY,10$_ DELETE, IO$_DEACCESS 
CHARACTER*36 ALPHA 

INTEGER*4 SYSSASSIGN,SYSSQIOW, 1OSB(2) 

INTEGER*2 IOSBW(4) 

EQUIVALENCE (IOSB(1),IOSBW(1)) 


FORMAT(' COMPLETED QIOW ',12,' -- ',14,' BYTES PUNCHED' ) 
FORMAT(' ERROR ID = ',14) 
FORMAT(' NEW MODE VALUE = ',I4) 


FORMAT(' BEFORE ASSIGNMENT MADE' ) 

FORMAT(' ASSIGNMENT SUCCESSFUL' ) 

ALPHA=' ABCDEFGHI JKLMNOPORSTUVWXYZ1234567890' 

WRITE (6,30) 

J=0 

II=SYSSASSIGN('PCA1:',IC,,) 

IF(.NOT.II)GOTO 200 

WRITE (6,40) 

J=3 
II=SYSSQIOW(,%VAL(IC),1IO$_DEACCESS,IOSB,,,,,,,,) 
IF (.NOT. II) GOTO 200 

WRITE (6,25) IOSB(2) 

w=4 

IIT=SYSSQIOW(,%VAL(IC),IO$ MODIFY,,,,,%VAL(70),,,,) 
IF (.NOT. II) GOTO 200 

J=5 3 

II=SYSSQIOW(,%VAL(IC),1IO$ DEACCESS,IOSB,,,,,,,,) 
IF (.NOT. II) GOTO 200 

WRITE (6,25) IOSB(2) 

DO 100 I=1,4 

oe1 

II=SYSSQIOW(,%VAL(IC),IO$ WRITEVBLK,IOSB,,,%REF(ALPHA) , 
%VAL(36),,,,) 

IF(.NOT.II)GOTO 200 

s=2 

IF(IOSBW(1).NE.1)GOTO 200 

WRITE (6,10)I1, IOSBW(2) 

CONTINUE 

J=5 

II=SYSSQIOW(,%SVAL(IC),IOS DELETE,,,,,,,,,) 

IF (.NOT. II) GOTO 200 

J=6 

II=SYSSQIOW(,%VAL(IC),IO$ DEACCESS,IOSB,,,,,,,,) 
IF (.NOT. II) GOTO 200 

WRITE (6,25) IOSB(2) 

GOTO 300 

WRITE (6,20)J 

IF(.NOT.II)CALL SYSSEXIT(%VAL(II) ) 

CALL SYSSEXIT(%$VAL(IOSBW(1) ) ) 

STOP 

END 


PCDRIVER.LIS 
PCDRIVER.COM 
PCDRIVER.OPT 
PCLOAD.COM 
ATTN.FOR 
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.TITLE PCDRIVER - VAX/VMS PAPER TAPE READER/PUNCH DRIVER 


-IDENT /VO2/ 


++ 


FACILITY: 
VAX/VMS Paper Tape Reader/Punch driver 
ABSTRACT: 
This driver allows the user to control the paper tape reader/ 
punch by using the set attention AST scheme. The following 
function codes are accepted: , 
I10$_SENSECHAR--takes no arguments, and returns the address 
of the CSR in the high-order longword of the IOSB. 
I0$_SETMODE----takes up to three parameters: 
Pl address of AST routine to be entered when the paper 
tape reader interrupts (P1 is required). 
P2 parameter to be passed to the AST routine 
specified in P1 (P2 is optional). 
P3 access mode in which the AST routine specified in 
P1 is to run (P3 is optional). 
IO0$_SETCHAR--~-identical to IO$ _SETMODE except that the AST 
routine specified in P1 will be entered if the punch 
generates an interrupt (instead of the reader). 
AUTHOR: 
Vik Muiznieks July-=+1979 
History 
Fred Marsh August 1894 


Added $DYNDEF to the symbol definitions 


.SBTTL External and local symbol definitions 
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V02 External and local symbol definitions 22-AUG-1984 21:15:21 WORK2: [COURSE.DRIVER.RT]PCDRIVER.M(1) 
0000 42 
0000 43 ; 
0000 44 ; External symbols 
0000 45 ; 
0000 46 
0000 47 $CRBDEF ; Channel request block 
0000 48 $DCDEF ; Device classes and types 
0000 49 EDODBDEF ; Device data block 
0000 50 $DEVDEF ; Device characteristics 
0000 51 $IDBDEF ; Interrupt data block 
0000 52 $IODEF ; 1/0 function codes 
0000 53 $IPLDEF ; Hardware IPL definitions 
0000 54 $IRPDEF ; 1/0 request packet 
0000 55 $SSDEF ; System status codes 
0000 56 $UCBDEF ; Unit control block 
0000 57 $VECDEF ; Interrupt vector block 
0000 58 $DYNDEF ; 
0000 59 ; 
0000 60 ; Local symbols 
0000 61 ; 
0000 62 
0000 63 ; 
0000 64 ; Argument list (AP) offsets for device-dependent $QI0O parameters 
0000 65 ; (Only P1, P2, and P3 have meaning for this driver.) 
0000 66 ; 
0000 67 
00000000 0000 68 Pl = 0 ; First $QI0O parameter 
00000004 9Q000 69 P2 = 4 ; Second $QIO parameter 
ooo0000s o00n 70 P3 = 8 ; Third $QIO parameter 
oo00000Cc 90000 71 P4 = 12 ; Fourth $QIO parameter 
00000010 0000 72 PS = 16 ; Fifth $QIO parameter 
00000014 0000 73 P6 = 20 ; Sixth $QIO parameter 
0000 74 
0000 75 3 
0000 76 ; Other constants 
0000 77 =; 
0000 78 
OQOOOOOOFC 9O00d0 79 MY_CLASS=252 ; My own device class number 
0000 80 
0000 B81 ; 
0000 82 ; Definitions that follow the standard UCB fields 
0000 83 ; 
0000 84 
0000 85 G$DEFINI UCB ; Start of UCB definitions 
0000 86 
00000090 0000 87 . =UCB$K_LENGTH ; Position to end of UCB 
0090 88 
0090 89 $DEF UCB$L_ASTHEAD ~BLKL 1 ; Listhead for reader attn. AST 
0094 90 
0094 91 $DEF UCB$L_PUNCHD »~BLKL 1 ; Listhead for punch attn. AST 
0098 92 
0098 93 $DEF UCB$K_PC_UCBLEN ; Length of extended UCB 
0098 94 
0098 95 $DEFEND UCB ; End of UCB definitions 


0000 96 .SBTTL Standard tables 
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0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0038 


OOSF 
OOSF 
0064 
0064 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0038 
0038 
0038 
0038 
0038 
0038 
0038 
0038 
0038 
0038 


98 

99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 


- VAX/VMS PAPER TAPE READER/PUNCH DRIVER 
Standard tables 


> 
. 
’ 


7 


b 2 
’ 


12-SEP-1984 18:01:38 
22-AUG-1984 21:15:21 


Driver prologue table 


DPTAB- = 
END=PC_END,- . 
ADAPTER=UBA, - 
UCBSIZE=<UCB$K_PC_UCBLEN>, - 
NAME=PCDRIVER 

DPT_STORE INIT 


DPT_STORE UCB,UCB$B_FIPL,B,8 
DPT_STORE UCB,UCB$B_DIPL,B, 20 
DPT_STORE UCB,UCB$L_DEVCHAR,L, <- 
DEV$M_AVL!- 
DEV$M_REC!- 
DEV$M_IDV!- 
DEV$M_ODVv> 
DPT_STORE UCB,UCB$B_DEVCLASS,B,MY_CLASS 


DPT _ STORE REINIT 


DPT STORE DDB,DDB$L_DDT,D,PC$DDT 

DPT _STORE CRB,CRB$L_INTD+4,D,~- 
ASTINT 

DPT_STORE CRB,CRB$L_INTOD2+4,D,-~ 
PUNC_INT 

DPT_STORE CRB,- 
CRB$L_INTD+VEC$L_INITIAL,- 
D,PC_CONTROL_INIT 

DPT STORE CRB,- 

~ CRB$L_INTD+VEC$L_UNITINIT,~ 

D,PC_UNIT_INIT 


DPT_STORE END 


Driver dispatch table 


DDTAB- - 
DEVNAM=PC, - 
START=PC_START,- 
FUNCTB=PC_FUNCTABLE, - 
CANCEL=+IOC$CANCELIO 


Function dispatch table 


PC_FUNCTABLE: 


FUNCTAB ,- 
<SENSECHAR, - 
SETCHAR,— 
SETMODE> 


VAX=11 
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DPT~creation macro 
End of driver label 
Adapter type 
Length of UCB 
Driver name 
Start of load 
initialization table 
Device fork IPL 
Device int. IPL (BR4) 
Device characteristics 
e.g., dev. available 
record oriented 
input device 
output device 
store my device class 


Start of reload 
initialization table 
Address of DDT 
Address of reader int. 


service routine 
Address of punch int. 
service routine 
Address of controller 


initialization routine 


Address of device 
unit initialization 
routine 


End of 
tables 


initialization 


DDT-creation macro 
Name of device 
Start I/O routine 
FDT address 

Cancel I/0 routine 


FDOT for driver 

Valid I/0 functions 
Get CSR address func. 
Punch attn. AST func. 
Reader attn. AST func 
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VO02 Standard tables 
0040 155 
0040 156 
0040 157 
0040 158 
0048 159 
0048 160 
0054 161 
0054 162 
0060 163 
0060 164 
OO06C 165 


FUNCTAB 


FUNCTAB 


FUNCTAB 


FUNCTAB 


-SBTTL 


22-AUG-1984 21:15:21 


’ 


<SENSECHAR, - 
SETCHAR, - 
SETMODE> 
CSR_FDT_ROUTINE,- 
<SENSECHAR> 
PUNC_AST_FDT,- 
<SETCHAR> 
SET_AST_FDT,- 
<SETMODE> 


ee ee we we we 
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Buffered functions 
Get CSR address 
Punch attn. AST 
Reader attn. AST 
FDOT get CSR routine 


FDT punch attn. 
AST routine 
FDT reader attn. 
AST routine 


PC_CONTROL_INIT, Controller initialization routine 
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O06C 167 
OO6C 168 ;++ 
OO6C 169 ; PC_CONTROL_INIT, Readies controller for I/0 operations 
OO6C 170 ; 
OO6C 171 3; Functional description: 
OO6C 172 ; 
OO6C 173 ; The operating system calls this routine in 3 places: 
OO6C 174 ; 
OO6C 175 ; at system startup 
O06C 176 ; during driver loading and reloading 
OO6C 177 ; during recovery from a power failure 
O06C 178 ; 
OO6C 179 ; Inputs: 
OO6C 180 ; 
OO6C 181 ; R4 - address of the CSR (controller status register) 
OO6C 182 ; R5 - address of the IDB (interrupt data block) 
006C 183 ; R6 ~- address of the DDB (device data block) 
‘O06C 184 ; R8 - address of the CRB (channel request block) 
OO6C 185 ; 
OO6C 186 ; Outputs: 
oo6Cc 187 ; 
OO6C 188 ; The routine must preserve all registers except RO-R3. 
OO6C 189 ; 
O06C 190 ;-- 
O006C 191 
OO6C 192 PC_CONTROL_INIT: _ ; Initialize controller 
05 oOo6C 193 RSB ; Return 
006D 194 -SBTTL PC_UNIT_INIT, Unit initialization routine 


PCDRIVER 
VO2 


64 AS 
50 
50 
04 AO 


24 
2c 


10 
AS 
AQ 
55 
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PC_UNIT_INIT, 


A8 
DO 
DO 
DO 


05 


006D 
O0O06D 
O0O06D 
O006D 
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ilure 


it in’ the UCB, and 
B with the UCB address. 


r status register) 
rol block) 


except RO-R3. 


Initialize unit 

Set unit online 

Get address of CRB 

Get address of IDB 

Set address of dev UCB 
as OWNER--will not 
change 

Return 


we we ee we we ee we 


Unit initialization routin 22-AUG-1984 21:15:21 
196 
197 ;++ 
198 ; PC_UNIT_INIT, Readies unit for I/O operations 
199 ; 
200 ; Functional description: 
201 =; ; 
202 ; The operating system calls this routine after calling the 
203 ; controller initialization routine: 
204 ; 
205 ; at system startup 
206 ; during driver loading 
207 ; during recovery from a power fa 
208 ; 
209 ; This routine sets the on-line b 
210 ; loads the owner field of the ID 
211~=; 
212 3; Inputs: 
213 ; 
214 ; R4 - address of the CSR (controlle 
215 ; R5 - address of the UCB (unit cont 
216 ; 
217 ; Outputs: 
218 ; 
219 ; The routine must preserve all registers 
220 ; . 
221 3-7 
222 
223 PC_UNIT_INIT: 
224 BISW #UCB$M_ONLINE,UCB$W_STS(R5) 
225 MOVL UCBSL_CRB(R5) ,RO 
226 MOVL CRB$L_INTD+VEC$L_IDB(RO),RO 
227 MOVL R5,IDB$L_OWNER(RO) 
228 , 
229 
230 RSB 
231 .SBTTL CSR _FDT_ROUTINE, Return CSR Add 


; 
ress 


PCDRIVER 
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50 24 AS 
51 2C BO 

50 01 
00000000’GF 
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CSR_FDT_ROUTINE, Return CSR Address 


DO © 


DO 
3C 
17 


OO7E 
OO7E 
OO7E 
OO7E 
OO7E 
OO7E 
OO7E 
OO7E 
OO7E 
OO7E 
OO7E 
OO7E 
OO7E 
OO7E 
OO7E 
OO7E 
OO7E 
OO7E 
OO7E 
OO7E 
OO7E 
OO7E 
OO7E 
OO7E 
OO7E 
OO7E 
OO7E 
OO7E 
OO7E 
OO7E 
OO7E 
OO7E 
0082 
0086 
0089 
OO8F 


233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 


t+ 


CSR_FDT_ROUTINE 


Functional description: 
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This FDT routine returns the address of the device’s CSR in 


the high-order 


longword of the IOSB. The CSR is found in the 


first longword of the IDB. R1 is placed into the high-order 
longword of the IOSB by IOPOST. 


Inputs: 

RO-R2 - scratch registers 

R3 - address of the IRP (1/0 request packet) 

- address of the PCB (process control block) 

R5 - address of the UCB (unit control biock) 

R6 - address of the CCB (channel control block) 

R7 - bit number of the I/0 function code 

R8 —- address of the FDT table entry for this routine 

R9O-R11 - scratch registers 

AP ~ address of the ist function dependent $QIO parameter 
Outputs: 

The routine must preserve all registers except RO-R2, and 

RO-R11. 


ee we te ee ee ee ee we te ee we te we we ee ee ee ee ee ee et we we 


CSR_FOT_ROUTINE: 
MOVL 
MOVL 
MOVZWL 
JMP 
.SBTTL 


UCB$L_CRB(R5),RO ; Get CRB address 
@CRB$L_INTD+VECS$L_IDB(RO),R1 ; Store CSR in IOSB(2) 
#SSG NORMAL ,RO ; Return normal success 
GAEXE$FINISHIO ; All done 


SET_AST_FDT, 


Reader Attn. AST 


PCDRIVER 
VO2 


50 6C 

09 

51 04 
OQO000000 ’ GF 
50 04 AC 
06 


00000000’ GF 


57 0090 C5 
00000000’ GF 
00000000 ’GF 
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SET_AST_FDT, 


DO 
13 


16 
DO 
13 
16 
DE 


17 


OO8F 
OO8F 
OO8F 
OO8F 
OO8F 
OO8F 
OO8F 
OO8F 
OO8F 
OO8F 
OO8F 
OO8F 
OO8F 
OO8F 
OO8F 
OO8F 
OO8F 
OO8F 
OO8F 
OO8F 
OO8F 
OO8F 
OO8F 
OO8F 
OO8F 
OO8F 
OO8F 
OO8F 
OO8F 
OO8F 
OO8F 
0092 
0094 
0097 
009D 
009D 


O0A1 


00A3 
OOAQ 
OOAQ 
OOAE 
00B4 
OOBA 


Reader Attn. AST 


270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 


s ++ 


SET_AST_FDT 
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Functional description: 


This FDT routine queues an attention AST for the process 


accessibility. 


; issuing the SETMODE $QI0O. ‘P11 and P2 are checked for 


Inputs: 
RO-R2 - scratch registers 
R3 - address of the IRP (I/O request packet) 
; R4 - address of the PCB (process contro! block) 
i. R5 - address of the UCB (unit control block) 
; R6 - address of the CCB (channel control block) 
: R7 - bit number of the 1/0 function code 
; R8 - address of the FDOT table entry for this routine 
; RO-R11 - scratch registers 
: AP -~ address of the 1st function dependent $QIO parameter 
; Outputs: 
; The routine must preserve all registers except RO-R2, and 
; RO-R11. 


SET _AST_FDT: 
MOVL 
BEQL 
MOVZBL 
JSB 


NOP 1: MOVL 
BEQL 
JSB 


NOP2: MOVAL 
JSB 
JMP 
.-SBTTL 


UCB$L_ASTHEAD(RS) ,R7 
GACOMSSETATTNAST 


No return on no access 
Get listhead 
Set up ast request 


P1CAP),RO ; Get ast address 
NOP 1 ; O means disable ast 
#4,R1 ; It’s a longword 
GAEXE$WRITECHK ; Can user read it 

; No return on no access 
P2(AP),RO ; Get ast par. if there 
NOP2 ; No P2 parameter if eq! 
GAEXES$WRITECHK ; Can user read it?. 


GAEXE$FINISHIOC 
PUNC_AST_FDT, 


Complete SETMODE $QI0 
Punch Attn. AST 


PCDRIVER 
VO02 


50 6C 

09 

51 04 
00000000 ‘ GF 
50 04 AC 
06 


00000000 ’‘ GF 


57 0094 C5 
00000000’ GF 
00000000 ‘GF 
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PUNC_AST_FDT, 


DO 
13 
9A 
16 


DO 
13 
16 


DE 
16 
17 


OOBA 
OOBA 
OOBA 
OOBA 
OOBA 
OOBA 
OOBA 
OOBA 
OOBA 
OOBA 
OOBA 
OOBA 
OOBA 
OOBA 
OOBA 
OOBA 
OOBA 


‘OOBA 


OOBA 
OOBA 
OOQBA 
OOBA 
OOBA 
OOBA 
OOBA 
OOBA 
OOBA 
OOBA 
OOBA 
OOBA 
OOBA 
O0OBD 
OOBF 
o00c2 
00Cc8 
oocs 
OOCC 
OOCE 
00D4 
00D4 
00D9 
OODF 
OOE5 


314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 


Punch Attn. AST 


++ 
PUNC_AST_FDT 


Functional description: 
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This FDT routine queues an attention AST for the process 
issuing the SETCHAR $QI0. Pl and P2 are checked for 
accessibility. 


Inputs: 

RO-R2 - scratch registers 

R3 - address of the IRP (1/0 request packet) 

- address of the PCB (process control block) 

R5 - address of the UCB (unit control block) 

R6 - address of the CCB (channel control block) 

R7 - bit number of the I/0 function code 

R8 - address of the FDOT table entry for this routine 

R9O-R11 - scratch registers 

AP - address of the Ist function dependent $QI0O parameter 
Outputs: 

The routine must preserve all registers except RO-R2, and 

R9-R11. 


we Oe et Oe we we ee Oe ee ee ee we ee ee ee we we ee wt ee we we ee et we we we 


PUNC_AST_FDT: 
MOVL 
BEQL 
MOVZBL 
JSB 


NO_P1: MOVL 
BEQL 
JSB 


NO_P2: MOVAL 
JSB 
JMP 


UCB$L_PUNCHD(R5),R7 
GACOM$SETATTNAST 


No return on no access 
Get listhead 
Set up ast request 


P1(AP),RO ; Get ast address 
NO_P1 ; O means disable ast 
#4,R1 ; It’s a longword 
GAEXE$WRITECHK ; Can user read it 

; No return on no access 
P2(AP),RO ; Get ast par. if there 
NO_P2 ; No P2 parameter if eq! 
GAEXE$WRITECHK ; Can user read it? 


GAEXES$FINISHIOC 


.SBTTL PC_START, 


Complete SETMODE $QIO 


Start I/O Routine 


PCDRIVER - VAX/VMS PAPER 
vo2 PC_START, 


05 


OOE5 
OOES 
OOE5 
OOES 
OOE5 
OOE5 
OOE5 
OOES 
OOE6 


Start 


358 
359 
360 
361 
362 
363 
364 
365 
366 
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PC_START 


; The driver really has no start I/0 entry point. 
3 This is a dummy routine which should never be 
7 called by this driver. 
PC_START: 
RSB 

-SBTTL ASTINT, Interrupt service routines 


PCDRIVER 
VO2 


54 


55 


53 
04 
0090 


9E 
A3 
C5 


00000000’ GF 


34 


55 


50 
52 
54 


53 
04 
0094 


8E 
BE 
BE 


9E 
A3 
c5 
E2 
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ASTINT, Interrupt service routines 


OOE6 
OOE6 
OOE6 
OOE6 
OOE6 
OOE6 
OOE6 
OOE6 
OOE6 
OOE6 
OOE6 
OOE6 
OOEG6 
OOE6 
OOE6 
OOE6 
OOE6 
OOE6 
OOE6 
OOE6 
OOE6 
OOE6 
OOE6 
OOE6 
OOE6 
OOE6 
OOE6 
OOE6 
OOE6 
OOE6 
OOE6 
OOE6 
OOE6 
OOE6 
OOE6 
O0E6 
OOE6 
OOE6 
OOE6 
OOE9 
OOED 
OOF2 
OOF8 
OOFB 
OOFE 
0101 
0102 
0102 
0105 
0109 
O10E 
0110 


368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 


stt+ 
ASTINT 


Functional 


O( SP) 


4(SP) 
8(SP) 
12(SP) 
16(SP) 
20(SP) 
24(SP) 
28(SP) 
32(SP) 


The IDB 


Outputs: 


’ 
% 
> 
> 
5 
’ 
. 
> 
> 
’ 
’ 
? 
¥ 
’ 
h 
’ 
’ 
> 
; Inputs: 
> 
: 
3 
oJ 
3 
: 
> 
E 
L 
? 
é 
? 
’ 
: 
’ 
‘ 
’ 
2 
’ 
: 
? 
3 
’ 
? 
L 


’ 


ASTINT: 
MOVL 
MOVL 
MOVAL 
JSB 
MOVQ 
MOVQ 
MOVQ 
REI 
PUNC_INT: 
MOVL 
MOVL 
MOVAL 
BRB 
.SBTTL 


DELIV: 


The routine must preserve al] 


12-SEP-1984 18:01:38 
22-AUG~1984 21:15:21 


VAX-11 Macro V03-01 ; Page 11 
WORK2: [COURSE.DRIVER.RT]PCDRIVER.M(1) 


description: 


The driver is for a single-unit controller, and 
the unit initialization code has stored the 


address of the UCB in the owner field of the IDB. 


These routines simply restore the address of the UCB 
in RS, place the appropriate AST listhead in R4, and 
call a system routine to queue pending AST’s. Note 
that mo check is made to see if the UCB$V_INT bit is 
set (in UCB$W_STS), since the routines that set up the 
attention AST’sS do not set the bit. 


- pointer to the address of the IDB (interrupt data 
block) 
- saved RO 
- saved R1 
- saved R2 
~ saved R3 
- saved R4 
- saved R5 
- saved PSL (program status 
- saved PC 


longword) 


contains the CSR address and the UCB address. 


registers except RO-R5. 


Reader 
Get IDB 
Get OWNER UCB 

Get reader listhead 


interrupted 
@(SP)+,R3 

IOB$L_ OWNER(R3) ,RS 
UCB$L ASTHEAD(RS) ,R4 


we we we we we we we we 


GACOME$DELATTNAST Deliver attn. ast’s 
(SP)+,RO Dismiss interrupt 
(SP)+,R2 After restoring 
(SP)+,R4 Registers 

; Punch interrupted 
@(SP)+,R3 ; Get IDB 
IDB$L_OWNER(R3),R5 ; Get OWNER UCB 
UCB$L_ PUNCHD(R5) ,R4 ; Get punch listhead 
DELIV ; Deliver attn. ast’s 
PC_END, End of driver 
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VO02 PC_END, End of driver 22-AUG-1984 21:15:21 WORK2:{[COURSE.DRIVER.RT]PCDRIVER.M(1) 


0110 421 
0110 422 3;++ 
0110 423 ; Label that marks the end of the driver 


0110 424 5-7 
0110 425 
0110 426 PC_END: ; Last location in driver 


0110 427 . END 


PCDRIVER 
Symbol table 


$$$ 

$$OP 

ASTINT 
AT$_UBA 
COM$DELATTNAST 
COM$SETATTNAST 
CRB$L_INTD 
CRB$L_INTD2 
CSR_FDT_ROUTINE 
DDB$L_DDT 
DELIV 
DEV$M_AVL 
DEV$M_IDV 
DEV$M_ODV 
DEV$M_REC 
DPT$C_LENGTH 
DPT$C_VERSION 
DPT$INITAB 
DPT$REINITAB 
DPTS$TAB 
DYNSC_CRB 
DYNS$C_DDB 
DYN$C_DPT 
DYN$C_UCB 
EXESFINISHIO 
EXESFINISHIOC 
EXE$WRITECHK 
FUNCTAB_LEN 
IDB$L_OWNER 
I10$_SENSECHAR 
I0$_SETCHAR 
I10$_ SETMODE 
IO$ VIRTUAL 
IOC$CANCELIO 
IOCSMNTVER 
LOCSRETURN 
MASKH 

MASKL 

MY CLASS 

NOP 1 

NOP2 

NO_P1 

NO_P2 

Py 


PC$ODT 
PC_CONTROL_INIT 
PC_END 
PC_FUNCTABLE 
PC_START 
PC_UNIT_INIT 
PUNC_AST_FDT 
PUNC_INT 


tout ou How ou Th ho Wou db tt Wo UW db Hou 


Hou ou Wow at 
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00000020 
00000002 
‘OOOCO0E6 


00000001 
ok KK RK 


KK KR KOK 


00000024 
00000048 
OOOO007E 
o000000c 
OOO000F2 
00040000 
04000000 
08000000 
0000000! 
00000038 
00000004 
00000038 
0000004B 
00000000 
00000005 
00000006 
OOOOOOTE 


00000010 
ee ee 


KKAKKA KS 
KKK AK KK 


00000034 
00000004 
0000001B 
OOOOOODIA 
00000023 


OO00003F 
CoRR RK ROK 


ARR RRR RK 
2K OK OK ARR Rk 


00000008 
00000000 
OOOOOO0FC 
0000009D 
O00000A9 
O00000C8 
000000D4 
00000000 
00000004 
00000008 
oooo000c 
00000010 
00000014 


00000000 


QO000006C 
00000110 
00000038 
OOOO00ES 
O0000006D 
OOOQ00BA 
00000102 
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DBD 


DAUDADD 


7) 


DuawDDDBDADD 


«KK 


x x &< 


02 
03 
03 
03 
03 


03 


02 


02 


03 


03 


SET_AST_FDT 
SS$_NORMAL 
UCB$B_DEVCLASS 
UCB$B_DIPL 
UCB$B_FIPL 
UCB$K_LENGTH 
UCB$K_PC_UCBLEN 
UCB$L_ASTHEAD 
UCB$L_CRB 
UCB$L_DEVCHAR 
UCB$L_PUNCHD 
UCB$M_ONLINE 
UCB$W_STS 
VEC$L_IDB 
VEC$L_INITIAL 
VEC$L_UNITINIT 


tou ot Ww ott 


ost ou oH OW 
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OOOOOO8F R 


00000001 

00000040 
OOOOOOS5E 
O0000000B 
00000090 
00000098 
00000090 
00000024 
00000038 
00000094 
00000010 
00000064 
00000008 
ooo00000Cc 
00000018 


Macro V03-01 
21 WORK2: [COURSE.DRIVER.RT]PCDRIVER.M(1) 


03 
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Psect synopsis 22-AUG-1984 21:15:21 WORK2:[COURSE.DRIVER.RT]PCDRIVER 
toa eee + 
! Psect synopsis ! 
+ -------- + 
PSECT name Allocation PSECT No. Attributes 
. ABS 00000000 ¢ 0.) OO ( O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
S$ABS$ ooo000gs ( 152.) O71 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$105 PROLOGUE ooo0006s (¢ 101.) O02 ( 2.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$115 DRIVER 00000110 ( 272.) O03 ( 3.) \NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
+------ + + 
! Performance indicators ! 
nn ee ee + 
Phase Page faults CPU Time Elapsed Time 
Initialization 100 00:00:00.33 00:00:01.16 
Command processing 129 00:00:00.46 00:00:01.12 
Pass 1 1101 00:00:21.36 00:00:36.45 
Symbo! table sort 29 00:00:02.85 00:00:05.31 
Pass 2 418 00:00:03.19 00:00:03.99 
Symbol table output 12 00:00:00.11 00:00:00.14 
Psect synopsis output 7 00:00:00.05 00:00:00.19 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 1802 00:00:28.37 00:00:48.37 


The working set limit was 500 pages. 

96378 bytes (189 pages) of virtual memory were used to buffer the intermediate code. 

There were 100 pages of symbol table space allocated to hold 1819 non-local and O local symbols. 
427 source lines were read in Pass 1, producing 16 object records in Pass 2. 

27 pages of virtual memory were used to define 24 macros. 


+--+--------------+-------- + 
! Macro library statistics ! 
to--+---- ++ 3-H 

Macro library name Macros defined 

SYS$SYSROOT: [SYSLIB]JLIB.MLB; 1 14 

SYS$SYSROOT: [SYSLIB] STARLET .MLB; 1 8 

TOTALS (all libraries) 22 


2058 GETS were required to define 22 macros. 
There were no errors, warnings or information messages. 


MAC/LIS PCDRIVER+SYS$LIBRARY:LIB/LIB 


14 
-M(1) 


100 
200 
300 


500 
600 


$! PCDRIVER.COM 


$! 

SSET VERIFY 

SMAC/LIS PCDRIVER+SYSSLIBRARY:LIB/LIB 
SLINK/NOTRACE/MAP PCDRIVER/OPT, PCDRIVER,SYSSSYSTEM:SYS.STB/SEL 


SSET NOVERIFY 


100 ! PCDRIVER.OPT 
200 BASE=0 


100 
200 
300 
400 
500 
600 
700 
800 
900 
1000 
1100 


Si 

oe 

SMCR SYSGEN 

LOAD SYSSSYSDISK:[COURSE.DRIVER.RT]PCDRIVER 
CONNECT PCA0O/ADAPTER=3- 
/NUMVEC=2- 
/VECTOR=%070- 
/CSR=%0777550- 
/DRIVER=PCDRIVER 

SHO /DEV=PC 

EXIT 


PCLOAD.COM 


ANANNANA ANAN 


AAN 


30 


40 
90 


‘o) ANNAN 


ANNAANANANAN 


QANAAN 


ATTN. FOR 
PROGRAM MAIN 


This program causes the subroutine SUB to entered 
in kernel mode. The subroutine will service 
interrupts from the paper tape reader, using the 
set attention ast mechanism. 


INTEGER*4 SYSSCMKRNL,SYSSEXIT 
EXTERNAL SUB, SUBTWO 

COMMON ICSR,K,L,ICHAN 

COMMON /CHAR/ ALPHA 

COMMON /DEBUG/ ICODE,ISTAT 
INTEGER*2 ICHAN 

CHARACTER*36 ALPHA 

ICODE=0 

I1=SYSSCMKRNL (SUB, ) 


Check for error in system service call 


IF (.NOT. I) CALL SYSSEXIT(%VAL(I) ) 
IF (ICODE .EQ. O) GOTO 40 
WRITE (6,30) ICODE 
FORMAT (' ERROR ID = ',I4) 
CALL SYSSEXIT(%VAL(ISTAT) ) 
WRITE (6,50) ALPHA(1:L) 
FORMAT(' AFTER HIBER, ALPHA = ',A) 


Now enter subroutine SUBTWO in kernel mode to punch some 
characters on paper tape 


I=SYSSCMKRNL (SUBTWO, ) 

IF (.NOT. I) CALL SYSSEXIT($3VAL(I) ) 
WRITE (6,60) 

FORMAT(' PUNCHING COMPLETE' ) 

END 


KREKKKKKKKEKKRKKK KKK KE SUB KKEKKKKEK KKK KEK KK KKEK 
SUBROUTINE SUB 


This routine assigns a channel to the paper tape 

reader, retrieves the address of the paper tape 

CSR in IOSB(2) (via a SENSECHAR QIO), and then requests 
an attention ast (when the paper tape reader interrupts) 
via a SETMODE QIO (in subroutine SETAST). The paper 
tape reader is actually started (and interrupts are 
enabled) by subroutine INTENA. 


IMPLICIT INTEGER*4(S) 
EXTERNAL READAST,SETAST, INTENA,IO$ SENSECHAR 


Note that integer values and character strings must 
be placed in separate common blocks (a FORTRAN 
restriction). 


COMMON ICSR,K,L,ICHAN 


CROTOY OC: (O48 


CuCl YO ELL GA 


CHO. VON Oe a eae 


AWAD 


OOO 


COMMON /CHAR/ ALPHA 

COMMON /DEBUG/ ICODE,ISTAT 
INTEGER*4 IOSB(2) 

INTEGER*2 ICHAN, IOSBW(4) 
CHARACTER*36 ALPHA 
EQUIVALENCE (IOSB(1),IOSBW(1)) 


J 1S an error indicator flag 
J=0 


Assign a channel to the paper tape reader 
and check for system service error. 


I=SYSSASSIGN('PCAO:',ICHAN,,) 
IF (.NOT. I) GOTO 200 
=) 


K indicates position in character string for next 
character read 
L indicates number of characters to be read into 
the string (note that the character statements 
in the subroutines need to be changed to reflect 
the maximum size that L may take on (set to 36)). 
Also, byte array (BYTE) in subroutine READAST must 
be increased to the same size as L. 


K=1 

L=36 

I=SYSSQIOW(, S3VAL(ICHAN) , IOS SENSECHAR,IOSB,,,,;,;,,7,) 
ICSR=IOSB(2) 7 

IF (.NOT. I) GOTO 200 

J=2 

IF (IOSBW(1) .NE. 1) GOTO 200 


Enable attention ast (which is actually handled by 
subroutine READAST). 

Note that the @VAL function is used to pass the 
address of the CSR. In the subroutine, the address 
of the subroutine parameter becomes the address of 
the CSR, and the subroutine can directly reference 
the CSR by referencing the subroutine parameter. 


CALL SETAST(0) 


Enable paper tape reader interrupts, and start the 
paper tape reader (to read the next character). 


CALL INTENA(3VAL(ICSR) ) 
J=3 


Wait for all characters to be read (determined by 
subroutine READAST, who issues the WAKE system service). 


I=SYSSHIBER( ) 
IF (.NOT. I) GOTO 200 
RETURN 


Enter here if error condition occurs in a system 
service (J flags where error occurred). 


11000 
11100 
11110 
11120 
11200 
11600 
11700 
11800 
11900 
12000 
12100 
12200 
12300 
12400 
12500 
12600 
12700 
12800 
12900 
13000 
13100 
13200 
13300 
13400 
13500 
13600 
13700 
13800 
13900 
14000 
14100 
14200 
14300 
14400 
14500 
14600 
14700 
14800 
14900 
15000 
15100 
15200 
15300 
15400 
15500 
15600 
15700 
15800 
15900 
16000 
16100 
16200 
16300 
16400 
16500 
16600 
16700 
16800 
16900 
17000 


200 


OPO. OO eaten.) TVR 


ANN 


SOC OO 2 I F2- 


ICODE = J 

ISTAT = IOSBW(1) 

IF (.NOT. I) ISTAT = I 
RETURN 

END 


KKEEKEKKEKKEKEKEKKEKRKERKEKKER READAST KKKKKEKRKEKEKRKKEKEKKEREE 


SUBROUTINE READAST(MYCSR) 
IMPLICIT INTEGER*4(S) 
CHARACTER*36 ALPHA 
EXTERNAL SETAST, INTENA 
INTEGER*2 ICHAN,MYCSR(4) 
BYTE DATA(36) 

COMMON ICSR,K,L,ICHAN 
COMMON /CHAR/ ALPHA 


Note that the only valid (FORTRAN) equivalence for 
a character string is to a BYTE variable. 


EQUIVALENCE (ALPHA(1:),DATA(1)) 


The data buffer register for the paper tape reader 
follows the paper tape reader CSR. Note that only 
the low order byte contains data. Note also, refer- 
ences to device registers must reference those 
locations as bytes or words only, not as longwords. 


DATA(K)=MYCSR(2) 


Increment index into string, and see if all done 
reading characters by comparing index to number of 
characters desired. 


K=K+1 
TF CK. cL. cl): “GOTO? 75 


If all done, awaken main subroutine (SUB). 


CALL SYSSWAKE(, ) 
RETURN 


Must reenable attention ast for next character since 
attention ast only good for one interrupt. Note that 

a separate subroutine is required since the QIO is 

not allowed to specify the same ast routine address as the 
routine from which the QIO is being issued. Interrupts 
are also reenabled, and the next character is read from 
the paper tape reader (via subroutine INTENA). 


CALL SETAST(0) 

CALL INTENA(%VAL(ICSR) ) 
RETURN 

END 


KEKERKEKEKKKKEKEKKEKEKEEKER SETAST KRRKEKEKKKEKKKKKEKEKKEKEE 


SUBROUTINE SETAST(ITYPE) 
IMPLICIT INTEGER*4(S) 


17100 
17200 
17300 
17400 
17500 
17600 
17700 
17800 
17900 
18000 
18100 
18200 
18300 
18400 
18500 
18600 
18700 
18800 
18900 
19000 
19100 
19200 
19300 
19400 
19500 
19600 
19700 
19800 
19900 
20000 
20100 
20200 
20300 
20400 
20500 
20600 
20700 
20800 
20900 
21000 
21100 
21200 
21300 
21400 
21500 
21600 
21700 
21800 
21900 
22000 
22100 
22200 
22300 
22400 
22500 
22600 
22700 
22800 
22900 
23000 


OOOO sO 


WAAaANA OOO 


Ce) 
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CHARACTER*36 ALPHA 

EXTERNAL IO$ SETMODE,READAST,1IO$ SETCHAR,PNCHAST 
INTEGER*2 ICHAN, IOSBW(4) 

INTEGER*4 IOSB(2) 

COMMON ICSR,K,L,ICHAN 

COMMON /CHAR/ ALPHA 

EQUIVALENCE (IOSBW(1),IOSB(1)) 


Check to see if requesting a reader attention ast (ITYPE=0), 
or a punch attention ast (ITYPE .NE. 0). 


IF (ITYPE .NE. 0) GOTO 98 


Request reader attention ast, specifying as the routine 
to service the ast subroutine READAST, and specifying 
as the ast parameter the CSR of the paper tape reader. 


I=SYSSQIOW( ,SVAL(ICHAN) , 10$_SETMODE,IOSB,,,READAST, 
IZVAL(ICSR) 55+) 
GOTO 99 


Request punch attention ast, specifying as the routine to 
service the ast subroutine PNCHAST, and specifying as the ast 
parameter the CSR of the paper tape reader. 


I=SYSSQIOW(,%VAL(ICHAN) ,IO$_SETCHAR,IOSB,,,PNCHAST, 


-1$VAL(ICSR),,,,) 


Check on system service error 


LF €.NOT 1): CALL: SYSSEXIT(SVAL(1)) 

IF (IOSBW(1) .NE. 1) CALL SYSSEXIT(%VAL(IOSBW(1))) 
RETURN 

END 


KRREEKKEKKKKKKKEKKEKEEKKSE INTENA RRR KKEKEKEKEKKKKEKKEKKEEKEE 


SUBROUTINE INTENA(MYCSR) 
INTEGER*2 GO,MYCSR(4) 


DECIMAL 65 = HEX 41 = BINARY 01000001 which corresponds 
to the READER and INTERRUPT ENABLE bits in the paper 
tape reader control and status register. These bits 
must be set to enable interrupts and to allow the 
reading of the next character on the paper tape. 


DATA GO /65/ 
Set the appropriate bits in the paper tape CSR 
MYCSR(1) = (MYCSR(1) .OR. GO) 


RETURN 
END 


ROKK RK KK KK PNCHENA KKK KKK KKK KKK KK KK KEK 


SUBROUTINE PNCHENA(MYCSR) 
INTEGER*2 GO,MYCSR(4) 


DECIMAL 64 = HEX 40 = BINARY 01000000 which corresponds to the 


23100 
23200 
23300 
23400 
23500 
23600 
23700 
23800 
23900 
24000 
24100 
24200 
24300 
24400 
24500 
24600 
24700 
24800 
24900 
25000 
2900 
25200 
25300 
25400 
25500 
25600 
25.700 
25800 
20900 
26000 
26100 
26200 
26300 
26400 
26500 
26600 
26700 
26800 
26900 
27000 
17400 
27200 
7300 
27400 
27500 
27600 


LETOU: » 
>7800 


27900 
8000 
28100 
28200 
28300 
28400 
»8500 
28600 
28700 
8800 
283900 
»9000 


ANA ANNN 
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650 


INTERRUPT ENABLE bit in the paper tape punch's control and 
status register. This bit must be set to allow the punching of 
characters. The bit needs to be set only once. 


DATA GO /64/ 
Set the appropriate bits in the punch's CSR 


MYCSR(3) = (MYCSR(3) .OR. GO) 
RETURN 
END 


RKKEKEKKEKKKEKEKKKKKKEKEKE PNCHDAT KKKEEKKEKKEKKKKKKEKERE 


SUBROUTINE PNCHDAT(MYCSR) 
IMPLICIT INTEGER*4(S) 
CHARACTER*36 ALPHA 

CHARACTER*1 NEXT 

EXTERNAL SETAST,IO$_SETCHAR 
INTEGER*2 ICHAN,MYCSR(4),IOSBW(4) 
INTEGER*4 IOSB(2) 

BYTE DATA 

COMMON ICSR,K,L,ICHAN 

COMMON /CHAR/ ALPHA 


Note that the only valid equivalence for a character string 
is to a BYTE variable. 


EQUIVALENCE (NEXT,DATA),(IOSBW(1),IOSB(1)) 
Reenable attention ast for next character. 
CALL SETAST(1) 


The paper tape punch is started by writing a character in 
the punch's data buffer (in this case, MYCSR(4)). Only the 
low order byte contains data. 


NEXT = ALPHA(K:K) 
MYCSR(4) = DATA 


Increment index into string, and see if all done punching 
characters by comparing index (K) to number desired (L). 


K=K+1 
IF (K .LE. L) GOTO 650 


If all done, awaken main subroutine (SUBTWO) 
after disabling the last attention ast requested 


I=SYSSQIOW(, SVAL(ICHAN) , IOS _SETCHAR,IOSB,,,,,,7,7) 
IF (.NOT. I) CALL SYSSEXIT(%VAL(I)) 

IF (IOSBW(1) .NE. 1) CALL SYSSEXIT(%VAL(IOSBW(1))) 
CALL SYSSWAKE(,) 

RETURN 

END 


KERR KKEKKEKRKEKEKKKEKKEKER SUBTWO KRREKEKKEKKEKKKEKEKEKEKREKRE 


SUBROUTINE SUBTWO 


29100 
29200 
29300 
29400 
29500 
29600 
29700 
29800 
29900 
30000 
30100 
30200 
30300 
30400 
30500 
30600 
30700 
30800 
30900 
31000 
31100 
31200 
31300 
31400 
31500 
31600 
31700 
31800 
31900 
32000 
32100 
32200 
32300 
32400 
32500 
32700 
32900 
33000 
33100 
33200 
33300 
33400 
33500 
33600 
33700 
33800 
33900 
34000 
34100 
34200 
34300 
34400 
34500 
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This subroutine will punch (L) characters from the character 
String alpha. K serves as an index into the string. If 

more than (36) characters are desired, the character statement: 
have to be edited to the appropriate maximum length in this 
subroutine, and all subroutines called by this subroutine. 


IMPLICIT INTEGER*4(S) 

EXTERNAL PNCHAST,SETAST, PNCHENA,PNCHDAT 
COMMON ICSR,K,L, ICHAN 

COMMON /CHAR/ ALPHA 

INTEGER*2 ICHAN 

CHARACTER*36 ALPHA 


It 1S assumed that a channel has already been assigned to the 
punch (as in subroutine SUB), and that the CSR address has beer 


placed into ICSR (via a SENSECHAR QIO -- see subroutine SUB). 
ALPHA=' ABCDEFGHIJKLMNOPORSTUVWXYZ0123456789' 

K=1 

L=36 


Enable punch interrupts 
CALL PNCHENA(%VAL(ICSR)) 
Punch first character (will set up attn. ast) 
CALL PNCHDAT(%VAL(ICSR) ) 


Wait for all characters to be punched (determined by 
subroutine PNCHAST, who issues the WAKE system service). 


I=SYSSHIBER() 

IF (.NOT. I) CALL SYSSEXIT(%VAL(I)) 
RETURN 

END 
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SUBROUTINE PNCHAST(MYCSR) 
EXTERNAL PNCHDAT 

COMMON ICSR,K,L,ICHAN 
COMMON /CHAR/ ALPHA 
INTEGER*2 ICHAN,MYCSR(4) 
CHARACTER*36 ALPHA 


This subroutine passes control to subroutine PNCHDAT. It is 
included so PNCHDAT doesn't specify itself as the ast routine. 


CALL PNCHDAT(%VAL(ICSR) ) 
RETURN 
END 


PRINTER.LIS 
PRINTER.COM 
CINLOAD.COM 
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Table of contents 


(1) 2697 Local Data 

(1) 9402 System Mapped Data 

(1) 10702 System Mapped Routines 

(1) 17102 Main Program 
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VO1 


OOO3SFFAC 
0000014C 
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00000001 
00000000 
00000002 
00000040 
00000080 
00008000 
000001FB 
00000020 
0000000D 
OOOO000A 
00000001 


100 
110 
120 
130 
140 
200 
300 
400 
500 
600 
700 
800 
900 
1000 
1100 
1200 
1300 
1310 
1500 
1600 
1700 
1800 
1900 
2000 
2100 
2200 
2300 
2400 
2500 
2600 
2605 
2610 
2615 
2620 
2625 
2630 
2635 
2640 
2645 


2650 


2655 
2660 
2665 
2670 
2675 
2680 
2685 
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2692 
2695 
2697 


12-SEP-1984 
26-MAR-1980 08:10:58 


»-TITLE PRINTER 
-IDENT /VO1/ 


; CONNECT TO INTERRUPT EXAMPLE 


was printed). 


AUTHOR: 


ee we we ee we wt we ee we we we we we we we 


$CINDEF 
$CRBDEF 
$IDBDEF 
$IODEF 
$IO780DEF 
$UCBDEF 
$VECDEF 


; Local Symbol Definitions 


CSR = 40777514 
CSR_PAGE_OFFSET = <CSR&AXI1FF> 
PFN = <IO780$AL_UBOSP+CSR>@-9 


PAGE_COUNT = 1 
STATUS = 0 

DATA = 2 

INT ENABLE = AX40 
READY = AX80 


ERR_BIT = Ax8000 


MAX _TT_BYTES = 507 
LF_BUFFER_CR = 32 
CR = 13 
LF = 10 


EXPECTED = °1 


.SBTTL Local Data 


This program controls the 
to interrupt system service scheme. 
AO777514, it has two registers (CSR first, 
The printer is activated by placing a value to be printed in the 
data register. The printer generates an 
character is printed if the 
is set. The program will 


Viktors J. Muiznieks 
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we we we ee ee we we we we we we we we we we 
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line printer using the connect 
The printer’s CSR is 


then data register). 


interrupt after the 
interrupt enable bit in the CSR 
prompt the user for data, 

and then print the data (telling the user each character that 


25-March-1980 


System macros for defining offsets and symbols 


connect to interrupt 
channel request block 
interrupt data block 
I/O function codes 
11-780 adapter codes 
unit control block 
CRB vector fields 


printer CSR register 
page offset of CSR 
PFN for printer reg.’s 
@-9 divides by 512 
reg. fit on 1 page 
status reg. offset 
data reg. offset 
int. enable bit 
printer ready bit 
printer error bit 
entered by user 

TT carriage control 
carriage return 

line feed 

int. expected bit 


PRINTER 


v0O1 


3A. 30 41 


70 
3E 
20 


69 
63 


20 
52 
3A 


72 
61 


75 
6E 
20 
72 


Local 


50 4C 5F 00000008‘010E0000’ 


62 


65 


20 


63 
69 
2D 
6F 


54 54 00000016’‘010E0000’ 


20 


6E 


64 
68 


63 
72 
20 
62 


6F 


6F 


65 


6F 
70 
61 
61 


0 
0 


000 
000 


00000000 00000000 


74 
64 
6E 


68 
20 


20 
20 
74 
20 


20 
65 
20 


73 
67 


72 
6E 
61 


00000200’ 
00000200’ 


74 


61 


44 


6E 69 72 
6F 66 20 
00000024 


6E 69 46 
69 74 GE 
72 65 74 


00 


0000001D 


72 
20 
20 
72 
2E 


72 
64 
67 
67 
67 


00000033 


00000000 
00000000 
00000200’ 
0000022F’ 


0000023D’ 
00000000’ 


Data 


0000 
0000 
0000 
0000 
0000 
OOOE 
OOOE 
0018 
0018 
OO1A 
OO1A 
001C 
0024 
0024 
0024 
0024 
0024 
0028 
002C 
002C 
002C_ 
002C 
002C 
002C 
002C 
0038 
0044 
0050 
0050 
0050 
O0O5C 
0068 
OO6C 
OO6C 
006D 
O0O06D 
006D 
0079 
0085 
0091 
009D 
OO0A0 
O00A0 


‘OOAO0 


O0A0 
OOAO 
OO0A0 
OOAO 
OOA0 
00A4 
OOA8 
QOAC 
00B0 
0OBO 
00B4 
OOB8 


2700 
2800 
2900 
3100 
3200 
3300 
3400 
3500 
3600 
3700 
3800 
3900 
4100 
4200 
4300 
4500 
4600 
4700 
4800 
4900 
5000 
5100 
5200 
5300 
5400 


5500 
5600 
5700 


5800 
5900 
6000 
6100 
6200 


6300 
6400 
8200 
8300 
8400 
8500 
8600 
8700 
8800 
8900 
9000 
9100 
9200 
9300 
9402 
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s Parameters for $ASSIGN and $QIO system services 


EVICE NAME: ; printer descriptor 


-ASCID /_LPAO:/ 
T_NAME: ~ ; terminal descriptor 
| :ASCID /TT/ 
TT_CHAN: ; terminal channel # 
. WORD 
DEVICE_CHAN: ; printer channel # 
. WORD 
IOSB: - QUAD ; IOSB for $QI0O calls 


. 
’ 


;: Parameters for $CRMPSC system service to map the Unibus I/0 page 


MAP_ADR: ; for $CRMPSC 


. ADDRESS AX200 ; start address (PQ) 
. ADDRESS AX200 ; end address (PO) 


; Messages sent to the terminal user 


PROMPT_STRING: ; for terminal user 
-ASCII /Data to be printed (<CR> for none): / 


PROMPT _LENGTH = . - PROMPT _STRING 
AST_STRING: 


3; sent in AST routine 
-ASCII /Finished printing character / ; 


CHARACTER: 
.BYTE 
AST_LENGTH = . ~— AST_STRING 
ERROR_STRING: ; if print error occurs 
-ASCII 7Error occurred in printing data - program aborting./ 
ERR_LENGTH = . -—- ERROR_STRING 


; Parameters used by connect to interrupt $QIO system service 


. 
’ 


ROUTINE OFFSET LIST: 
. LONG 0 ; powerfail recovery 
. LONG 0 ; start I/0 
. LONG LP_INTERRUPT - SHARED _BUFFER_START ; interrupt service 
. LONG LP_CANCEL - SHARED BUFFER START ; cancel I/0 
SHARED_BUFFER_DESC: 
. LONG SHARED _BUFFER_END - SHARED BUFFER START ; buffer length 
.LONG SHARED BUFFER START ~ ; buffer starting addr. 
.SBTTL System Mapped Data 


PRINTER 
Vol 


System Mapped Data 


OOB8 
OOB8 
OOB8 
O0OB8 
OOB8 
O00B8 
0088 


00000000 


00 
OOOOOI1FC 
OOOOOI1FE 

00 

00 


0000 
0000 
0000 
0001 
O1FC 
O1FE 
O1FF 
0200 
0200 


9500 

9600 

9700 

9800 

9900 
10000 
10100 
10200 
10300 
10400 
10500 
10600 
10640 
10680 
10690 
10700 
10702 


we we we we we we 
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Shared buffer for use by program and service routines. Note 


that the buffer is aligned to begin on a page boundary, and 
given write access. Both the data area and the service 


routines are described by the shared buffer descriptor. 


-PSECT SHAREDBUF,PAGE,WRT 


SHARED _BUFFER_START: 


TTDATA: 


.BYTE 0 
.BLKB MAX_TT_BYTES 
- BLKB 2 


CURRENT: .BYTE 0 


FLAGS: 


.BYTE 0 


-SBTTL System Mapped Routines 


we we we we ve 


used as index 

max. 507 bytes 

for <CR> <LF> 

data printed 
expected int. flag 


PRINTER 
VO01 


27 


64 


64 


50 


60 


FQ 


53 


DS 


50 
50 


AF 01 

F4 AF 
54 64 
0080 8F 


8000 8F 


24 AS 
2C BO 
0040 8F 


System Mapped Routines 


DO 
DO 
AA 
05 


0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0202 
0207 
020A 
020D 
0212 
0214 
0219 
021B 
O21F 
0222 
0225 
0229 
O22E 
022F 
022F 
022F 
O22F 
O22F 
O22F 
O022F 
022F 
O22F 
022F 
022F 
0233 
0237 
023C 
023D 
023D 


10800 
10900 
11000 
11100 
11400 
11500 
11600 
11700 
11800 
11900 
12000 
12100 
12200 
12300 
12400 
12500 
12600 
12700 
12800 
12900 
13000 
13010 
13100 
13200 
13300 
13800 
13810 
13820 
13900 
14000 
14100 
14200 
14300 
14400 
14500 
14600 
14700 
14800 
14900 
15000 
15200 
15300 
15400 
15500 
15600 
15800 
15900 
16000 
16100 
16400 
16500 
16600 
16700 
16800 
17000 
17102 
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: Note that since offsets must be specified in the routine 
3 offset list above, the following service routines must be 
: placed immediately following the shared buffer data area. 
; The LP INTERRUPT routine is called (in kernel mode, in system 
: context) after the printer generates an interrupt. The inputs are 
: : R2 - address of counted argument list 
3 R4 - address of IDB 
; RS - address of UCB 
; The counted argument list contains the following items: 
; O(R2) - count of arguments (4) 
; 4(R2) - system mapped address of shared buffer 
; 8(R2) - address of AST parameter 
: 12(R2) - IDB address 
: 16(R2) - UCB address 
; The routine will place the character printed into the CURRENT 
; location, and request that an AST be delivered (by placing 
; a 1 in RO before issuing an RSB). If any error occurred in 
- the print operation, a 0 is placed into CURRENT. If the 
; interrupt is unexpected, no AST is requested (RO cleared). 
; The routine must preserve all registers except RO-R4. 
LP_INTERRUPT: ; interrupt service 
CLRL RO ; assume unexpected int. 
BBCC #EXPECTED,FLAGS,NO_ AST ; dismiss if unexpected 
CLRB CURRENT 3; assume printer error 
MOVL IDB$L_CSR(R4),R4 ; get CSR address 
BITW AREADY ,STATUS(R4) ; printer ready? 
BEQL Q_AST ; error if not 
BITW #ERR_BIT,STATUS(R4) ; printer error? 
BNEQ Q_AST ; yes if NEQ 
MOVL 4(R2),R3 ; get buffer address 
MOVZBL (R3),R4 ; get index to char. 
ADDL2 R4,R3 ; point’ to char. 
MOVB (R3), CURRENT ; specify current data 
Q_AST: MOVZWL #SS$ NORMAL,RO ; request AST delivery 
NO_AST: RSB 
; The LP_CANCEL routine is called (in kernel mode, in system 
: context) when the process is being disconnected from the 
; interrupt. This routine will disable printer interrupts. The 
: inputs to the routine are as follows: 
3 R2 - negated value of channel index number 
; R3 - IRP address 
; R4 - PCB address for process cancelling I/0 
; R5 - UCB address 
LP CANCEL: ; cancel I/O routine 
MOVL UCB$L_CRB(R5),RO ; get CRB 
MOVL @®CRB$L_INTD+VEC$L_IDB(RO),RO ; get CSR address 
BICWw #INT ENABLE,STATUS(RO) ; disable interrupts 
RSB 
SHARED_BUFFER_END: 
-SBTTL Main Program 


PRINTER 
vO1 


023D 

023D 

023D 

023D 

023D 

023D 
00000000 
0000 
0000 
0002 
0002 
0002 
0002 
0017 
OO1A 
001D 
0032 
0035 
0038 
0038 
0038 
0038 
0038 
0038 
0038 
0038 
0038 
0038 
0038 
0038 
0038 
0038 
0038 
0038 
0038 
0038 
0038 
0038 
0038 
0066 
0069 
OO6C 
006C 
OO6C 
O0O6C 
OO6C 
O06C 
OO6C 
OO6C 
OO6C 
O06C 
OO6C 
OO9F 
O0A2 
OO0AS 
OOA5 
OOA5S 


0000 


03 SO E8 
014C 31 


03 50 E8 
0131 31 


03 50 E8 
OOFD 31 


03 50 E8 
00C4 31 


Main Program 


17200 
17300 
17400 
17500 
17600 
17700 
17800 
17900 
18000 
18100 
18200 
18300 
18400 
18500 
18600 
18700 
18800 
18900 
19000 
19100 
19200 
19300 
19400 
19500 
19600 
19700 
19800 
19900 
20000 
20100 
20200 
20300 
20400 
20500 
20600 
20700 
20800 
20900 
21000 
21100 
21200 
21300 
21400 
21500 
21600 
21700 
21900 
22000 
22100 
22200 
22300 
22400 
22500 
22600 
22700 
22800 
22900 


we we ee we ee 


START: 


10$: 


Rove wo we we we we we we we we we we we we we we 


30$: 
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The start of the main routine that will actually control the 
printer, after mapping to the I/O page and connecting to a 


printer interrupt. 

-PSECT CODE,EXE,NOWRT, PAGE 

. WORD 0 ; null entry mask 
Assign channels to terminal and printer 

SASSIGN_S DEVNAM=TT_NAME,CHAN=TT_CHAN 

BLBS 0,10$ 

BRW ERROR 

$ASSIGN_S DEVNAM=DEVICE_NAME, CHAN=DEVICE_CHAN 

BLBS RO,20$ 

BRW ERROR 


Map Unibus I/0 page into process PO space so device registers 
are accessible. Flags indicate that section is to be mapped 

at end of PO region (which will be expanded to accomodate the 
new addresses since the SEC$M_EXPREG bit is set); the PO region 
is identified because the INADR argument contains addresses in 
the PO range. The SEC$M_PFNMAP bit indicates that the mapping 
should be done by a pfn in the VBN argument (rather than by the 
default virtual block number mapping scheme). The region 
mapped can be written to by the program since the SEC$M_WRT 

bit is also set (i.e., device registers can be written to by 
the program). 

Note that only one page (PAGCNT parameter) 
device registers ‘straddle’ 
one page should be mapped. 


is mapped. If the 
a page boundary, then more than 


$CRMPSC_S INADR = MAP_ADR ,- ; map thto PO region 
RETADR= MAP_ADR ,- ; return actual addr. 
FLAGS = #SEC$M_WRT!SEC$M_PFNMAP! SEC$M_EXPREG, - 
PAGCNT= #PAGE COUNT ,- ; only need 1 page 
VBN = #PFN ; pfn for mapped page 

BLBS RO,30$ 

BRW ERROR 


Issue connect to interrupt $QI0 


$QTIO_S CHAN = DEVICE CHAN ,- ; specify printer chan 
FUNC = #IO$ CONINTWRITE ,~- "3 allow write buffer 
P1 = SHARED BUFFER DESC Pasi ; shared buffer desc. 
P2 = #ROUTINE OFFSET LIST ,- routines pr eveees. 


P3=#<<3@16>!CINSM_EFN!CIN$M_ISR!CINSM _CANCEL! CINSM_ REPEAT>, 
P4 = #LP_AST ,- ; AST after jabecnuas 


P5 = #0 ,- ; no AST parameter used 
P6 = #1 ; AST count of 1 

BLBS RO,40$ 

BRW ERROR 


Ask user for data to be printed 


PRINTER 
Voi 


03 50 
008D 


OOOOO01E’EF 

5A 

55 OOQOOOOO1E’EF 
52 00000001’EF 
52 55 

62 OAOD 8F 
52 55 

55 02 
00000024’ EF 
53 O02 A4 
00000000’ EF 
64 0040 8F 
00000000’ EF 
00 OOOO0O1FF’EF 01 
63 82 


54 0000014C 8F 


E5 55 
64 0040 8F 
FF67 


1A 50 


09 50 


Main Program 


E8 
31 


E9 


E9 


OOA5S 
OOA5 
OOAS 
00D6 
o0OD9 
OODC 
oopce 
OODC 
OODC 
OO0E2 
OOE4 
OOEB 
OOF2 
OOFS 
OOFA 
OOFD 
0100 
010C 
0110 
0116 
011B 
0121 
0129 
012C 
0133 
0136 
013B 
O13E 
O13E 
O13E 
O013€E 
O1SE 
014C 
O14F 
015D 
0160 
0169 
0169 
0169 
0169 
0169 
0172 
0172 


23000 
23100 
23200 
23300 
23400 
23500 
23600 
23700 
23800 
23900 
24000 
24100 
24110 
24120 
24130 
24140 
24200 
24300 
24400 
24500 
24600 
24610 
24700 
24800 
24900 
25000 
25100 
25200 
25300 
25400 
25500 
25600 
25700 
25800 
25900 
26000 
26100 
26200 
26300 
26400 
26500 
26600 
27702 


40$: 


50$: 


60$: 


70$: 
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GQIOW S CHAN=TT CHAN,FUNC=#10$ READPROMPT , IOSB=IOSB, - 
~  P1=TTDATA,P2=#MAX_TT_BYTES, P5=#PROMPT_STRING, ~ 
P6=#PROMPT_ LENGTH 

RO,50$ 

ERROR 


BLBS 
BRW 
or exit 


Print data user entered, if no data to print 


TSTw 1OSB+2 ; check byte count 

BEQL DONE ; exit if zero 

MOVZWL IOSB+2,R5 ; save byte count 

MOVAL TTDATA,R2 3; point to data 

ADDL2 R5,R2 ; point to end of data 
MOVW #<CR>+<LF@B>,(R2) ; insert <CR> <LF> 
SUBL2 R5,R2 ; restore pointer 

ADDL2 #2,R5 : 3; account for <CR> <LF> 
ADDL3 MAP_ADR,#CSR_ PAGE _OFFSET,R4 ; point to CSR 

MOVAW DATA(R4) ,R3 3; point to data reg. 
CLRB SHARED_BUFFER_START ; initialize index 

BISW #INT_ENABLE, STATUS(R4) ; set int. enable bit 
INCB SHARED _BUFFER_START ; adjust byte index 
BBCS #EXPECTED, FLAGS, 70$ ; indicate int. expected 
MOVB (R2)+,(R3) ; print a character 
$HIBER_S ; wait for AST to wake 
SOBGTR- R5,60$ ; loop if more to print 
BICW #INT ENABLE, STATUS(R4) ; disable printer int. 
BRW 40$ ; get more user data 


User doesn’t want any more data printed 


$DASSGN_S CHAN=TT_CHAN 
BLBC RO,ERROR 

$DASSGN_S CHAN=DEVICE_CHAN 

BLBC RO,ERROR 

$EXIT_S 


clean up channels 


Error occurred -- report it to user 


$EXIT_S CODE=RO 


-SBTTL AST Routine For Each Printer Interrupt 


PRINTER 
Vv0O1 


OOOO01FE’EF OD 


41 

OOQOOI1FE’ EF OA 
38 

OQOO001FE‘EF 

3C 


OOO00006C’ EF OOOOO1FE’EF 


0000 


13 
91 
13 
95 
13 
90 


04 


0172 
0172 
0172 
0172 
0172 
0172 
0172 
0172 
0172 
0172 
0172 
0172 
0174 
017B 
017D 
0184 
0186 


018C 


O18E 
0199 
0199 
0199 
O1BE 
01C9 
01CA 
O1CA 
O1CA 
O1EF 
O1FC 
O1FC 


AST Routine For 


27800 
27900 
28000 
28100 
28300 
28400 


28500 


28600 
28700 
28800 
28900 
29000 
29140 
29180 
29220 
29260 
29300 
29400 
29410 
29500 
29600 
29700 
29800 
29900 
30000 
30100 
30200 
30300 
30400 
30500 
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’ 
? 
° 
> 
. 
> 
. 
> 
. 
> 
. 
? 
. 
> 
. 
’ 
. 
? 
. 
, 


P_AST: 


10$: 


ERR: 


This AST routine is entered whenever the device generates 
an interrupt, and the process~supplied AST routine places 

a success code in RO before issuing the RSB. 

The routine displays for the user the character 
printed, and awakens the main procedure to print 

the next character (unless there was an error in the 
printing of the character, indicated by CURRENT 

containing a 0, in which case an error message is displayed 
to the user, and the image exits). 


-WORD. QO null entry mask 

CMPB #CR,CURRENT was character a <CR>? 
BEQL 10$ if so, no message 
CMPB #LF,CURRENT was Character a <LF>? 
BEQL 10$ if so, no message 


BEQL ERR report error 
MOVB CURRENT, CHARACTER save char. printed 
$QIOW_S CHAN=TT_CHAN,FUNC=#I0$ WRITEVBLK - ; tell user that 


P1=AST_STRING, P2=#AST_LENGTH, - 
P4=#LF_BUFFER_CR 


Character has been 


TSTB CURRENT ; O ==> printer error 
3; printed 


SWAKE_S print next character 
RET 
SQIOW_S CHAN=TT_CHAN,FUNC=#I0$ WRITEVBLK,- ; tell user that 


P1=ERROR_STRING,P2=¥#ERR_LENGTH,-; error occurred in 
P4=#LF_BUFFER_CR 3; printing 
SEXIT_S CODE=¥SS$ DRVERR ; and stop 


. END START 


PRINTER 
Symbol table 


$$T1 
AST_LENGTH 
AST_STRING 
CHARACTER 
CIN$SM_CANCEL 
CIN$M_EFN 
CIN$M_ISR 
CINSM_REPEAT 

CR 

CRB$L_INTD. 

CSR 
CSR_PAGE_OFFSET 
CURRENT 

DATA 
DEVICE_CHAN 
DEVICE_NAME 
DONE 

ERR 

ERROR 

ERROR STRING 
ERR_BIT 

ERR LENGTH 
EXPECTED 

FLAGS 

IDB$L_CSR 
INT_ENABLE 
10$_CONINTWRITE 
10$_READPROMPT 
TO$_WRITEVBLK 
IO07B0$AL_UBOSP 
10SB 

LF 

LF_BUFFER_CR 

LP AST 

LP_ CANCEL 

LP_ INTERRUPT 
MAP_ADR 
MAX_TT_BYTES 
NO_AST 
PAGE_COUNT 

PFN 

PROMPT _LENGTH 
PROMPT_STRING 
Q_AST 

READY 

ROUTINE _OFFSET_LIST 
SEC$M_EXPREG 
SEC$M_PFNMAP 
SEC$M_WRT 
SHARED_BUFFER_DESC 
SHARED _BUFFER_END 
SHARED _BUFFER_ START 
SS$_DRVERR 
SS$_NORMAL 
START 

STATUS 
SYS$ASSIGN 


Hout Hol We We at tt Hou dl 


00000001 
0000001D 
00000050 
0000006C 
00000080 
00000001 
00000040 
00000004 
0000000D 
00000024 
QOO3FF4C 
0000014C 
OOOOOI1FE 
00000002 
O0000001A 
00000000 
0000013E 
OO0001CA 
00000169 
0000006D 
00008000 
00000033 
00000001 
OOOQOO0O1FF 
00000000 
00000040 
0000003D 
00000037 
00000030 
20100000 
o000001C 
O000000A 
00000020 
00000172 
0000022F 
00000200 
00000024 
000001FB 
0000022E 
00000001 
001009FF 
00000024 
0000002C 
00000229 
00000080 


O000000A0 
RR KK RK 


RR RK KK 
RR ORR 
O0O00000B0 
0000023D 


00000000 
BRK RR KK 


%* KKK KK KK 


00000000 
00000000 


*R KKK KKK 


aw 


BDDADAD 


ADAD 


pe) 


DDD 


xx x 


GX 


01 
01 


03 


01 
01 
04 
04 
04 
01 


03 


SYS$CRMPSC 
SYSS$DASSGN 


SYS$EXIT 
SYS$HIBER 
SYS$QIO 
SYS$QIOW 
SYS$WAKE 
TTDATA 
TT_CHAN 
TT_NAME 
UCB$L_CRB 
VEC$L_IDB 
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HAAR ERK 
* KOK KK Kk 
* OK KOK KKK * 
RK KKK AK 
KK RK KKK 
AK KKK KK 
* KKK KK KK 
00000001 
00000018 
OOOOOO0E 
00000024 
00000008 


DAD 
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GX 
GX 
GX 
GX 
GX 
GX 
GX 


04 
04 
04 
04 
04 
04 
04 
03 
01 
01 
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tome or re er ree + 
! Psect synopsis ! 
pone ee eer re + 
PSECT name Allocation PSECT No. Attributes 
ABS. 00000000 0.) OO € OO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
BLANK . ooo0000Bs ( 184.) O01 ¢€¢ 1.) =\NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
SABS$ 00000000 (¢ O.) O2 (€ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
SHAREDBUF 0000023D ( 573.) O03 € 3.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC PAGE 
CODE OOOGOTFC ( 508.) 04 ( 4.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC PAGE 
+---- - - - - + 
! Performance indicators ! 
too e eee ee + 
Phase . Page faults CPU Time Elapsed Time 
Initialization 104 00:00:00.31 00:00:01.24 
Command processing 128 00:00:00.50 00:00:02.19 
Pass 1 828 00:00:11.02 00:00:14.03 
Symbol table sort 14 00:00:01.32 00:00:01.33 
Pass 2 207 00:00:01.73 00:00:01.92 
Symbo)] table output 10 00:00:00.08 00:00:00.15 
Psect synopsis output 5 00:00:00.03 00:00:00.03 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 1299 00:00:14.99 00:00:20.89 


The working set limit was 500 pages. 

48128 bytes (94 pages) of virtual memory were used to buffer the intermediate code. 

There were 50 pages of symbol table space allocated to hold 852 non-local and 8 local symbols. 
307 source lines were read in Pass 1, producing 17 object records in Pass 2. 

26 pages of virtual memory were used to define 25 macros. 


aa aa a a la eo + 
! Macro library statistics ! 
peo ee ee + 

Macro library name Macros defined 

SYS$SYSROOT: [SYSLIB]LIB.MLB; 1 6 

SYS$SYSROOT: [SYSLIB] STARLET .MLB; 1 16 

TOTALS (all libraries) 22 


996 GETS were required to define 22 macros. 
There were no errors, warnings or information messages. 


MACRO/LIS PRINTER+SYS$LIBRARY:LIB/LIB 
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$! 

3! 

SMACRO/LIS PRINTER+SYSSLIBRARY:LIB/LIB 
SLINK PRINTER,SYSSSYSTEM: SYS.STB/SEL 


PRINTER.COM 
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$! 

$! 

SMCR SYSGEN 
CONNECT LPA0/ADAPTER=3- 
/VECTOR=%0200- 
/CSR=%0777514- 
/DRIVER=CONINTERR 
SHO /DEV=CON 

USE CURRENT 

SHOW REALTIME SPTS 
EXIT 


CINLOAD.COM 





